实验八VB常用控件(二)-用于合并.

1、学院:姓名:学号:实验日期:专业:实验室号:年 月 日指导教师签字:年级:计算机号:成绩:报告退发（订正、重做）实验八：常用控件（二）一、实验目的（1）掌握：计时器和图形控件（图片框、图像框、形状和直线控件）的常用属性、事件和方法（2） 掌握：常用的绘图方法（Line、Circle、Pset）（3）熟悉：焦点与 Tab顺序、键盘和鼠标的事件（4）了解：鼠标的拖动与放下相应的属性、事件和方法二、实验内容1500，与窗体的左边距离为1000的1请在标题为“形状”的窗体上设一个如图所示的高、宽均为 形状控件。注：在属性窗口中完成所有设计。以Sy8-1.frm和Sy8-1.vbp文件名保存在 D:VB

2、程序。2请按图设一个大小能自动调整以适应其显示图片的尺寸的图片框（ "清空”两个按钮（Comma nd1单击“清空”则清空图片框。注：程序中无需使用任何变量。Picture1）以及“显示”和、Command2 ）。运行时，单击“显示”，在图片框中显示自选图片；Sy8-2.frm和Sy8-2.vbp文件名保存在 D:VB程序。两.Forrvil3设计如图所示的模拟秒表，一个文本框。请编写适当的事件过程，使得程序运行时，单击标题为“开始”的命令按钮，计时 器开始计时，并在文本框中显示动态的时间变化；单击标题为“记录”的命令按钮，将当前文本 框显示的时间添加到列表框，文本框显示的时间还在变

3、化；单击标题为“停止”的命令按钮，将停止计时，文本框的记录内容不再变化。以Sy8-3.frm和Sy8-3.vbp文件名保存在 D:VB程序。在窗体体上画三个标签、三个命令按钮、一个计时器、一个列表框、漠拟秒表4设计如图所示的简易画板，在窗体上画一个图片框、一个命令按钮和一组单选按钮。请编写适当 的事件过程，使程序运行时，选择相应单选按钮，在图片框上可以实现相应的功能。如选择“画直 线”单选按钮，可在图片框上画一条直线；如选择“画矩形”单选按钮，可在图片框上画一矩形； 如选择“画圆”单选按钮，可在图片框上画一圆；如选择“画椭圆”单选按钮，可在图片框上画一 椭圆；单击标题为“ CIS ”的命令按钮

4、，则清除图片框的内容。注：程序中无需使用任何变量以。以Sy8-4frm和Sy8-4.vbp文件名保存在 D:VB程序。CLe5请按下图设计程序，在窗体上画一个图像框，并在设计时装好图片。请编写适当的事件过程，使程序运行时，可以用鼠标将图像框拖动到窗体内任意的，准确的位置。以Sy8-5.frm 和Sy8-5.vbp文件名保存在D:VB程序。* fpi'i实验环境(1)(2)四、硬件：PC机软件：Windows 操作系统、Visual Basic 6.0实验步骤1500，与窗体的左边距离为1000的1、请在标题为“形状”的窗体上设一个如图所示的高、宽均为 形状控件。注：在属性窗口中完成所有

5、设计。以Sy8-1.frm和Sy8-1.vbp文件名保存在 D:VB程序。操作步骤如下：（1）启动Visual Basic，在窗体上画一个形状控件。（2）窗体、形状控件的属性设置如下：控件名称属性Form1Cap tion= “形状”Shape1Shape1= 3 - CircleFillsyle = 6 - Cross（3）各控件布局如下:（4）单击“文件” / “保存工程”菜单项，以 Sy8-1.frm和Sy8-1.vbp文件名将窗体和工程文件保存 在D:VB程序内。2请按图设一个大小能自动调整以适应其显示图片的尺寸的图片框（Picture1）以及“显示”和“清空”两个按钮（Command

6、1、Command2 ）。运行时，单击“显示”，在图片框中显示自选图片； 单击“清空”则清空图片框。注：程序中无需使用任何变量。以Sy8-2.frm和Sy8-2.vbp文件名保存在 D:VB程序。控件名称属性C1Cap tion= “显示”C2Cap tion= “清空”P icture1Autosize = TrueC1和C2、一个图片框。启动Visual Basic，在窗体上画两个命令按钮，并将其名称分别改为 各控件属性设置如下：操作步骤如下：（1）（2）显示各控件布局如下:I 清空双击窗体，打开代码窗口，输入如下代码:(4)Private Sub Comma nd1_Click()P i

7、cture1 .P icture = Load Picture("D:to.bm p") End SubPrivate Sub Comma nd2_Click()Pictured Picture = Load PictureEnd Sub（5）单击“文件” / “保存工程”菜单项，以 Sy8-2.frm和Sy8-2.vbp文件名将窗体和工程文件保存 在D:VB程序内。3、设计如图所示的模拟秒表，在窗体体上画三个标签、三个命令按钮、一个计时器、一个列表框、 一个文本框。请编写适当的事件过程，使得程序运行时，单击标题为“开始”的命令按钮，计时器 开始计时，并在文本框中显示动态的

8、时间变化；单击标题为“记录”的命令按钮，将当前文本框显 示的时间添加到列表框，文本框显示的时间还在变化；单击标题为“停止”的命令按钮，将停止计时，文本框的记录内容不再变化。以Sy8-3.frm和Sy8-3.vbp文件名保存在 D:VB程序操作步骤如下：（1）启动Visual Basic，在窗体上画三个命令按钮、三个标签、一个计时器、一个列表框和一个文 本框。（2）各控件属性设置如下：(3)各控件布局如下:控件名称属性Form1Cap tion="模拟秒表”Command1Cap tion="开始”Command2Cap tion= “记录”Command3Cap tion=

9、"停止”Label1Cap tion= “大写显示”Label2Cap tion= “小写显示”Text1Text= “”Label1Cap tion="模拟秒表”Label2Cap tion="计时”Label3Cap tion =“记录”List1List = “”模拟表计时开始oI记录I I停止(4)双击窗体，打开代码窗口，输入如下代码:记录Dim H As In teger, M As In teger, S As In teger, mS As In tegerPrivate Sub Comma nd1_Click()Timer1.I nterval =

10、 100Comma ndl.E nabled = FalseComma nd2.E nabled = TrueComma nd3.E nabled = TrueList1.ClearEnd SubPrivate Sub Comma nd2_Click()List1.AddItem Text1.TextEnd SubPrivate Sub Comma nd3_Click()Timer1.I nterval = 0H = 0: M = 0: S = 0: mS = 0Comma nd1.E nabled = TrueComma nd2.E nabled = FalseComma nd3.E nab

11、led = FalseText1.Text = "0:0.00"End SubPrivate Sub Form_Load()Comma nd2.E nabled = FalseComma nd3.E nabled = FalseText1.Text =""End SubP rivate Sub Timer1_Timer()If mS < 9 The nmS = mS + 1ElsemS = 0If S < 59 The nS = S + 1ElseS = 0If M < 59 The nM = M + 1ElseM = 0H = H +

12、 1End IfEnd IfEnd IfText1.Text = Str(H) + ":" + Str(M) + "." + Str(S) + "" + Str(mS)End Sub(5)单击“文件” / “保存工程”菜单项，以 Sy8-3.frm和Sy8-3.vbp文件名将窗体和工程文件保存 在D:VB程序内。4设计如图所示的简易画板， 件。请编写适当的事件过程， 如选择“画直线”单选按钮， 上画一矩形；如选择“画圆” 图片框上画一椭圆；单击标题为“ 注：程序中无需使用任何变量以。以(1)(2)H.H在窗体上画一个图片框(P1)、一

13、个命令按钮和一组单选按钮的数组控使程序运行时，选择相应单选按钮，在图片框上可以实现相应的功能。 可在图片框上画一条直线；如选择“画矩形”单选按钮，可在图片框 单选按钮，可在图片框上画一圆；如选择“画椭圆”单选按钮，可在Cis ”的命令按钮，则清除图片框的内容。Sy8-4frm 和Sy8-4.vbp文件名保存在 D:VB程序。启动Visual Basic，在窗体上画一个图片框、一组单选按钮和一个命令按钮。 各控件属性设置如下：各控件布局如下:控件名称属性Form1Cap tion= “简易画板”Op tion1(0)Cap tion= “画直线”Op tion1(1)Cap tion= “画矩形

14、”Op tion1(2)Cap tion= “画圆”Op tion1(3)Cap tion= “画椭圆”Command1Cap tion= “ CLs ”O o o o画直线 画矩形 画圆画椭圆cis控件名称属性Image1FACE02.ICO ”各控件布局如下:启动 Visual Basic，在窗体上一个图像框。 各控件属性设置如下：(4)双击窗体，打开代码窗口，输入如下代码:Private Sub Comma nd1_Click()P 1.CISEnd SubPrivate Sub Form_Load()P 1.Scale (0, 0)-(60, 60)P1.DrawWidth = 1En

15、d SubPrivate Sub Op tio n1_Click()P 1.Li ne (5, 30)-(45, 10)End SubPrivate Sub Op tio n2_Click()P 1.Li ne (5, 5)-(40, 20), , BEnd SubPrivate Sub Op tio n3_Click()P 1.Circle (25, 25), 15End SubPrivate Sub Op tio n4_Click（）P 1.Circle （35, 30）, 20, , , , 2End Sub（5）单击“文件” / “保存工程”菜单项，以 Sy8-4.frm和Sy8-4.vbp文件名将窗体和工程文件保存 在D:VB程序内。5、请按下图设计程序，在窗体上画一个图像框，并在设计时装好图片。请编写适当的事件过程，使 程序运行时，可以用鼠标将图像框拖动到窗体内任意的，准确的位置。以Sy8-5.frm和Sy8-5.vbp文件名保