Knoppen

In dit project maken we een aantal eigenschappen van knoppen duidelijk. We gaan Default en Cancel illustreren, waarbij de gebruiker ENTER en ESCAPE kan gebruiken en het programma reageert alsof er op een knop is gedrukt. We tonen een grafische knop, we experimenteren met ToolTipText en Enabled, en tonen dat een knop ook kan reageren op andere dingen dan klikken.

Maak een nieuw project en plaats op het formulier:

• Vijf grotere knoppen onder elkaar, met als naam en opschrift:
  

  cmdDefault	&Default
  cmdCancel	&Cancel
  cmdGrafisch	&Grafisch
  cmdToolTipText	&ToolTipText
  cmdMouseMove	&Mousemove

• Naast Grafisch platsen we twee kleinere knoppen (cmdDisable - Di&sable en cmdEnable - &Enable)
  
• Default is een eigenschap die men kan instellen om de knop te laten reageren op Enter. Zet de eigenschap Default van cmdDefault op True, en voeg de volgende code toe in de gebeurtenis Click:
  MsgBox "Reactie van Default"
  Je krijgt deze boodschap te zien als je drukt op enter, Alt+D (dat is het effect van de & in de Caption) intikt of op de knop klikt.
• Cancel is de eigenschap van een knop die men kan instellen om de knop te laten reageren op Escape. Zet cancel op True, en voeg de volgende code toe in de gebeurtenis Click:
  MsgBox "Reactie van Cancel"
• Een grafische knop is een knop die een icoon kan tonen. Zet Style op 1 - Graphical en kies drie verschillende iconen: één voor Picture, één voor DisabledPicture (dat wordt getoond als de knop niet Enabled is) en één voor DownPicture (dat wordt getoond als er op de knop geklikt wordt).
• Natuurlijk moeten we die knop dan ook nog desactiveren en terug activeren. Dat doen we resp. in cmdDisable, met de code
  cmdGrafisch.Enabled = False
  en omgekeerd in cmdEnable met de code
  cmdGrafisch.Enabled = True
  Natuurlijk willen we graag dat die knop onmiddellijk geselecteerd wordt, wat we doen met
  cmdGrafisch.SetFocus [In .NET is dit cmdGrafisch.Focus]
• Met cmdToolTiptext willen we de gebruiker zelf ToolTipText laten instellen. Dat doe je met
  cmdToolTipText.ToolTipText = InputBox("Geef een nieuwe ToolTipText")
• Met cmdMouseMove willen we tonen da een knop op iets anders kan reageren, zoals op de muis die overkomt. Plaats in het event MouseMove
  cmdMouse.Caption = "Ik zie ze!"
  Natrrulijk moeten we de aanvankeleijke waarde herstellen,w at we kunnen doen in de MouseMove gebeurtenis van het formulier met
  cmdMouse.Caption = "&Mousemove"
• Je kan hier het project downloaden.

[VB Web] - [hlrnet] - [copyright]