Maus in VBA

[The_Beax]

Wie kann ich mittels Visual Basic die Maus bewegen?

????

MfG The Beax

[Mr.Sieb]

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]

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]

Hey, The_Beax gibt´s dich überhaubt noch?

[James020]

Ich glaub der is tot?

[josch]

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]

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

[James020]

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

[josch]

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]

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.