OnMouseOver?

[Grunge]

HI

Wie kann ich folgendes Konzept in die Realität umsetzen????

Ich habe beispielsweise 2 Button (cmdButton1 und cmdButton2)

Wenn der Mauszeiger auf Button1 zeigt (nur drüber ist!) Soll der Zeiger sofort über Button 2 Zeigen!!! Und zwar das jedesmal wenn er auf button1 zeigen will!!

Wie mach ich das?!

 

[Dario Linsky]

Du müsstest in dem OnMouseMove-Ereignis von dem ersten CommandButton den Mauszeiger über den zweiten CommandButton setzen. Das geht sicher mit irgendeiner API-Funktion, aber da weiss ich auch erstmal nicht weiter.
Frag mal homer, der weiss das bestimmt.

PS/OT: Aus welcher Ecke von Braunschweig kommst Du?

 

[Grimreaper]

Alternativ könntest du einfach die Buttons umsetzen, anstatt den Mauszeiger zu verschieben.

mfg Grimreaper

 

[Daniel Toplak]

Frag mal homer, der weiss das bestimmt.

Naja auswendig nicht, aber ich hab mal nachgeschaut.
In der Tat kann man sowas über API lösen. (vielleicht gehts auch einfacher ?)

Du brauchst ein Formular mit 2 Command-Buttons:
Command1 und Command2
und folgenden Code:

Option Explicit

Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As Rect) As Long

Private Type Rect
    left As Long
    top As Long
    right As Long
    bottom As Long
End Type

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim posX As Long
    Dim posY As Long
    Dim MittelPunkt As Rect
    GetWindowRect Command2.hwnd, MittelPunkt
    posX = (MittelPunkt.right + MittelPunkt.left) / 2
    posY = (MittelPunkt.bottom + MittelPunkt.top) / 2
    SetCursorPos posX, posY
End Sub

Die Sub ist wie du siehts die MouseMove Methode des 1. Buttons, das heißt sobald der Benutzer die Maus auf dem 1. Button bewegt, bzw. auch darüberzieht.

Gruss Homer

 

[Grunge]

thx homer!!!! Werdsch mal testen!!


@Lirion komme eigentlich aus peine nur wer kennt das schon!