Formulieren

• Formulieren worden gebruikt om andere controls op te plaatsen en in één scherm aan de gebruiker aan te bieden.
• In dit voorbeeld maken we een programma dat er zo uitziet:
  
  De eerste knop maakt een kopie van het eerste formulier, de tweede maakt het formulier transparanter en de derde knop sluit het formulier.
• We maken het programma als volgt:
  • Op het formulier dat in het project zit, plaatsen we drie knoppen. De eigenschappen van de het formulier stellen we als volgt in:
     

    Eigenschap	Waarde
    Name	(laten we onveranderd op Form1)
    MaximizeBox	False
    MinimizeBox	False

  • Bovendien zouden we gebruik kunnen maken van de volgende eigenschappen:
    • BackColor (de achtergrondkleur)
    • BackgroundImage (het beeld dat als achtergrond gebruikt wordt)
    • CancelButton (welke knop er geactiveerd wordt als de gebruiker op Escape drukt)
    • Contextmenu (welk menu dienst doet als contextueel menu)
    • ControlBox (of er een control box wordt getoond linksboven het formulier)
    • DockPadding (hoeveel pixels de gedockte controls van de rand blijven) (zie Docking)
    • Icon (welk het icoon is van het formulier)
    • IsMdiContainer (of het formulier andere formulieren bevat - zie meervoudige formulieren)
    • Language en Localizable: of er versies van dit formulier in andere talen bestaan
    • Menu (welk het hoofdmenu is - zie menu)
    • Opacity (of het formulier transparant is - daar gaan we in de code mee werken)
    • ShowInTaskbar (of het icoon van het forumier ind e taakbalk geroond wordt)
    • WindowState (of het formulier geminimaliseerd, gemaximaliseerd of gewoon wordt weergegeven)
  • De knoppen stellen we als volgt in:
     

    	Name (naam)	Text (opschrift)
    eerste knop	cmdNewForm	Nieuw formulier
    tweede knop	cmdCloseThis	Maak transparanter
    derde knop	cmdTransparant	Sluit dit formulier

    We gebruiken hier niet de & voor sneltoetsen die we bespreken bij de knoppen.

• Om een nieuwe copie van het bestaand formulier te maken doen we dit:
  Dim frm As New frmBestaandformulier
  frm.Show()
• Transparantie wordt ingesteld met Opacity. Dat is een getal tussen 1 (geen transparantie) en 0 (volledig transparant). Als een formulier volledig transparant is, sluiten we het.
• Om het formulier te sluiten gebruiken we Me.Dispose(). Me staat daarin voor dit formulier.
• De code die we intikken gaat als volgt:
  Private Sub cmdNewForm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdNewForm.Click
  Dim f As New Form1
  f.Show()
  End Sub
  Private Sub cmdCloseThis_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCloseThis.Click
  Me.Dispose()
  End Sub
  Private Sub cmdTransparant_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdTransparant.Click
  'Je kan transparantie ook doen met één kleur, bv. de achtergrondkleur: Me.TransparencyKey = Me.BackColor
  Me.Opacity = Me.Opacity - 0.1
  If Me.Opacity = 0 Then Me.Dispose()
  End Sub
• Je kan het programma downloaden.
• Je kan het project downloaden.
• Kijk misschien ook eens naar meervoudige formulieren (MDI formulieren).
• Kijk ook naar de mogelijkheid om onregelmatige (niet rechthoekige) formulieren te maken.

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