- Luck Dragon: Asszociációs játék. :)
- gban: Ingyen kellene, de tegnapra
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- bitpork: Phautós tali a Balcsinál 2025 Augusztus 2 napján (szombat)
- gerner1
- koxx: Az e-sport napistenének ajándéka: Lamzu Inca gamer egér
- GoodSpeed: AMD Ryzen 9 9900X (100-100000662WOF)+ Samsung 990 PRO 2TB MZ-V9P2T0BW
- sziku69: Fűzzük össze a szavakat :)
- laskr99: Processzor és videokártya szilícium mag fotók újratöltve!
- Real Racing 3 - Freemium csoda
Hirdetés
Köszönjük a sok biztatást, támogatást! Utolsó pillanat a féláras hirdetésfeladásra, előfizetésre!
Ú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
- Lenovo V130-15IGM laptop (Pentium Silver N5000/8GB/256GB SSD
- Általános igazgatóhelyettes tábla üvegből eladó
- BESZÁMÍTÁS! MSI B450M R5 5500 16GB DDR4 512GB SSD RTX 2060 Super 8GB Rampage SHIVA ADATA XPG 600W
- Új és régi konzolok Okosítása/Softmodoloása, és Szoftveres szintű javítása - RÉSZLETEK A LEÍRÁSBAN
- DELL Precision 5560 i7-11850H 32GB 1000GB T1200 FHD+ 1 év garancia
Állásajánlatok
Cég: FOTC
Város: Budapest