title image


Smiley Re: Automatische Übergabe/Speicherung eines Textbox-Eintrags
Wenn es eine feste Anzahl von Zeichen ist, brauchst du nur im Chance-Event mitzählen



Private arr() As String



Private Sub Text1_Change()

Static i As Long

Dim help As Long

   i = i + 1

   '// Zählen von 0 - 9, weil eine Static-Variable

   '// beim ersten Aufruf der Sub den Wert 0 hat

   If i = 9 Then

      On Error Resume Next

      help = Ubound(arr) + 1

      If Err.Number 0 Then help = 0

      On Error Goto 0

      Redim Preserve arr(help)

      arr(help) = Me.Text1.Text

      Me.Text1.Text = ""

   i = 0

   End If

End Sub


Gruß
Gaga

___________________________________________________________________

Profilösungen für VB6
wenn nicht anders angegeben, sind alle Codebeispiele nicht getestet, nur getippt


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: