Teks van label terug naar orgineel

[Doofenshmirt]

Ik heb een checkbox , daar wil ik graag de tekst van een label mee veranderen.
Dat werkt.

Maar hoe kan ik dan weer terug naar de orginele tekst die er eerst stond.

 If Form1.CheckBox3.CheckState = 1 Then
            Label1.Text = ("Ordnungsnummer")
end if

 

[edmoor]

Zet de originele tekst niet alleen in het Text attribuut maar tevens in het Tag attribuut.
Je kunt dan altijd terug met

Label1.Text = Label1.Tag

 

[Doofenshmirt]

Bedankt dat werkt.

Ik wil een 2 talig programma maken , maar het zijn nog al wat labels.

Misschien is er een andere manier om dit sneller of anders te doen ?

We spreken over een 100 tal labels , en de pc waar het op draait is niet erg snel.

 

[edmoor]

Je kunt dat in 1 keer laten doen met de volgende code:

Private Sub SetOriginalText()
    Dim LBL As control
    
    For Each LBL In Form1.Controls
        If TypeName(LBL) = "Label" Then
            LBL.Text = LBL.Tag
        End If
    Next
End Sub

Die kun je dan bv. aanroepen vanuit het OnClick event van een knop of het OnOpen event van een formulier.

 

[Doofenshmirt]

Oke , gelijk een ander probleempje.

Ik heb de meeste labels in een Groupbox of een Tabcontrol.

Dan werkt het niet ? de labels die gewoon in het Form staan veranderen wel.

 

[JoZ1]

[cpp]For Each LBL As Control In Form1.Controls
If TypeName(LBL) = "Label" Then LBL.Text = LBL.Tag
For Each LBL2 As Control In LBL.Controls
If TypeName(LBL2) = "Label" Then LBL.Text = LBL2.Tag
Next
Next[/cpp]

En zo dan ?

 

[Doofenshmirt]

Nee ook niet, maar de tekst van Groupbox zelf veranderd nu wel.

Alleen de labels die in de Groupbox staan nog niet .

 

[Doofenshmirt]

www.vb-tips.com/ClearTextBox.aspx

En dit heb ik er van gemaakt ,en werkt.

Bedankt voor het meedenken.:thumb:

 Dim ctr As Control
        For Each ctr In parentCtr.Controls
            If TypeOf ctr Is Label Then

                ctr.Text = ctr.Tag
               
            End If
            doclean(ctr)
        Next