实验（七）：图形操作
一、实验目的：
1.了解Visual Basic的图形功能。
2.掌握建立图形坐标系的方法。
3.掌握Visual Basic的图形控件和图形方法。
4.掌握常用几何图形绘制。
5.掌握简单动画的设计方法。
二、实验内容：
1、在图片框中随机画出50个不同大小和颜色的实心椭圆。如图所示。
2、在图片框中随机地画出若干个彩色的点。如图所示。
3、在图片框中，在鼠标单击的位置输出“★”。
4、在窗体上添加一个命令按钮（C1）、一个图片框（P1）和一个图像框（Im1），在运行时分
别给P1和Im1填入图片，单击命令按钮，则二个图片对调。
5、自制简易绘图程序。即在窗体上写字、画图等。可以设置颜色。
三、实验步骤
1、（1）双击vb6.0图标，选择标准进入
（2）双击command1和command2，command3进行编程，程序如下
Private Sub Form_Load()
Private Sub Command1_Click()
Dim a,b,c,d,i
Randomize
For i=1To50
a=Int(Rnd*4000+1)
b=Int(Rnd*3000+1)
c=Int(Rnd*200+10)
d=Int(Rnd+2)
Picture1.Circle(a,b),c,,,,d
Picture1.FillStyle=0
Picture1.FillColor=RGB(255*Rnd,255*Rnd,255*Rnd)
Next i
End Sub
Private Sub Command2_Click()
Picture1.Cls
End Sub
Private Sub Command3_Click()
End
End Sub
（3）运行程序，单击command1画椭圆，单击command2清除，单击command3退出，结果如下图：
2、（1）双击vb6.0图标，选择标准进入，在窗体中添加picture1，command1，command2和command3如下图：
（2）双击command1和command2，command3进行编程，程序如下：
Private Sub Command1_Click()
Picture1.DrawWidth = int（15*rnd+3）
For i = 1 To 100
r = Int(256 * Rnd)
g = Int(256 * Rnd)
b = Int(256 * Rnd)
x = Rnd * Width
y = Rnd * Height
Picture1.PSet (x, y), RGB(r, g, b)
Next i
End Sub
Private Sub Command2_Click()
Picture1.Cls
End Sub
Private Sub Command3_Click()
End
End Sub
（3）运行程序，单击command1画出点，单击command2清除，单击command3退出，结果如下图：
3、（1）双击vb6.0图标，选择标准进入.。
（2）在程序代码框中输入下列程序
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
CurrentX = X
CurrentY = Y
Print "★"
End Sub
（3）运行程序，单击窗体，结构如下图：
4、（1）双击vb6.0图标，选择标准进入，在窗体中添加picture1，image1，command1如下图：
（2）双击form1和command1, 进行编程，程序如下：
Private Sub Command1_Click()
Image1.Picture = LoadPicture("d:\media\狗.gif")
Picture1.Picture = LoadPicture("d:\media\汗.gif")
End Sub
Private Sub Form_Load()
Picture1.Picture = LoadPicture("d:\media\狗.gif")
Image1.Picture = LoadPicture("d:\media\汗.gif")
End Sub
（3）运行程序，单击command1画出点，单击command2清除，单击command3退出，结果如下图：
5、（1）双击vb6.0图标，选择标准进入，在窗体上添加command1，command2，如下图：
（2）双击command1和command2, 进行编程，程序如下：
Dim f As Boolean
Dim x1, y1 As Integer
Private Sub Command1_Click()
CommonDialog1.Action = 3
Form1.ForeColor = CommonDialog1.Color
End Sub
Private Sub Command2_Click()
Cls
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single,
Y As Single)
f = True
x1 = X: y1 = Y
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y
As Single)
f = False
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single,
Y As Single)
If f Then
DrawWidth = 5
Me.Line (X, Y)-(x1, y1)
x1 = X: y1 = Y
End If
End Sub
（3）运行程序，单击command1选择颜色，在窗体上绘制图形，单击command2清除，结果如下图：
四、实验体会
通过此次实验学会应用vb6.0进行图形操作，了解Visual Basic的图形功能。掌握常用几何图形绘制。对vb6.0的功能有了更近一步的了解。