VB2010编程入门ABC

VB2010编程入门ABC

打开软件Visual Studio 2010旗舰版

新建项目，或（Ctrl+N）

名称：test1 单击确定。

单击上图的保存

单击保存！

生成的文件

更多地文件细节信息，可以在自己动手编程时进行查看!

单击上图所示，启动调试

单击，并在窗体上建立新button按钮。

Button1的属性：

双击按钮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

保存（Ctrl+Shift+S）启动调试（F5）

单击Button1

单击上图，停止调试简单的绘图

添加PictureBox

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

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

上图是执行的结果！

12 / 12