Vraag & Antwoord

Programmeren

[vb6] Alle textboxen leeg

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

Anoniem
one_234
2 antwoorden
  • 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.
  • [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]

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.