Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Programmeren

[vb6] Alle textboxen leeg

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.