Private Okręt podwodny Button1_Click (ByVal nadawca Jako System.Object, ByVal e Jako System.EventArgs) Obchodzić się Button1.Click
'definiować GDI+ kontekst forma
Ćmić GdiSurface Jako Grafika
GdiSurface = Me.CreateGraphics
'rysować gęsty krzywa
Ćmić CurvePen Jako Nowy Pióro (Color.Plum, 30)
Ćmić CurvePoints () Punkt = {Nowy Punkt (10, 100), Nowy Punkt (50, 80), Nowy Punkt (200, 200)}
GdiSurface.DrawCurve (CurvePen, CurvePoints)
'rysować prostokąt
Ćmić RecPen Jako Nowy Pióro (Color.Crimson, 10) 'perymetr
Ćmić RecBrush Gdy Nowy SolidBrush (Color.LightBlue) 'farba the ciało
GdiSurface.DrawRectangle (RecPen, 10, 10, 200, 30)
GdiSurface.FillRectangle (RecBrush, 10, 10, 200, 30)
'Uwalniać GDI kontekst
GdiSurface.Dispose ()
Kończyć Okręt podwodny
|