Hirdetés
- Beköltözött a ChatGPT az Ulefone filléres órájába
- Kisebb kivágás, középen kamera: így nézhet ki az iPhone 18 Pro előlapja
- 100 wattos töltést és 27 wattos fordított töltést kap a Redmi Turbo 5 Max
- Másfél millió forintért már haza is vihető a Huawei aranyozott csúcsórája
- Gyártási gondok a BOE-nél: Samsung kaphatja az iPhone 17e kijelzőit is
- Samsung Galaxy Z Fold7 - ezt vártuk, de…
- Milyen okostelefont vegyek?
- Xiaomi 15T - reakció nélkül nincs egyensúly
- Apple iPhone 14 Pro Max - sziget fesztivál
- Apple iPhone 13 Pro Max - őnagysága
- Honor Magic V5 - méret a kamera mögött
- Apple iPhone X - vissza a jövőbe
- iPhone topik
- Fontos frissítés érkezik a OnePlus 13-ra
- Vége lehet a OnePlusnak? Állítólag az Oppo bezárná a márkát
Ú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
- Samsung Galaxy Z Fold7 - ezt vártuk, de…
- Milyen egeret válasszak?
- Abarth, Alfa Romeo, Fiat, Lancia topik
- Vicces képek
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Hamarosan a ChatGPT dönt arról, hogy mit nézhetsz meg
- Milyen okostelefont vegyek?
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- Proxmox VE
- Milyen videókártyát?
- További aktív témák...
- Telefon felvásárlás!! Apple Watch Series 9/Apple Watch Ultra/Apple Watch Ultra 2
- BESZÁMÍTÁS! LENOVO ThinkPad P15 Gen 2 munkaállomás - i7 11850H 16GB DDR4 1TB SSD RTX A2000 4GB W11
- 2 TB-os Kingston NV3 M.2 SSD - 6000 MB/s olvasás
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Huawei Watch 5 Titanium 46mm
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: Central PC számítógép és laptop szerviz - Pécs
Város: Pécs


