Onregelmatige formulieren

Formulieren zijn zeer lang rechthoeken geweest. In .NET is het niet echt moeilijk om formulieren te maken die niet rechthoekig zijn. De basis daarvan zijn een beeld waarvan één kleur transparant is, en een formulier dat geen randen heeft.

Let er wel op dat je geen randen zal hebben, en bv. geen menu kan gebruiken.

Maak een illustratie waarvan één kleur geheel (alles van die kleur, maar slechts één kleur) transparant zal zijn.
Maak een VB .NET applicatie. In dat formulier:
- Voeg de illustratie toe als achtergrond. Je zal een Resource file aanmaken waar dat beeld in zit.
- FormBorderStyle zet je op None - geen rand.
- ControlBox zet je op False. Anders zie je mogelijk toch nog een dunne witte rand.
Voeg een knop toe waarmee je de applicatie (of het formulier) kan sluiten:
Me.Close()
Voeg de volgende variabelen toe:
Private mouseOffset As Point
Private isMouseDown As Boolean = False
In MouseDown van het formulier (= de gebruiker klikt op het formulier) zet je
Dim xOffset As Integer
Dim yOffset As Integer
If e.Button = MouseButtons.Left Then
xOffset = -e.X - SystemInformation.FrameBorderSize.Width
yOffset = -e.Y - SystemInformation.CaptionHeight - _ SystemInformation.FrameBorderSize.Height
mouseOffset = New Point(xOffset, yOffset)
isMouseDown = True
End If
In MouseMove van het formulier (de muis wordt bewogen) zet je:
If isMouseDown Then
Dim mousePos As Point = Control.MousePosition
mousePos.Offset(mouseOffset.X, mouseOffset.Y)
Location = mousePos
End If
In MouseUp van het formulier (de muis wordt losgelaten) zet je:
isMouseDown = False

Geïnspireerd op deze fiche van Microsoft.