Új hozzászólás Aktív témák
-
Polyák
tag
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 SubRemélem segitettem azért valamit. Ezt egy régi programomból másoltam ki.
Új hozzászólás Aktív témák
- Prémium! Gamer PC-Számítógép! Csere-Beszámítás! Rog C VIII / R9 3950X / RTX 3080 / 1TB SSD / 32GB
- Samsung galaxy watch 7 44mm (ezüst) + 1.5 év garancia
- iPhone 15 Plus 128GB gyári független normál állapot
- iPhone 15 128GB gyári független mint az új 2027.02.27. Apple jótállás
- iPhone 15 128GB gyári független One új közel 1 év jótállás
- iPhone 15 Pro Max 256GB 100% (1év Garancia)- ÚJ EREDETI AKKUMULÁTOR - AKCIÓ
- Asus ROG Strix G16 Notebook! i9-14900HX / RTX 4060 / 16GB DDR5 / 1TB NVMe! BeszámítOK
- 27% - Acer CBA272H VA Monitor! 1920 1080 / 100Hz / 4ms / FreeSync
- Alkalmi vétel! HP Omen 17! I7 12700H / RTX 3070Ti 8GB / 1TB Nvme SSD / 16GB DDR5 !
- WYBOT C2 Vision AI vezérelt medenceporszívó
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
