Besturingselementen en formulieren - Pearson Education

11 Besturingselementen en formulieren
vakken, dan wordt de informatie aan de lijst toegevoegd op dezelfde manier zoals in
hoofdstuk 9 al uitgebreid is doorgenomen. U ziet dat aan het eind van de procedure de
beide tekstvakken leeg gemaakt worden en de cursor weer in het naamvak geplaatst
wordt met txtNaam.SetFocus.
C Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
MsgBox "U kunt dit formulier alleen sluiten met de Annuleren-knop",
_
vbOKOnly Or vbInformation
Cancel = True
End If
End Sub
Elk formulier heeft net zoals alle andere Windows-vensters een pictogram Sluiten in
de rechter bovenhoek. Als u niet wilt dat de gebruiker hiermee het venster kan sluiten,
kunt u dat verhinderen door de Cancel-parameter op True te zetten. Hiermee geeft u
het besturingssysteem een seintje dat het formulier niet opgeruimd mag worden.
Opdracht 11.3
1 Waar zou u een controle inbouwen op een correcte invoer van een tekstvak? U kunt bij het telefoonnummer
denken aan een beperking van de invoer tot cijfers en een liggend streepje.
2 Bouw zo’n controle in.
11.4 Oplossing opdracht 11.1
Hoewel u in het event Workbook_Open natuurlijk de combobox net zo kunt vullen
als dat in het event Worksheet_Activate gebeurde waarbij wel de naam van het werkblad
toegevoegd moet worden, kan het ook op een elegante manier zonder twee keer
hetzelfde te moeten programmeren. We weten dat als een procedure benoemd wordt
met het woord Private, dat die procedure alleen herkenbaar is binnen het werkblad of
de module waar ze in is opgeslagen. Als u in het blad Gebeurtenissen Private Sub
Worksheet_Activate() wijzigt in Public Sub Worksheet_Activate(), is de procedure
ineens in alle werkbladen en -mappen herkenbaar.
Het Workbook_Open event wordt dan:
C Private Sub Workbook_Open()
With Worksheets("Gebeurtenissen")
.Select
.Worksheet_Activate
End With
End Sub
295