Gruppe
Dialog
Problem
Wie kann ich UserForm-TextBoxes durch Schaltflächendruck ein- und ausblenden?
ClassModule: frmAusEin
Private Sub cmdAlle_Click()
Dim iCounter As Integer
If cmdAlle.Caption = "Alle Namen ausblenden" Then
For iCounter = 0 To 7
Controls(iCounter).Visible = False
Next iCounter
cmdAlle.Caption = "Alle Namen einblenden"
Else
For iCounter = 0 To 7
Controls(iCounter).Visible = True
Next iCounter
cmdAlle.Caption = "Alle Namen ausblenden"
End If
End Sub
Private Sub cmdEinsUndZwei_Click()
If cmdEinsUndZwei.Caption = "Namen 1 und 2 ausblenden" Then
lblName1.Visible = False
lblName2.Visible = False
txtName1.Visible = False
txtName2.Visible = False
cmdEinsUndZwei.Caption = "Namen 1 und 2 einblenden"
Else
lblName1.Visible = True
lblName2.Visible = True
txtName1.Visible = True
txtName2.Visible = True
cmdEinsUndZwei.Caption = "Namen 1 und 2 ausblenden"
End If
End Sub
Private Sub cmdWeiter_Click()
Unload Me
End Sub
StandardModule: basMain
Sub CallForm()
frmAusEin.Show
End Sub