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
ich werde hier mal hoffentlich alles wichtige für dieses problem aus meinem code einfügen:
da muss nun irgendwo noch eine aktualisierung initialisiert werden, wie weiß ich nicht
Würde mich über hilfe sehr freuen !
mfg M-Jay
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
ich werde hier mal hoffentlich alles wichtige für dieses problem aus meinem code einfügen:
Quellcode
- Public Sub TextBox6_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs)
- If e.Data.GetDataPresent(DataFormats.Text) Then
- Me.Text = e.Data.GetData(DataFormats.Text).ToString
- CType(sender, TextBox).AppendText(e.Data.GetData(DataFormats.Text, True))
- intZeit2 = 0
- intzeitMinuten = 0
- timer3.Enabled = True
- Try
- For j = 1 To Me.tt
- For i = 1 To Me.tz
- If Label1.Text <> "" And Label1.Text = Panel1.Controls("tbTest" & i).Text And labelnichtdoppelt = 1 Then
- welchesLabel = intzeit21
- Label1.Text = ""
- intZeit2 = intzeit21
- labelnichtdoppelt += 1
- End If
- If Label2.Text <> "" And Label2.Text = Panel1.Controls("tbTest" & i).Text And labelnichtdoppelt = 1 Then
- welchesLabel = intzeit22
- Label2.Text = ""
- intZeit2 = intzeit22
- labelnichtdoppelt += 1
- End If
- If Label3.Text <> "" And Label3.Text = Panel1.Controls("tbTest" & i).Text And labelnichtdoppelt = 1 Then
- intZeit2 = intzeit23
- Label3.Text = ""
- labelnichtdoppelt += 1
- welchesLabel = intzeit23
- End If
- If Label4.Text <> "" And Label4.Text = Panel1.Controls("tbTest" & i).Text And labelnichtdoppelt = 1 Then
- intZeit2 = intzeit24
- Label4.Text = ""
- welchesLabel = intzeit24
- labelnichtdoppelt += 1
- End If
- If Label5.Text <> "" And Label5.Text = Panel1.Controls("tbTest" & i).Text And labelnichtdoppelt = 1 Then
- Me.k = 0
- Label5.Text = ""
- intZeit2 = intzeit25
- labelnichtdoppelt += 1
- welchesLabel = intzeit25
- End If
- If Panel1.Controls("tbTest" & i).Text <> "" Then
- If Panel1.Controls("tbZweitereihe" & i).Text = "" Then
- If Panel1.Controls("tbRechnen" & i).Text = "" Then
- Panel1.Controls("tbRechnen" & i).Text = intZeit2
- End If
- If i <> 1 Then
- If Panel1.Controls("tbRechnen" & i).Text <> "" Then
- If IsNumeric(Panel1.Controls("tbRechnen" & i).Text) And IsNumeric(Panel1.Controls("tbRechnen" & i - 1).Text) Then
- intZeit2 = Panel1.Controls("tbRechnen" & i).Text - Panel1.Controls("tbRechnen" & i - 1).Text
- ElseIf IsNumeric(Panel1.Controls("tbRechnen" & i).Text) And IsNumeric(Panel1.Controls("tbRechnen" & i - 2).Text) Then
- 'Dim zeitberechnung1 As Date = CDate(FindForm.Controls("tbDrittereihe" & i).Text)
- 'Dim zeitberechnung2 As Date = CDate(FindForm.Controls("tbDrittereihe" & i - 1).Text)
- intZeit2 = Panel1.Controls("tbRechnen" & i).Text - Panel1.Controls("tbRechnen" & i - 2).Text
- 'stringzeit = Date.Compare(zeitberechnung1, zeitberechnung2)
- ElseIf IsNumeric(Panel1.Controls("tbRechnen" & i).Text) And IsNumeric(Panel1.Controls("tbRechnen" & i - 3).Text) Then
- intZeit2 = Panel1.Controls("tbRechnen" & i).Text - Panel1.Controls("tbRechnen" & i - 3).Text
- ElseIf IsNumeric(Panel1.Controls("tbRechnen" & i).Text) And IsNumeric(Panel1.Controls("tbRechnen" & i - 4).Text) Then
- intZeit2 = Panel1.Controls("tbRechnen" & i).Text - Panel1.Controls("tbRechnen" & i - 4).Text
- End If
- End If
- End If
- r = i
- 'Zeit in String umwandeln
- For l = 0 To 9999
- If intZeit2 >= 60 Then
- Me.intZeit2 = Me.intZeit2 - 60
- intzeitMinuten += 1
- End If
- If intzeitMinuten < 10 Then
- If intZeit < 10 Then
- stringzeit = "0" & intzeitMinuten & ":" & "0" & intZeit2
- Else
- stringzeit = "0" & intzeitMinuten & ":" & intZeit2
- End If
- Else
- If intZeit < 10 Then
- stringzeit = intzeitMinuten & ":" & "0" & intZeit2
- Else
- stringzeit = intzeitMinuten & ":" & intZeit2
- End If
- End If
- Next
- 'Zeit als String ausgeben
- Panel1.Controls("tbZweitereihe" & i).Text = stringzeit
- End If
- If Panel1.Controls("tbDrittereihe" & i).Text = "" Then
- datetime = startzeitt.AddSeconds(welchesLabel).ToLongTimeString
- Panel1.Controls("tbDrittereihe" & i).Text = datetime.ToLongTimeString
- End If
- End If
- Next
- Next
- labelnichtdoppelt = 1
- Catch ex As Exception
- For Each c As Control In Panel1.Controls
- If InStr(c.Name, "tbTest") > 0 Then
- End If
- Next
- End Try
- End If
- 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