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 FunctionLe modalità di richiamo della funzione sono indicate in righe di commento poste all'inizio del codice VBA della funzione stessa. Download: |