Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim g1 As Graphics
Dim g2 As Graphics
g1 = Me.CreateGraphics
Dim imagepath As String
imagepath = "d:\picture\"
Dim backimage As Image
backimage = New Bitmap(imagepath & "star.Gif")
g1.DrawImage(backimage, 0, 0)
Dim textureimage As Image = New Bitmap(imagepath & "star.jpg")
Dim shadowbrush As Brush = New TextureBrush(textureimage)
Dim texturebrush = New SolidBrush(Color.Black)
Dim lineargradbrush As Brush
Dim fntfont As Font
fntfont = New Font("黑体", 20, FontStyle.Italic Or FontStyle.Underline)
g1.DrawString("您好,GDI+!", fntfont, shadowbrush, 1, 31)
g1.DrawString("您好,GDI+!", fntfont, texturebrush, 0, 30)
Dim p As Pen = New Pen(Color.Red, 5)
g1.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
g1.DrawEllipse(p, 0, 180, 150, 55)
Dim graphicstate As Graphics
Dim i As Integer
For i = 1 To 10
Dim newpen As New Pen(Color.FromArgb(i * 25, Color.Red), 5)
g1.DrawRectangle(newpen, 150 + i * 5, 130 + i * 5, 80, 80)
Next
fntfont.Dispose()
shadowbrush.Dispose()
texturebrush.GetType()
backimage.Dispose()
g1.Dispose()
End Sub
运行怎么什么都没有啊?调试没有问题啊
