11. september 2004 - 01:04Der er
5 kommentarer og 2 løsninger
"fang musen" hvordan?
jeg kunne godt tænke mig at lave et program, der kunne holde musen fanget indenfor en given firkant på skærmen.
Det der er den overordnede mening med programmet, er at jeg vil kunne holde musen indenfor et lille område, så den ikke kan flytte sig derfra. Derved ville jeg kunne benytte musen som en slags fjernbetjening.
Men jeg har ikke forstand på at flytte musen, overvåge musens position osv.
Jeg havde tænkt mig at når man fx trykke på en command-button, så hopper musen ind i det angivne areal, og er der "låst" indtil der fx tastes Esc eller en anden tastekombination?
-problemet er så, at man jo skal kunne klikke på programmet der ligger inden i arealet (i dette tilfælde "kanal op" knappen på mit TV-Tuner program) - men ved klik dér, mister mus-lås-programmet focus, og derfor ville det blive svært at kunne bruge en tast som fx esc til at afbryde den.. idéer til hvad der her kunne gøres er velkomne.
håber i forstår hvad jeg mener, og kan hjælpe mig med hvad jeg kan gøre.
Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type
Private Declare Function GetDesktopWindow Lib "user32" () As Long Private Declare Function GetWindowRect Lib "user32" (ByVal hWnd As Long, lprect As RECT) As Long Private Declare Function ClipCursor Lib "user32" (lprect As Any) As Long
Public Function ClipCursorOn(hWnd As Long) Dim ControlRect As RECT GetWindowRect hWnd, ControlRect ClipCursor ControlRect End Function
Public Function ClipCursorOff() Dim ScreenRect As RECT GetWindowRect GetDesktopWindow(), ScreenRect ClipCursor ScreenRect End Function
Private Sub Command1_Click() Call ClipCursorOn(Me.hWnd) End Sub
Private Sub Command2_Click() Call ClipCursorOn(Command1.hWnd) End Sub
Private Sub Form_Unload(Cancel As Integer) Call ClipCursorOff End Sub ' --------------- Form1 ---------------
over-load's link kan jeg muligvis modificere til mit behov, men det du skriver, sjh, ser også interessant ud. jeg må lige kigge på det iaften når jeg kommer fra arbejde.
det virkede ikke helt, men dit svar i et af mine andre spørgsmål hjalp mig med dette spørgsmål. -Derfor får du halvdelen af points'ne
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
