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

• Polyák tag

  #1141

  #1140 dany27

  2010-02-05 22:44:19

  Új Válasz

  Ú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

  

  Polyák

  tag

  #1140 dany27

  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