Drag & Drop Aktualisierung.. Hilfe ... bitte :(

  • VB.NET

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Drag & Drop Aktualisierung.. Hilfe ... bitte :(

    Hallo liebe Com,

    ich bin derzeit in den letzten Zügen meines Projekts und nachdem ich lange versucht habe die letzte unstimmigkeit zu beseitigen muss ich wohl oder übel zugeben: Ich brauche hilfe.

    Zu meinem Problem:

    Ich habe mehrere Zeiten , die durch das Ziehen eines Labels per Drag & Drop ausgewertet werden die anzahl der Zeiten ist variabel ebenso wie die anzahl der Teilnehmer ( Bsp. gebe ich 4 teilnehmer und 4 zeiten ein gibt es 4 teilnehmer mit jeweils 4 zeiten also gesammt 16 zeiten)

    Das funktioniert auch soweit alles super , nun möchte ich aber , dass wenn man nicht in der "richtigen" reihenfolge die zeiten in die Tb zieht der wert im nachhinein aktualisiert wird.

    (Also wenn ich bsp bei Teilnehmer 1 in der 3 Zeit eine 1:22 habe und dann im nachhinein eine 0:22 in die 2 zeit ziehe soll von der zweiten zur dritten zeit nur 1 min als abstand ausgegeben werden, momentan wird eine im nachhinein eingefügte zeit noch ignoriert)

    Ich weiß dass es eine Filewatcher funktion gibt allerdings habe ich versucht die einzufügen was allerdings nichts gebracht hat :S

    ich werde hier mal hoffentlich alles wichtige für dieses problem aus meinem code einfügen:

    Quellcode

    1. Public Sub TextBox6_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs)
    4. If e.Data.GetDataPresent(DataFormats.Text) Then
    5. Me.Text = e.Data.GetData(DataFormats.Text).ToString
    6. CType(sender, TextBox).AppendText(e.Data.GetData(DataFormats.Text, True))
    7. intZeit2 = 0
    8. intzeitMinuten = 0
    9. timer3.Enabled = True
    10. Try
    12. For j = 1 To Me.tt
    15. For i = 1 To Me.tz
    17. If Label1.Text <> "" And Label1.Text = Panel1.Controls("tbTest" & i).Text And labelnichtdoppelt = 1 Then
    18. welchesLabel = intzeit21
    19. Label1.Text = ""
    20. intZeit2 = intzeit21
    21. labelnichtdoppelt += 1
    23. End If
    25. If Label2.Text <> "" And Label2.Text = Panel1.Controls("tbTest" & i).Text And labelnichtdoppelt = 1 Then
    26. welchesLabel = intzeit22
    27. Label2.Text = ""
    28. intZeit2 = intzeit22
    29. labelnichtdoppelt += 1
    30. End If
    31. If Label3.Text <> "" And Label3.Text = Panel1.Controls("tbTest" & i).Text And labelnichtdoppelt = 1 Then
    32. intZeit2 = intzeit23
    33. Label3.Text = ""
    34. labelnichtdoppelt += 1
    35. welchesLabel = intzeit23
    36. End If
    37. If Label4.Text <> "" And Label4.Text = Panel1.Controls("tbTest" & i).Text And labelnichtdoppelt = 1 Then
    38. intZeit2 = intzeit24
    39. Label4.Text = ""
    40. welchesLabel = intzeit24
    41. labelnichtdoppelt += 1
    42. End If
    44. If Label5.Text <> "" And Label5.Text = Panel1.Controls("tbTest" & i).Text And labelnichtdoppelt = 1 Then
    45. Me.k = 0
    46. Label5.Text = ""
    47. intZeit2 = intzeit25
    48. labelnichtdoppelt += 1
    49. welchesLabel = intzeit25
    50. End If
    54. If Panel1.Controls("tbTest" & i).Text <> "" Then
    55. If Panel1.Controls("tbZweitereihe" & i).Text = "" Then
    57. If Panel1.Controls("tbRechnen" & i).Text = "" Then
    60. Panel1.Controls("tbRechnen" & i).Text = intZeit2
    62. End If
    64. If i <> 1 Then
    68. If Panel1.Controls("tbRechnen" & i).Text <> "" Then
    69. If IsNumeric(Panel1.Controls("tbRechnen" & i).Text) And IsNumeric(Panel1.Controls("tbRechnen" & i - 1).Text) Then
    70. intZeit2 = Panel1.Controls("tbRechnen" & i).Text - Panel1.Controls("tbRechnen" & i - 1).Text
    71. ElseIf IsNumeric(Panel1.Controls("tbRechnen" & i).Text) And IsNumeric(Panel1.Controls("tbRechnen" & i - 2).Text) Then
    73. 'Dim zeitberechnung1 As Date = CDate(FindForm.Controls("tbDrittereihe" & i).Text)
    74. 'Dim zeitberechnung2 As Date = CDate(FindForm.Controls("tbDrittereihe" & i - 1).Text)
    76. intZeit2 = Panel1.Controls("tbRechnen" & i).Text - Panel1.Controls("tbRechnen" & i - 2).Text
    78. 'stringzeit = Date.Compare(zeitberechnung1, zeitberechnung2)
    80. ElseIf IsNumeric(Panel1.Controls("tbRechnen" & i).Text) And IsNumeric(Panel1.Controls("tbRechnen" & i - 3).Text) Then
    81. intZeit2 = Panel1.Controls("tbRechnen" & i).Text - Panel1.Controls("tbRechnen" & i - 3).Text
    82. ElseIf IsNumeric(Panel1.Controls("tbRechnen" & i).Text) And IsNumeric(Panel1.Controls("tbRechnen" & i - 4).Text) Then
    83. intZeit2 = Panel1.Controls("tbRechnen" & i).Text - Panel1.Controls("tbRechnen" & i - 4).Text
    84. End If
    86. End If
    89. End If
    90. r = i
    93. 'Zeit in String umwandeln
    94. For l = 0 To 9999
    95. If intZeit2 >= 60 Then
    97. Me.intZeit2 = Me.intZeit2 - 60
    99. intzeitMinuten += 1
    100. End If
    102. If intzeitMinuten < 10 Then
    104. If intZeit < 10 Then
    105. stringzeit = "0" & intzeitMinuten & ":" & "0" & intZeit2
    106. Else
    107. stringzeit = "0" & intzeitMinuten & ":" & intZeit2
    108. End If
    110. Else
    112. If intZeit < 10 Then
    113. stringzeit = intzeitMinuten & ":" & "0" & intZeit2
    114. Else
    115. stringzeit = intzeitMinuten & ":" & intZeit2
    116. End If
    118. End If
    119. Next
    121. 'Zeit als String ausgeben
    122. Panel1.Controls("tbZweitereihe" & i).Text = stringzeit
    124. End If
    126. If Panel1.Controls("tbDrittereihe" & i).Text = "" Then
    128. datetime = startzeitt.AddSeconds(welchesLabel).ToLongTimeString
    130. Panel1.Controls("tbDrittereihe" & i).Text = datetime.ToLongTimeString
    132. End If
    133. End If
    136. Next
    137. Next
    138. labelnichtdoppelt = 1
    139. Catch ex As Exception
    141. For Each c As Control In Panel1.Controls
    144. If InStr(c.Name, "tbTest") > 0 Then
    146. End If
    148. Next
    149. End Try
    150. End If
    153. End Sub


    da muss nun irgendwo noch eine aktualisierung initialisiert werden, wie weiß ich nicht :(

    Würde mich über hilfe sehr freuen !

    mfg M-Jay

    @M-Jay:
    Mach mal ein sehr einfaches Beispiel, wie die Daten vorher aussehen können und wie sie danach aussehen sollen.
    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!

    @ vb-paradise.de/user/10037-rodfromgermany/

    bsp

    tb1 bekommt den wert: 00:00
    tb2 bleibt erstmal leer

    tb3 bekommt den wert:00:20 (weil 20 sekunden mehr als vom letzten (in diesem fall tb1) eintrag)


    soweit so gut

    ich möchte nun folgenes erreichen

    tb1 bekommt den wert: 00:00
    tb2 bleibt erstmal leer

    tb3 bekommt den wert:00:20 (weil 20 sekunden mehr als vom letzten (in diesem fall tb1) eintrag)


    dann kommt in tb2 der wert: 00:10
    damit soll sich dann tb3 ändern in :00:10 weils nurnoch 10 sek vom letzten eintrag entfernt ist der in diesem fall aus tb2 kommt


    hoffe das ist verständlich ?(

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „M-Jay“ ()

    M-Jay schrieb:

    hoffe das ist verständlich
    Nicht so recht.
    "00:00"
    ""
    "00:20"
    ==>
    "00:00"
    "00:10"
    "00:30"
    ???
    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!

    RodFromGermany schrieb:

    Und wo liegt das Problem?
    Unter welchen Bedingungen kann das
    und unter welchen Bedingungen darf das nicht
    einfach ersetzt werden :?:
    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!

    M-Jay schrieb:

    naja es soll halt ersetzt werden
    Ja dann tue es doch einfach.
    Wo ist das Problem?
    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!

Facebook
Telefonspende