CreatePen(width as Numeric, type as Numeric, color as Numeric) as PenType
Erzeugen eines Stifts.
Parameter
width
Stiftbreite
type
PEN_SOLID, PEN_DOT, PEN_DASH, PEN_NULL
color
Farbe des Stifts
Beschreibung
Ein Stift wird dazu verwendet, eine Linie zu zeichnen. PEN_NULL erzeugt einen unsichtbaren Stift. Dieser kann dazu verwendet werden, eine Linie verschwinden zu lassen.
Eine Stiftbreite von 0 erzeugt eine Haarlinie.
Beispiel
Dim p as PenType = CreatePen (10, PEN_SOLID, COLOR_BLACK)
SelectPen (p)
|
Dim p as PenType |
Definieren der Variable f als Identifikator |
|
CreatePen |
Erzeugen des Stifts |
|
10 |
Stiftbreite |
|
PEN_SOLID |
Typ |
|
COLOR_BLACK |
Schriftfarbe |
|
SelectPen |
Befehl |
|
p |
Identifikator |
Diese Funktion liefert einen PenType -Wert zurⁿck. Mit Hilfe dieses Wertes kann die Funktion SelectPen den aktuellen Stift setzen.
Siehe auch