- Iszonyatos mennyiségű hulladékkal járhat a Windows 10 terméktámogatásának vége
- Egyesítené a ChromeOS-t és az Androidot a Google
- Új szintre emelte a fényűzés fogalmát az ASUS
- Kivenné a részét az új HBM memóriák tokozásából az LG
- Az ASUS legfrissebb analóg billentyűzete az ízületeinket is kímélni szeretné
- Új szintre emelte a fényűzés fogalmát az ASUS
- OLED TV topic
- Soundbar, soundplate, hangprojektor
- Milyen belső merevlemezt vegyek?
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Iszonyatos mennyiségű hulladékkal járhat a Windows 10 terméktámogatásának vége
- OLED monitor topik
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- ASUS ROG Ally
- Egyesítené a ChromeOS-t és az Androidot a Google
Új hozzászólás Aktív témák
-
sonar
addikt
Sziasztok, ha vkinek szüksége lenne valaha a funkció gombok használatára akkor
mentse le ezt a forrást.
Az időzítőt én 100-200 ra szoktam állítani, lassúbb gépen elég a 200 is bár nem vettem
észre, hogy zabálná a procit. Kell egy Text box is (Text1 néven, a gyengébbek kedvéért)
és abba lehet figyelni,hogy éppen milyen funkció billentyű lett lenyomva.
üdv sonar
Option Explicit
Private Declare Sub keybd_event Lib ''user32'' (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Function GetAsyncKeyState Lib ''user32'' (ByVal vKey As Long) As Integer
'******************Function Key*******************
Private Const VK_F1 = &H70
Private Const VK_F2 = &H71
Private Const VK_F3 = &H72
Private Const VK_F4 = &H73
Private Const VK_F5 = &H74
Private Const VK_F6 = &H75
Private Const VK_F7 = &H76
Private Const VK_F8 = &H77
Private Const VK_F9 = &H78
Private Const VK_F10 = &H79
Private Const VK_F11 = &H7A
Private Const VK_F12 = &H7B
Private Sub Form_Load()
Call FunctionClear
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
If GetAsyncKeyState(VK_F1) Then
Text1 = ''F1'' & vbCrLf & Text1
ElseIf GetAsyncKeyState(VK_F2) Then
Text1 = ''F2'' & vbCrLf & Text1
ElseIf GetAsyncKeyState(VK_F3) Then
Text1 = ''F3'' & vbCrLf & Text1
ElseIf GetAsyncKeyState(VK_F4) Then
Text1 = ''F4'' & vbCrLf & Text1
ElseIf GetAsyncKeyState(VK_F5) Then
Text1 = ''F5'' & vbCrLf & Text1
ElseIf GetAsyncKeyState(VK_F6) Then
Text1 = ''F6'' & vbCrLf & Text1
ElseIf GetAsyncKeyState(VK_F7) Then
Text1 = ''F7'' & vbCrLf & Text1
ElseIf GetAsyncKeyState(VK_F8) Then
Text1 = ''F8'' & vbCrLf & Text1
ElseIf GetAsyncKeyState(VK_F9) Then
Text1 = ''F9'' & vbCrLf & Text1
ElseIf GetAsyncKeyState(VK_F10) Then
Text1 = ''F10'' & vbCrLf & Text1
ElseIf GetAsyncKeyState(VK_F11) Then
Text1 = ''F11'' & vbCrLf & Text1
ElseIf GetAsyncKeyState(VK_F12) Then
Text1 = ''F12'' & vbCrLf & Text1
End If
End Sub
Public Sub FunctionClear()
' Azért kell mert első induláskor néha marad bent vmi szemét és egy üres
' kiolvasással megszűnik ez a probléma
GetAsyncKeyState (VK_F1)
GetAsyncKeyState (VK_F2)
GetAsyncKeyState (VK_F3)
GetAsyncKeyState (VK_F4)
GetAsyncKeyState (VK_F5)
GetAsyncKeyState (VK_F6)
GetAsyncKeyState (VK_F7)
GetAsyncKeyState (VK_F8)
GetAsyncKeyState (VK_F9)
GetAsyncKeyState (VK_F10)
GetAsyncKeyState (VK_F11)
GetAsyncKeyState (VK_F12)
End Sub
Új hozzászólás Aktív témák
- World of Tanks - MMO
- Új szintre emelte a fényűzés fogalmát az ASUS
- Nintendo Switch 2
- OLED TV topic
- Redmi Note 14 5G - jól sikerült az alapmodell
- Soundbar, soundplate, hangprojektor
- Építő/felújító topik
- The Division 2 (PC, XO, PS4)
- Milyen belső merevlemezt vegyek?
- One otthoni szolgáltatások (TV, internet, telefon)
- További aktív témák...
- AKCIÓ! GAMER PC: Új i5-14400F (10mag/16szál) +Új RTX 5060 Ti +16-64GB DDR4! GAR/SZÁMLA! 50 FÉLE HÁZ!
- Lenovo ThinkPad L590 / Intel CORE i5 / 8gb ram / 256gb SSD / FHD kijelző / Windows 11
- Lenovo Yoga 370 szép állapotú 24 hónap jótállás
- HIBÁTLAN iPhone 14 256GB Midnight - 1 ÉV GARANCIA - Kártyafüggetlen, MS2290, 92% Akkumulátor
- Samsung Galaxy A53 5G - 128 GB - fekete - (130)
- Csere-Beszámítás! Corsair Dominator Platinum 2x32GB (64GB) Kit 5200MHZ DDR5
- DELL PowerEdge R440 rack szerver - Silver 4114 (10 mag/20 szál, 2.2/3.0GHz), 64GB RAM,199990Ft +ÁFA
- DELL PowerEdge R730xd 16LFF 160TB+400GB 2U rack - 2xE5-2683v4 (16c/32t),256GB RAM,2x10G NET,HBA330
- BESZÁMÍTÁS! SAPPHIRE NITRO+ RX 7900 XTX 24GB GDDR6 videokártya garanciával hibátlan működéssel
- Azonnali készpénzes GAMER / üzleti notebook felvásárlás személyesen / csomagküldéssel korrekt áron
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Promenade Publishing House Kft.
Város: Budapest