Keskustelu: Ohjelmointikysymykset: VB6: Hiiren hiffaus ja VB6

KYSYMYS 1: Millä koodinpätkällä ohjelman saa tajuamaan että hiirtä on klikattu formin ulkopuolella?

Esimerkiksi GetAsyncKeyState-API:lla. Se tutkii painalluksia riippumatta hiiren sijainnista.

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Timer1_Timer()

If GetAsyncKeyState(1) Then MsgBox "Vasen nappi"
If GetAsyncKeyState(2) Then MsgBox "Oikea nappi"

End Sub

En tiedä, onko Timer paras mahdollinen tapa tarkistaa painallusta jatkuvasti, mutta se ainakin toimii.

Ohjelmallehan ei varsinaisesti kuulu, mitä käyttäjä sen ulkopuolella tekee, joten tuota varten ei turhan hyviä keinoja ole.