实验八VB常用控件(二).doc

实 验 报 告学院： 专业： 年级： 姓名： 学号： 实验室号：_ 计算机号： 实验日期： 年 月 日 指导教师签字： 成绩： 报告退发 (订正 、 重做) 实验八：常用控件（二）一、实验目的（1）掌握：计时器和图形控件（图片框、图像框、形状和直线控件）的常用属性、事件和方法（2）掌握：常用的绘图方法（Line、Circle、Pset）（3）熟悉：焦点与Tab顺序、键盘和鼠标的事件（4）了解：鼠标的拖动与放下相应的属性、事件和方法二、实验内容1 请在标题为“形状”的窗体上设一个如图所示的高、宽均为1500，与窗体的左边距离为1000的形状控件。注：在属性窗口中完成所有设计。以Sy8-1.frm和Sy8-1.vbp文件名保存在D:VB程序。2 请按图设一个大小能自动调整以适应其显示图片的尺寸的图片框（Picture1）以及“显示”和“清空”两个按钮（Command1、Command2）。运行时，单击“显示”，在图片框中显示自选图片；单击“清空”则清空图片框。注：程序中无需使用任何变量。以Sy8-2.frm和Sy8-2.vbp文件名保存在D:VB程序。3设计如图所示的模拟秒表，在窗体体上画三个标签、三个命令按钮、一个计时器、一个列表框、一个文本框。请编写适当的事件过程，使得程序运行时，单击标题为“开始”的命令按钮，计时器开始计时，并在文本框中显示动态的时间变化；单击标题为“记录”的命令按钮，将当前文本框显示的时间添加到列表框， 文本框显示的时间还在变化；单击标题为“停止”的命令按钮，将停止计时，文本框的记录内容不再变化。以Sy8-3.frm和Sy8-3.vbp文件名保存在D:VB程序。4设计如图所示的简易画板，在窗体上画一个图片框、一个命令按钮和一组单选按钮。请编写适当的事件过程，使程序运行时，选择相应单选按钮，在图片框上可以实现相应的功能。如选择“画直线”单选按钮，可在图片框上画一条直线；如选择“画矩形”单选按钮，可在图片框上画一矩形；如选择“画圆”单选按钮，可在图片框上画一圆；如选择“画椭圆”单选按钮，可在图片框上画一椭圆；单击标题为“Cls”的命令按钮，则清除图片框的内容。注：程序中无需使用任何变量以。以Sy8-4frm和Sy8-4.vbp文件名保存在D:VB程序。5请按下图设计程序，在窗体上画一个图像框，并在设计时装好图片。请编写适当的事件过程，使程序运行时，可以用鼠标将图像框拖动到窗体内任意的，准确的位置。以Sy8-5.frm和Sy8-5.vbp文件名保存在D:VB程序。三、实验环境（1）硬件：PC机（2）软件：Windows 操作系统、Visual Basic 6.0四、实验步骤1、请在标题为“形状”的窗体上设一个如图所示的高、宽均为1500，与窗体的左边距离为1000的形状控件。注：在属性窗口中完成所有设计。以Sy8-1.frm和Sy8-1.vbp文件名保存在D:VB程序。操作步骤如下：（1）启动Visual Basic，在窗体上画一个形状控件。（2）窗体、形状控件的属性设置如下：控件名称属性Form1Caption=“形状”Shape1Shape13CircleFillsyle6Cross（3）各控件布局如下：（4）单击“文件”/“保存工程”菜单项，以Sy8-1.frm和Sy8-1.vbp文件名将窗体和工程文件保存在D:VB程序内。2 请按图设一个大小能自动调整以适应其显示图片的尺寸的图片框（Picture1）以及“显示”和“清空”两个按钮（Command1、Command2）。运行时，单击“显示”，在图片框中显示自选图片；单击“清空”则清空图片框。注：程序中无需使用任何变量。以Sy8-2.frm和Sy8-2.vbp文件名保存在D:VB程序。操作步骤如下：（1）启动Visual Basic，在窗体上画两个命令按钮，并将其名称分别改为C1和C2、一个图片框。（2）各控件属性设置如下：控件名称属性C1Caption=“显示”C2Caption=“清空”Picture1AutosizeTrue显示清空（3）各控件布局如下：（4）双击窗体，打开代码窗口，输入如下代码：Private Sub Command1_Click()Picture1.Picture = LoadPicture(D:to.bmp)End SubPrivate Sub Command2_Click()Picture1.Picture = LoadPictureEnd Sub（5）单击“文件”/“保存工程”菜单项，以Sy8-2.frm和Sy8-2.vbp文件名将窗体和工程文件保存在D:VB程序内。3、设计如图所示的模拟秒表，在窗体体上画三个标签、三个命令按钮、一个计时器、一个列表框、一个文本框。请编写适当的事件过程，使得程序运行时，单击标题为“开始”的命令按钮，计时器开始计时，并在文本框中显示动态的时间变化；单击标题为“记录”的命令按钮，将当前文本框显示的时间添加到列表框， 文本框显示的时间还在变化；单击标题为“停止”的命令按钮，将停止计时，文本框的记录内容不再变化。以Sy8-3.frm和Sy8-3.vbp文件名保存在D:VB程序操作步骤如下：（1）启动Visual Basic，在窗体上画三个命令按钮、三个标签、一个计时器、一个列表框和一个文本框。（2）各控件属性设置如下：控件名称属性Form1Caption=“模拟秒表”Command1Caption=“开始”Command2Caption=“记录”Command3Caption=“停止”Label1Caption=“大写显示”Label2Caption=“小写显示”Text1Text=“”Label1Caption=“模拟秒表”Label2Caption=“计时”Label3Caption“记录”List1List“”开始记录停止计时记录模拟表（3）各控件布局如下：（4）双击窗体，打开代码窗口，输入如下代码：Dim H As Integer, M As Integer, S As Integer, mS As IntegerPrivate Sub Command1_Click() Timer1.Interval = 100 Command1.Enabled = False Command2.Enabled = True Command3.Enabled = True List1.Clear End SubPrivate Sub Command2_Click()List1.AddItem Text1.Text End SubPrivate Sub Command3_Click()Timer1.Interval = 0 H = 0: M = 0: S = 0: mS = 0 Command1.Enabled = True Command2.Enabled = False Command3.Enabled = False Text1.Text = 0:0.0 0End SubPrivate Sub Form_Load() Command2.Enabled = False Command3.Enabled = False Text1.Text = End SubPrivate Sub Timer1_Timer() If mS 9 Then mS = mS + 1 Else mS = 0 If S 59 Then S = S + 1 Else S = 0 If M 59 Then M = M + 1 Else M = 0 H = H + 1 End If End If End If Text1.Text = Str(H) + : + Str(M) + . + Str(S) + + Str(mS)End Sub（5）单击“文件”/“保存工程”菜单项，以Sy8-3.frm和Sy8-3.vbp文件名将窗体和工程文件保存在D:VB程序内。4设计如图所示的简易画板，在窗体上画一个图片框（P1）、一个命令按钮和一组单选按钮的数组控件。请编写适当的事件过程，使程序运行时，选择相应单选按钮，在图片框上可以实现相应的功能。如选择“画直线”单选按钮，可在图片框上画一条直线；如选择“画矩形”单选按钮，可在图片框上画一矩形；如选择“画圆”单选按钮，可在图片框上画一圆；如选择“画椭圆”单选按钮，可在图片框上画一椭圆；单击标题为“Cls”的命令按钮，则清除图片框的内容。注：程序中无需使用任何变量以。以Sy8-4frm和Sy8-4.vbp文件名保存在D:VB程序。（1）启动Visual Basic，在窗体上画一个图片框、一组单选按钮和一个命令按钮。（2）各控件属性设置如下：控件名称属性Form1Caption=“简易画板”Option1(0)Caption=“画直线”Option1(1)Caption=“画矩形”Option1(2)Caption=“画圆”Option1(3)Caption=“画椭圆”Command1Caption=“CLs”（3）各控件布局如下：画直线Cls画矩形画圆画椭圆（4）双击窗体，打开代码窗口，输入如下代码：Private Sub Command1_Click()P1.ClsEnd SubPrivate Sub Form_Load()P1.Scale (0, 0)-(50, 50)P1.DrawWidth = 2End SubPrivate Sub Option1_Click(Index As Integer)If Option1(0).Value = True Then P1.Line (5, 30)-(45, 10)ElseIf Option1(1).Value = True Then P1.Line (5, 5)-(40, 20), , BElseIf Option1(2).Value = True Then P1.Circle (25, 25), 15ElseIf Option1(3).Value = True Then P1.Circle (35, 30), 20, , , , 2End IfEnd Sub（5）单击“文件”/“保存工程”菜单项，以Sy8-4.frm和Sy8-4.vbp文件名将窗体和工程文件保存在D:VB程序内。5、请按下图设计程序，在窗体上画一个图像框，并在设计时装好图片。请编写适当的事件过程，使程序运行时，可以用鼠标将图像框拖动到窗体内任意的，准确的位置。以Sy8-5.frm和Sy8-5.vbp文件名保存在D:VB程序。操作步骤如下：（1）启动Visual Basic，在窗体上一个图像框。（2）各控件属性设置如下：控件名称属性Image1Picture=C:ProgramFilesvbVB6.0COMMONGRAPHICSICONSMISC