Timer Überschneidungen verhindern !

  • VB.NET

Es gibt 21 Antworten in diesem Thema. Der letzte Beitrag () ist von TVX.

    TVX schrieb:

    Ne - Option Strict On - lässt späte Bindung nicht zu ?(
    Dim lstFiles As Object
    Das wissen wir bereits X(
    Wo weist Du denn lstFiles einen Wert zu?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Und genau daran lag es



    Spoiler anzeigen

    VB.NET-Quellcode

    1. 'listboxen mause event
    2. Dim iTempIndex As Integer
    3. Dim iLstIndex As Integer
    5. Private Sub FileListBox1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseDown
    6. If e.Button = Windows.Forms.MouseButtons.Left Then
    7. ' zu verschiebendes Item speichern
    8. iLstIndex = ListBox1.SelectedIndex
    9. Else
    10. iLstIndex = -1
    11. End If
    12. End Sub
    13. Private Sub ListBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseMove
    14. Dim sTempItem As String
    15. Dim iTempIndex As Integer
    16. On Error Resume Next
    17. If CInt(e.Button = Windows.Forms.MouseButtons.Left) <> iLstIndex And iLstIndex > -1 Then
    18. ' aktuellen Index ermitteln
    19. iTempIndex = ListBox1.SelectedIndex
    20. ' markiertes Item zwischenspeichern
    21. sTempItem = CStr(ListBox1.Items(iTempIndex))
    22. ' zuvor geklicktes Item mit aktuellem ersetzten
    23. ListBox1.Items(iTempIndex) = ListBox1.Items(iLstIndex)
    24. ' zwischengespeichertes Item an vorige Position
    25. ListBox1.Items(iLstIndex) = sTempItem
    26. ' neuen ListIndex setzten
    27. iLstIndex = iTempIndex
    28. End If
    29. End Sub


    Jetz Gehts :thumbsup:

Facebook
Telefonspende