VB2010 编程入门ABC By：伯兮科技 info@liboxi.cn 1 / 12 VB2010 编程入门ABC 打开软件 Visual Studio 2010 旗舰版 新建项目，或（Ctrl+N） VB2010 编程入门ABC By：伯兮科技 info@liboxi.cn 2 / 12 名称：test1 单击确定。 VB2010 编程入门ABC By：伯兮科技 info@liboxi.cn 3 / 12 单击上图的保存 单击保存！ 生成的文件 VB2010 编程入门ABC By：伯兮科技 info@liboxi.cn 4 / 12 更多地文件细节信息，可以在自己动手编程时进行查看! 单击上图所示，启动调试 VB2010 编程入门ABC By：伯兮科技 info@liboxi.cn 5 / 12 单击，并在窗体上建立新button 按钮。 Button1 的属性： VB2010 编程入门ABC By：伯兮科技 info@liboxi.cn 6 / 12 VB2010 编程入门ABC By：伯兮科技 info@liboxi.cn 7 / 12 VB2010 编程入门ABC By：伯兮科技 info@liboxi.cn 8 / 12 双击按钮 Button1 Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click End Sub End Class VB2010 编程入门ABC By：伯兮科技 info@liboxi.cn 9 / 12 保存（Ctrl+Shift+S） 启动调试（F5） 单击 Button1 VB2010 编程入门ABC By：伯兮科技 info@liboxi.cn 10 / 12 单击上图，停止调试 简单的绘图 添加 PictureBox VB2010 编程入门ABC By：伯兮科技 info@liboxi.cn 11 / 12 双击Button1 添加代码： Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Button1.Text = "hello" PictureBox1.Image = New Bitmap(PictureBox1.Width, PictureBox1.Height) 将PictureBox1.Image的图像进行定义 Dim g2 As Graphics = Graphics.FromImage(PictureBox1.Image) 定义图像g2,数据来自于PictureBox1.Image VB2010 编程入门ABC By：伯兮科技 info@liboxi.cn 12 / 12 g2.DrawRectangle(Pens.Black, New Rectangle(0, 0, 20, 20)) 绘制方块函数，参数：笔的颜色，方块的左下角，右上角（相对于左下角） g2.DrawRectangle(Pens.Red, New Rectangle(0, 0, 10, 10)) Dim aa1 As Point aa1定义为一个数据结构，包括x,y两个属性 Dim aa2 As Point aa1.X = 20 aa2.X = 30 aa1.Y = 50 aa2.Y = 60 g2.DrawLine(Pens.Red, aa1, aa2) 绘制直线： g2.Dispose() End Sub End Class 调试后，单击 Button1 上图是执行的结果！
