WCM Forum - Maus in VBA

Seite 1 von 2

40 Beiträge dieses Themas auf einer Seite anzeigen

WCM Forum (http://www.wcm.at/forum/index.php)

- Programmierung (http://www.wcm.at/forum/forumdisplay.php?f=17)

- - Maus in VBA (http://www.wcm.at/forum/showthread.php?t=17258)

The_Beax

18.03.2001 18:30

Maus VBA

Wie kann ich mittels Visual Basic die Maus bewegen?

????

MfG The Beax

Mr.Sieb

22.03.2001 11:55

Ich arbeit selbst noch nicht lange mit VB.
Ich denke die Maus zu Bewegen ist ein Grundsätzliches Problem, da Die Kugeln in der Maus keinen Antrieb besitzt!

Auch zu beachten sind die jetzt Brandneuen Optischen Mäuse!
Die haben jar gar keine Kugel mehr!

James020

23.03.2001 10:57

Hmm, is schon schwierig, . . .

Aber ich denke mit der rechten Hand wird´s schon gehen! :)

(Schilder mal genauer, wo und was dein Problem ist!)

James020

26.03.2001 10:35

Hey, The_Beax gibt´s dich überhaubt noch?

James020

30.03.2001 11:24

Ich glaub der is tot?

josch

11.04.2001 13:57

du solltest den Mauszeiger ausblenden,Mauspos abfragen,neue Mauspos angeben und Mauszeiger wieder einblenden.Und das Pos für Pos,einzigste Lösung die ich fand

The_Beax

11.04.2001 16:40

und wie genau?

mit welchen befehl frage ich die mausposition ab und vergebe eine neue?

James020

11.04.2001 18:51

Er lebt! :D:D:D Vieleicht mit MPOS (So wie POS u. CSRLIN (QBasic) wird ja wohl nicht so drastisch abweichen!)?

josch

13.04.2001 15:03

Hi beax
Jetzt habe ich erstmal geschnallt was du willst.Du möchtest den Mauszeiger vom Prog her bewegen lassen.Da muß ich mich doch zurückziehen.Auf graphischer Ebene hätte man da was tun können aber den Zeiger einfach mal übers Desktop?Keine Ahnung.
Aber mousepositionen fragt man z.B. ab

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblx.Caption = X
lbly.Caption = Y
End Sub

Denke aber daran das x und y Single sein müssen.Ich werde mich auch mal damit beschäftigen.Wenn du was rausbekommen hast laß es mich doch bitte wissen.
Bis dahin

Sesa_Mina

13.04.2001 20:08

Code:

Option Explicit



Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long



Private Sub Form_Load()

   Dim x As Long, y As Long, z As Long

   Dim fact As Double

   

   fact = Screen.Width / Screen.Height

   

   For y = 0 To Screen.Height \ Screen.TwipsPerPixelY

      x = Int(y * fact)

      SetCursorPos x, y

      For z = 0 To 99

         DoEvents

      Next

   Next

End Sub

damit bewegt sich der cursor diagonal über den schirm von links oben nach rechts unten.

Alle Zeitangaben in WEZ +2. Es ist jetzt 01:38 Uhr.

Seite 1 von 2

40 Beiträge dieses Themas auf einer Seite anzeigen