
' nasconde tutte le label contenute sul form, sia nel Frame1 sia nel frame2
Dim ctrl As Control
For Each ctrl In Me.Controls
Select Case LCase$(TypeName(ctrl))
Case "label"
ctrl.Visible = False
End Select
Next ctrl
|
' codice corretto
Dim ctrl As Control
For Each ctrl In Me.Frame5.Controls
Select Case LCase$(TypeName(ctrl))
Case "label"
ctrl.Visible = False
End Select
Next ctrl
'se vogliamo anche nascondere le textbox, allora:
Dim ctrl As Control
For Each ctrl In Me.Frame5.Controls
Select Case LCase$(TypeName(ctrl))
Case "label", "textbox"
ctrl.Visible = False
End Select
Next ctrl
|
