Keskustelu: Ohjelmointikysymykset: VB6: Klikkauksen nauhoitus *VB 6*

Teen ohjelmaa, joka aina vasenta hiirtä klikatessa esimerkiksi näyttää messageboxin.
Miten voin katsoa, jos vasenta hiiren nappulaa painetaan?
Koetin jo

Option Explicit

Public Const VK_LBUTTON As Long = &H1&

Private Sub form_load()
Do
DoEvents
If GetAsyncKeyState(VK_LBUTTON) = 1 Then
MsgBox "Vasen nappula klikattu"
End If
Loop
end sub

koodia, mutta se ei toiminut, kun testasin ohjelmaa, niin ei tullut kuin kerran se "Vasen nappula klikattu".

If (GetAsyncKeyState(VK_LBUTTON) And 1) = 1 Then

Suosittelen ajamaan tuota tarkistusta joko timerissä tai sitten soveltamaan tätä koodiesimerkkiä (joka on parhaiten hyödyksi jos teet peliä).

Kappas vaan, timerissä se toimiikin. No, hyvä niin, koska en pidä loopista. Kiitos.