Hi @ll
Ich habe versucht ein Timer der sich einstellen läßt über Hscroll von 1-9 Minuten zu coden, aber irgendwie funktioniert er nicht richtig. Starten will ich ihm über eine Checkbox:
Private Sub Check5_Click()
Call Intervall_Timer8
End Sub
Private Sub Intervall_Timer8()
Timer8.Enabled = True
Dim t_Zaehler As Long
Dim Takt As String
t_Zaehler = t_Zaehler + 1
Takt = HScroll2.Value 'Zeitintervall 1-9 Minuten
If t_Zaehler = Takt Then
Call Animation 'ist die Funktion die zyklisch ausgeführt wird
End If
End Sub
Private Sub HScroll2_Change() 'Zeit einstellen Chat Animierung
Dim Takt As String
HScroll2.Max = 9
HScroll2.Min = 1
Takt = HScroll2.Value
End Sub
Und es soll allso immer Zyklisch weiter arbeiten, bis der Hacken aus der Checkbox wieder entfernt wird.
Hier die Letzten Zeilen von der Zyklischen Anwendung "Animation", die den Timer neu starten.
ReDim Enter(Hwnd) As String
Enter(Hwnd) = Text5.Text 'hier wird Enter an Sendbutten gesendet
SendMessage Enter(Hwnd), BM_CLICK, 0&, 0&
Timer8.Enabled = False
Call Check5_Click 'hiermit beginnt dann der Timer wieder von vorn.
End Sub
Aber irgendwo ist der Wurm drin, da ich Anfänger bin in Vb6 stehe ich einfach auf den Schlauch, manchmal geht es und meistens aber nicht. Wen ich mehrmals auf die Checkbox klicke geht es, aber irgendwann hängt sich VB6 auf, was ist falsch?.
Ich habe versucht ein Timer der sich einstellen läßt über Hscroll von 1-9 Minuten zu coden, aber irgendwie funktioniert er nicht richtig. Starten will ich ihm über eine Checkbox:
Private Sub Check5_Click()
Call Intervall_Timer8
End Sub
Private Sub Intervall_Timer8()
Timer8.Enabled = True
Dim t_Zaehler As Long
Dim Takt As String
t_Zaehler = t_Zaehler + 1
Takt = HScroll2.Value 'Zeitintervall 1-9 Minuten
If t_Zaehler = Takt Then
Call Animation 'ist die Funktion die zyklisch ausgeführt wird
End If
End Sub
Private Sub HScroll2_Change() 'Zeit einstellen Chat Animierung
Dim Takt As String
HScroll2.Max = 9
HScroll2.Min = 1
Takt = HScroll2.Value
End Sub
Und es soll allso immer Zyklisch weiter arbeiten, bis der Hacken aus der Checkbox wieder entfernt wird.
Hier die Letzten Zeilen von der Zyklischen Anwendung "Animation", die den Timer neu starten.
ReDim Enter(Hwnd) As String
Enter(Hwnd) = Text5.Text 'hier wird Enter an Sendbutten gesendet
SendMessage Enter(Hwnd), BM_CLICK, 0&, 0&
Timer8.Enabled = False
Call Check5_Click 'hiermit beginnt dann der Timer wieder von vorn.
End Sub
Aber irgendwo ist der Wurm drin, da ich Anfänger bin in Vb6 stehe ich einfach auf den Schlauch, manchmal geht es und meistens aber nicht. Wen ich mehrmals auf die Checkbox klicke geht es, aber irgendwann hängt sich VB6 auf, was ist falsch?.
Zuletzt bearbeitet:
