- 12-25 23:31
- Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; Maxthon 2.0)
-
xcq
机长
头衔 --

注册 07-04-02
来自 sz
-
graphics
Public Class Form1
Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
draw1()
End Sub
Sub draw1()
Dim g As Graphics = Me.CreateGraphics
Dim myBrush As New System.Drawing.Drawing2D.LinearGradientBrush(ClientRectangle, Color.Green, Color.Blue, System.Drawing.Drawing2D.LinearGradientMode.Vertical)
g.FillEllipse(myBrush, New RectangleF(0, 0, Me.Height, Me.Width))
End Sub
Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
draw1()
End Sub
Private Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
draw1()
End Sub
End Class
广告位招租,广告代号:BbsGGADtop
-
219.133.175.* 楼主
-




