[vb6] Alle textboxen leeg

[anoniem]

Hallo Allen, Ik heb op meerdere Form's heel veel textboxen. Al die textboxen moeten tijdens het laden van het form leeg gemaakt worden. Nou heb ik de volgende code om alle forms te sluiten: [code:1:1ef7b066e5]Public Sub UnloadAllForms() Dim Form As Form For Each Form In Forms Unload Form Set Form = Nothing Next Form End Sub[/code:1:1ef7b066e5] Dus ik dacht deze code ff om te bouwen naar het volgende: [code:1:1ef7b066e5]Dim Textbox as Textbox For Each Textbox In Form Textbox.Text = "" Next Textbox[/code:1:1ef7b066e5] Maar dit werkt dus niet. Weet iemand hoe ik op een makkelijke manier alle textboxen leeg kan maken? Want ik het geen zin om in alle forms iedere keer met 1 regel code per textbox de textboxen leeg te maken...... Alvast bedankt.

[anoniem]

[code:1:b02f85d481]Private Sub Form_Load() Dim t As Integer On Error Resume Next 'handig voor als een control geen textbox is For t = 0 To Me.Controls.Count - 1 Me.Controls(t).Text = "" Next t End Sub [/code:1:b02f85d481]

[anoniem]

PERFECT!!!!!!!!!!!!!!!!! Bedankt, deze code kan ik ook nog voor andere dingen gebruiken in mijn proggie!! Bedankt