VB.NET2005 源代码 B
例 3-1 源代码
例 3-1 的设计界面：
例 3-1 源代码
Public Class Form1
Dim graph As Graphics = Me.CreateGraphics
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button3.Click
Me.Close()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
Dim mypen1 As Pen = New Pen(Color.Blue, 5)
Dim mypen2 As Pen = New Pen(Color.Red, 5)
graph.DrawEllipse(mypen1, 50, 50, 100, 100)
graph.DrawEllipse(mypen2, 50, 50, 150, 200)
mypen1.Dispose()
End Sub
1 / 33
剩余32页未读，继续阅读
资源评论
