|
Hallo
ich hätte auch noch eine relativ einfache Variante.
Füge in deine Userform 2 Labels mit schwarzem Hintergrund ein.
Dann folgenden Code in der Userform
Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label1.Top = Y + Image1.Top
Label2.Left = X + Image1.Left
End Sub
Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label2.Left = X + Label1.Left
End Sub
Private Sub Label2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label1.Top = Y + Label2.Top
End Sub
Private Sub UserForm_Activate()
UserForm_Resize
End Sub
Private Sub UserForm_Resize()
Label1.Height = 1
Label1.Left = Image1.Left
Label1.Width = Image1.Width
Label2.Width = 1
Label2.Top = Image1.Top
Label2.Height = Image1.Height
End Sub
Aber auch hier ist noch die Frage was soll passieren wenn die Maus das Image verläßt.
Aber da könnt man ja mit MouseMove der Userform reagieren.
|