Opdatering a tekst felter

Findes der en metode til tekst felter som efter nogle sekunder opdatere indholdet ??

Private Sub Form_Load()
Timer1.Interval = 6000 ' Timer -hændelsen affyres hver 6. sekund
End Sub

Private Sub Timer1_Timer()
MsgBox "Her er indtastet " & TælTegn(txtSkriv) & " tegn..." 'Kalder funktionen TælTegn hver 6. sekund
End Sub


Public Function TælTegn(Tekst As String) As Integer
TælTegn = Len(Tekst) 'Returnerer antallet af tegn
End Function

Du kan benytte Timeren til at styre en tidsbestemt validering eller opdatering af et Tekstfelt.
Ovenstående kode er blot et eksempel på hvordan du laver det tidsbestemte funktionskald.....

Det findes der i vis C++, her hedder den Invalidate() og tror nok den hedder paint i VB. Du kalder blot funktionen pait eller Repaint. Ellers se hjælp omkring Paint eller Repaint....
Best Regaard
Janus S. Andersen

*** Livet er smukt ***

Findes der en metode til tekst felter som efter nogle sekunder opdatere indholdet ??