Private VorButton1_Click (ByVal Absender als System.Object, ByVal e als System.EventArgs) behandelt Button1.Click
'den GDI+ Zusammenhang definieren, der eine Form darstellt
GdiSurface als Grafiken verdunkeln
GdiSurface = Me.CreateGraphics
'eine starke Kurve zeichnen
CurvePen als neue Feder (Color.Plum, 30) verdunkeln
CurvePoints () als Punkt verdunkeln = {neuer Punkt (10, 100), neuer Punkt (50, 80), neuer Punkt (200, 200)}
GdiSurface.DrawCurve (CurvePen, CurvePoints)
'Viereck zeichnen
RecPen als neue Feder verdunkeln (Color.Crimson, 10) 'Umkreis
RecBrush verdunkeln während neues SolidBrush (Color.LightBlue) 'Farbe der Körper
GdiSurface.DrawRectangle (RecPen, 10, 10, 200, 30)
GdiSurface.FillRectangle (RecBrush, 10, 10, 200, 30)
'GDI Zusammenhang freigeben
GdiSurface.Dispose ()
Unterseeboot beenden
|