Hi !
Ich versuche einer Variable jeweils durch setzen eines Hackens in einer CheckBox einen anderen Wert zuzuweisen und benutze dazu eine Do Loop Schleife zur Abfrage. Aber VB6 friert ein und es geht nichts mehr.
Private Sub Timer11_Timer()
Dim s As String
ReDim Eingabe(hwnd) As String
Dim msgstring As String
msgstring = s
Do
If Check3.Value = 1 Then s = Text16.Text
Do
If Check3.Value = 0 Then s = Text14.Text
Loop
Loop
Eingabe(hwnd) = Text7.Text
SendMessage Eingabe(hwnd), WM_SETTEXT, &H0, ByVal msgstring
End Sub
Vielleicht gibts auch eine andere Lösung?.
Ich versuche einer Variable jeweils durch setzen eines Hackens in einer CheckBox einen anderen Wert zuzuweisen und benutze dazu eine Do Loop Schleife zur Abfrage. Aber VB6 friert ein und es geht nichts mehr.
Private Sub Timer11_Timer()
Dim s As String
ReDim Eingabe(hwnd) As String
Dim msgstring As String
msgstring = s
Do
If Check3.Value = 1 Then s = Text16.Text
Do
If Check3.Value = 0 Then s = Text14.Text
Loop
Loop
Eingabe(hwnd) = Text7.Text
SendMessage Eingabe(hwnd), WM_SETTEXT, &H0, ByVal msgstring
End Sub
Vielleicht gibts auch eine andere Lösung?.