Oplossing oefeningen Functies en Gebeurteniseigenschappen

Oefening 1

Koppel aan de gebeurteniseigenschap 'bij Aanwijzen' de gebeurtenisprocedure 'Form_Current':

Private Sub Form_Current()
If IsNull(Fax_nr) Then
   Fax_nr.Visible = False
Else
   Fax_nr.Visible = True
End If
End Sub

terug

Oefening 2

Koppel onderstaande functie aan de gebeurteniseigenschap 'bijAanwijzen'

Public Function MijnOpmaak(x As String)
Select Case Left(x, 1)
   Case 1, 2
      Me.Caption = "Eerste graad"
      Me.Detail.BackColor = RGB(255, 0, 0)
   Case 3, 4
      Me.Caption = "Tweede graad"
      Me.Detail.BackColor = RGB(0, 255, 0)
   Case 5, 6
      Me.Caption = "Derde graad"
      Me.Detail.BackColor = RGB(0, 0, 255)
End Select

End Function

terug