code stelle für stelle hochzählen?

[keiichi]

hi leutz...
kann mir wer sagn wie ich das anstellen kann das

wenn ich ne 4 stellige zahl in eine txtbox eingeb
in einer 2ten txtbox stelle für stelle hochgezählt wird bis der wert aus der ersten txtbox erreicht ist?
der soll nicht einfach nur von 0-9999 hochzählen sondern die anzeige soll
auch immer 4 stellig sein

beispiel:

txtbox1 = 9999

txtbox2=0000

dann soll der von hinten nach vorn, stelle für stelle hochzählen bis der wert erreicht ist


wäre dankbar für hilfe

thx

keiichi

ps: würd das auch mit buchstaben statt zahlen funktionieren oder beides kombiniert? wie müsste man das dann schreiben? thx

 

[wincnc]

Hallo, hier ein Beispiel:
Du benötigtst 2 TextBoxen (Text1 und Text2) und einen CommandButton (Command1)

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()

Do While Not Text2.Text = Text1.Text
  Text2.Text = CStr(Format(CLng(Text2.Text) + 1, "0000"))
   DoEvents
  Sleep 20
Loop

End Sub

Private Sub Form_Load()
  Text1.Text = "1233"
  Text2.Text = "0"
End Sub

 

[keiichi]

danke schön....


funktioniert bestens