VB实验7(图形操作).docVIP

实验（七）：图形操作 一、实验目的： 了解Visual Basic的图形功能。 掌握建立图形坐标系的方法。 掌握Visual Basic的图形控件和图形方法。 掌握常用几何图形绘制。 掌握简单动画的设计方法。 二、实验内容： 在图片框中随机画出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,?iRandomizeFor?i?=?1?To?50a?=?Int(Rnd?*?4000?+?1)b?=?Int(Rnd?*?3000?+?1)c?=?Int(Rnd?*?200?+?10)d?=?Int(Rnd?+?2)Picture1.Circle?(a,?b),?c,?,?,?,?dPicture1.FillStyle?=?0Picture1.FillColor?=?RGB(255?*?Rnd,?255?*?Rnd,?255?*?Rnd)Next?iEnd?SubPrivate?Sub?Command2_Click()Picture1.ClsEnd?SubPrivate?Sub?Command3_Click()EndEnd?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?=?YPrint?★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和