Hirdetés

  2. Fórumok
  3. Szoftverfejlesztés
  4. Visual Basic

Hirdetés

100 000 érv a ReGalaxy mellett: Vásárolj Galaxy Z Fold7 I Z Flip7 vagy Galaxy S25 szériás készüléket, és régi mobilod felújítását 100 000 Ft-ig mi álljuk!

Új hozzászólás Aktív témák

  • #1141 Polyák tag dany27 #1140
    Új Válasz #1141
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    Polyák

    tag

    válasz dany27 #1140 üzenetére

    Ebből kiindulhatsz:

    A Label1-be az ascii kódot irja a Label2-be hogy milyen betű. A Chr(x) parancsal, az x helyén ascii kóddal a betűt tudod megjeleniteni. A keypress-sel figyeli a lenyomásokat és ascii kódba adja vissza. Most nincs fenn nekem a VB ugyhogy nem tudom kipróbálni.
    (VB6 ba irtam)

    Private Sub Form_KeyPress(KeyAscii As Integer)

    Label1.Caption = KeyAscii
    Label2.Caption = Chr(KeyAscii)

    If Label2.Caption = Chr(9) Then Label4.Caption = "Tabulátor"
    If Label2.Caption = Chr(13) Then Label4.Caption = "Enter"
    If Label2.Caption = Chr(32) Then Label4.Caption = "Szóköz"
    If Label2.Caption = Chr(8) Then Label4.Caption = "Backspace"
    If Label2.Caption = Chr(10) Then Label4.Caption = "Új oldal"

    End If
    End Sub

    Remélem segitettem azért valamit. Ezt egy régi programomból másoltam ki.

Új hozzászólás Aktív témák