Forms

3.91 Modificare il colore in primo piano e di fondo della label legata ad una casella di controllo o ad un pulsante di opzione a seconda del valore del controllo stesso
  Alessandro Baraldi

Questo demo mostra come sia possibile automatizzare la formattazione della label associata ad una casella di controllo o ad un pulsante di opzione.
Inserire in una maschera con l'autocomposizione una casella di controllo chiamata CasellaControllo0 ed un pulsante di opzione chiamato Opzione2.
Quindi a fronte del loro evento su "Dopo aggiornamento" generare il seguente codice VBA:
Private Sub CasellaControllo0_AfterUpdate()
ColorLabel Me!CasellaControllo0
End Sub
e
Private Sub Opzione2_AfterUpdate()
ColorLabel Me!Opzione2
End Su
Infine in un modulo standard del database inserire la seguente Sub:
Public Sub ColorLabel(ctl As Control)
    ' A seconda del valore di ctl,
    ' imposta il colore di primo piano della label allegata a nero o bianco
    ' e lo sfondo a rosso o a trasparente.
    
    With ctl.Controls(0)
        If ctl Then
            .BackStyle = 1
            .BackColor = vbRed
            .ForeColor = vbWhite
        Else
            .BackStyle = 0
            .ForeColor = vbBlack
        End If
    End With
End Sub

Se pensate di avere del materiale freeware interessante e volete pubblicarlo, allora leggete qui.