|
Modules |
| 5.87 Funzione per Abilitare/Disabilitare, Bloaccare/Sbloccare e Mostrare/Nascondere alcuni controlli di una maschera |
| Luciano Gori |
|
Con la funzione che segue è possibile Abilitare/Disabilitare, o Bloccare/Sbloccare oppure Mostrare/Nascondere tutti i controlli di una maschera che abbiano un determinato TAG. Function CheckControlli(StrForm As String, StrTag As String, StrTipo As String, BooValue As Boolean)
' Titolo: CheckControlli
' Data: 8 Dicembre 2005
' Versione: 1.0
' Modificata:
' Autore: ElleGi
' Accetta: StrForm --> Nome della form; StrTag --> Valore del tag;
' StrTipo --> "Enabled", "Visible", "Locked"; Boovalue --> "True", "False"
' Esegue: Nasconde/Mostra, Abilita/Disabilita, Blocca/Sbocca i controlli delle forms
' Restituisce:
' Esempio: Call CheckControlli(Me.FormName, 1, "Locked", "True")
' Note:
On Error GoTo Err_GestioneErrori
Dim Ctrl As Control
For Each Ctrl In Forms(StrForm).Controls
Select Case StrTipo
Case "Enabled"
If Ctrl.Tag = StrTag Then Ctrl.Enabled = BooValue
Case "Visible"
If Ctrl.Tag = StrTag Then Ctrl.Visible = BooValue
Case "Locked"
If Ctrl.Tag = StrTag Then Ctrl.Locked = BooValue
End Select
Next
Exit_GestioneErrori:
Exit Function
Err_GestioneErrori:
Select Case Err.Number
Case Else
MsgBox "Si prega l'utente di annotare questi riferimenti e di comunicarli al programmatore." & vbCrLf & vbCrLf & "Errore nš : " & Err.Number & vbCrLf & vbCrLf & "Descrizione : " & Err.Description, 48, " Errore"
End Select
Resume Exit_GestioneErrori
End Function
Le modalità di richiamo della funzione sono indicate in righe di commento poste all'inizio del codice VBA della funzione stessa.
Download: |
