用VB制作绘图程序.docVIP

用VB制作绘图程序 第一步，先构思要制作的程序的界面； 第二步，运行Visual Studio，选择Visual Basic，制作Windows程序，把名字改为huitu； 第三步，在Form1中设计用户界面，把Botton、Panel拖放到Form1中； 第四步，设置对象的属性，把Form1的text属性设置为绘图程序，把Botton1的text属性设置为圆形，把Botton２的text属性设置为长方形； 第五步，编写代码，代码如下： Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim g As Graphics = Panel1.CreateGraphics Dim pen1 As Pen = Pens.Black g.DrawEllipse(pen1, 20, 20, 30, 30) End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim g As Graphics = Panel1.CreateGraphics Dim pen1 As Pen = Pens.Black g.DrawRectangle(pen1, 20, 20, 30, 30) End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub Panel1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint End Sub End Class 第六步，编译、运行、调试程序； 第七步，制作安装程序，点击生成按钮，点击生成下的菜单生成，再点击发布，即可完成发布！ 生成程序两个文件：