Attiva - disattiva vibilità controlli mediante TAG

domenica 01 aprile 2007 - 11.49

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

seven.7 Profilo | Junior Member

127 messaggi | Data Invio: dom 1 apr 2007 - 11:49

Mi funziona bene quando apro il programma la prima volta poi quando cerco di richiamarlo durante l'esecuzione e moglio quando inserisco una nuova usim non si vede nulla. Chiudo e riapro il programma e tutto funziona normalmente ... cosa puà essere?

Ciao utilizzo questo codice per disattivare-attivare la visibilità dei controlli:

Public Sub AttivaDisattivaEtichette(ByVal c As Control)
Dim _c As Control
Dim _button As Button
Dim _progressbar As ProgressBar
Dim _label As Label
Dim i As Integer = 0
For Each _c In c.Controls
AttivaDisattivaEtichette(_c)
If TypeOf _c Is Button Then
If _c.Tag > Me.NumeroDiUsimRegistrate - 1 Then
_button = DirectCast(_c, Button)
_button.Visible = False
End If
End If
If TypeOf _c Is ProgressBar Then
If _c.Tag > Me.NumeroDiUsimRegistrate - 1 Then
_progressbar = DirectCast(_c, ProgressBar)
_progressbar.Visible = False 'allora togli il segno di spunta
End If
End If
If TypeOf _c Is Label Then 'se _c è un CheckBox
If _c.Tag > Me.NumeroDiUsimRegistrate - 1 Then
_label = DirectCast(_c, Label)
_label.Visible = False
End If
End If
Next
End Sub

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !