Drag und Drop Feedback
28.06.2017 16:41:53
Powderk
Meine Excel Projekt nähert sich der Fertgistellung dank eurer Hilfe. Jedoch würde ich gerne noch eine Funktion integrieren um die usability zu verbessern.
Währen des Dra und Drop vorgangs möchte ich gerne ein Feedback darüber welches Element gerade verschoben wird. Dafür habe ich auch eine Funktion programiert, habe jedoch schierigkeiten diese in den Vorgang einzubinden.
Hier die Funktion wie ich sie gerne einbinden möchte. Das Label wird Später noch mit dem Namen des ListViewItems gefüllt und der Trigger soll der Drag und Drop Vorgang sein.
Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Type POINTAPI
Xvar As Long
Yvar As Long
End Type
Private Sub CommandButton1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal Xvar _
_
As Single, ByVal Yvar As Single)
Label1.Visible = False
End Sub
Private Sub CommandButton1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal _
Xvar As Single, ByVal Yvar As Single)
Label1.Visible = True
End Sub
Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal _
Xvar As Single, ByVal Yvar As Single)
If Button = 1 Then
Dim llCoord As POINTAPI
GetCursorPos llCoord
Label1.Left = (Xvar) + 150
Label1.Top = (Yvar) + 30
End If
End Sub
Hier als Dateianhang meine bisherige Arbeit.
https://www.herber.de/bbs/user/114545.xls
Alternative habe ich bei meiner Suche die Funktion OLEGiveFeedback gefunden, leider aber keine Erklärung wie man es in Excel einsetzten kann.
Über eure Hilfe währe ich dankbar