Da Tutorial #3 (Rundes Fenster mit Loch) nur bis VisualBasic 6 Funktioniert, ist hier eine Version für VB.NET.
Im Prinzip reicht folgendes Code-Stück:
|
Code: |
1:Dim mypen As New Drawing.Pen(Color.Black, 10)
2:Me.CreateGraphics.Clear(Color.White)
3:Me.CreateGraphics.DrawEllipse(mypen, 10, 10, 30, 30)
4:Me.TransparencyKey = Color.White
|
Erst wird "mypen" als neuen "pen" (Stift) deklariert. Gleichzeitig
weisst man ihm die Dicke "10" und die Farbe Schwarz zu.
mit Me.CreateGraphics.Clear kann das Fenster "gelöscht" werden. Das
Fenster wird dann einfahc mit der angegebenen Farbe ausgefüllt.
Farben werden in VB.Net nicht mehr mit den fabkonstanten vom "alten"
VB angegeben (zb. vbBlack oder vbRed) sondern neu mit: color.<farbe>
Me.CreateGraphics.DrawEllipse wird benötigt um eine Ellipse zu
zeichnen. Hier gibt es verschiedene Arten die Funktion auszuführen.
Als erstes Argument wird der "stift" übergeben. Er bestimmt Farbe
und Dicke. Dannach kommt die Position. Entweder man erstellt vorher
ein Viereck (rectangular) oder man gibt direkt die koordinatenund
die Höhe & Breite der Ellipse an.
Mit der letzten Zeile setzt man eine bestimte Farbe auf Transparent.
Also alles was auf dme Form zu sehen ist und diese Farbe hat wird
durchsichtig: Me.TransparencyKey = Color.White
Eigentlich ganz einfach ;-) Und wenn ihr mit den Befehlen ein bisschen rumspielt werdet ihr schnell sehen was man damit alles machen kann.
Viel Spass beim programmieren.
|