Eli miten saisi selville formin ulkopuolelta tulevat clickkaukset? Eli left ja right clickit enimmäkseen pitäisi saada selville :)
Option Explicit
Private Declare Function GetAsyncKeyState Lib "user32" _
(ByVal vKey As Long) As Integer
Private Const VK_LBUTTON = &H1
Private Const VK_RBUTTON = &H2
Private Const VK_MBUTTON = &H4
Private Sub Form_Load()
Timer1.Interval = 30
End Sub
Private Sub Timer1_Timer()
Dim data As String
If GetAsyncKeyState(VK_LBUTTON) Then
data = data & " " & "Left Click"
End If
If GetAsyncKeyState(VK_RBUTTON) Then
data = data & " " & "Right Click"
End If
If GetAsyncKeyState(VK_MBUTTON) Then
data = data & " " & "Middle Click"
End If
Label1.Caption = data
End SubMuuten, jos pistän Macin hiiren kiinni Windows-koneeseen, niin onko mahdollista käyttää sitä keskeltäpuristushommaa, joka tuo kaikki ikkunat näkyviin?
enpä tiedä, luulisin että joudut luomaan/toteuttamaan itse windowsiin ominaisuuden joka tuo ne ikkunat näkyviin samalla tavalla kuin macissa joten taitaa windowsin kanssa olla helpommin sanottu kuin tehty. terveisin: aloittelijan oppipojan kisälli joten mitään varmaa en osaa asiaan sanoa.
Juhko kirjoitti:
Muuten, jos pistän Macin hiiren kiinni Windows-koneeseen, niin onko mahdollista käyttää sitä keskeltäpuristushommaa, joka tuo kaikki ikkunat näkyviin?
Ihan tosissasiko kysyt? Ei se hiiri ikkunoita tuo esille. :D Varmaankin tuo rekisteröityy käyttöjärjestelmälle jonain napinpainalluksena, joten ehkä ennemmin kannattaa kokeilla laittaa kunnon hiiri (monta nappia ja rulla) Maciin ja kokeilla, mistä tuollaisen efektin sillä saisi aikaan. Sittenpä tiedät, mitä se puristaminen muilla hiirillä vastaa, ja voit ihmetellä ikkunoiden näyttämistä ihan tavallisen hiiren kanssa.
Joo, en meinaa, että sen Windowsissa pitäisi tuoda kaikki ikkunat esille, vaan sitä, että miten tätä "nappia" pystyisi lukemaan Windowsissa :D. Mutta kiitos ohjeista.
Aihe on jo aika vanha, joten et voi enää vastata siihen.