实验二、窗体和基本控件

一、实验目的

1、 掌握设置启动窗体的方法及窗体的加载、卸载方法。 2、 掌握命令按钮、文本框和标签控件常用属性的设置方法。 3、 编写基本控件的单、双击事件过程需要进行处理的程序代码。 二、实验内容

1、 编制一个简单的游戏，用鼠标单击一个悬浮的窗体，每单击一次，窗体的面积减小一些，

同时窗体的位置随机转移到其他位置，颜色也发生变化。直到消失，程序结束。 设计界面：

编写代码：

Private Sub Form_Click() Randomize

Form1.Left = 7000 * Rnd Form1.Top = 4000 * Rnd If Form1.Height > 900 Then

Form1.BackColor = Int(65530 * Rnd) Form1.Height = Form1.Height - 500 Form1.Width = Form1.Width - 500 Else Me.Hide End If End Sub

2、 设计一个窗体，包含两个标签和两个文本框。若在“输入”框中输入任意文本，将在“显

示”框中同时显示相同的文本。 设计界面：

编写代码：

输入文本框change事件： Text2.text = Text1.text

3、 创建一个登录窗口。程序运行时，在文本框中输入用户名称和密码（密码的长度为5

位，用*号代表），若密码正确，单击“确定”按钮后，打开一个新窗体；若密码错误，则清除密码，利用Msgbox函数提示重新输入密码。若单击“取消”按钮，则清除密码，重新输入密码。程序运行界面如下：

确定按钮代码：(用户名密码都为“111”)

If Text1.Text = \"111\" And Text2.Text = \"111\" Then Form4.Show Me.Hide Else

a = MsgBox(\"错误\重新输入\")

Text1.Text = \"\" Text2.Text = \"\" Text1.SetFocus End If 取消代码：

Text1.Text = \"\" Text2.Text = \"\" Text1.SetFocus

4、 利用两个文本框输入两个数据，单击“计算”按钮，用标签显示其和。程序运行界面如

图所示。

确定按钮单击事件： Dim a, b, c As Integer a = Val(Text1.Text) b = Val(Text2.Text) c = a + b

Label4.Caption = a + b

5. 两个数的相加

全局变量a,b

Dim a As Integer, b As Integer 输入按钮代码：

Private Sub C1_Click() ′利用输入对话框输入数据

a = Val(InputBox(\"请输入第一个数\输入\")) Form1.Print \"a=\"; a

b = Val(InputBox(\"请输入第二个数\输入\")) Form1.Print \"b=\"; b End Sub

显示按钮代码：

Private Sub C2_Click() ′利用消息框显示结果 Me.Cls

Me.Print \"和：\"; a + b End Sub

6.图形浏览器 实验目的：

通过本实验掌握shape控件的用法 掌握CommandButton控件的使用； 掌握滚动条控件的使用； 实验内容：

建立具有如下界面的程序，点击不同的按钮，在右部出现相应的形状。 通过改变上面的水平滚动条来更改线宽，改变下面的滚动条来更改线型。

实验步骤：

1、新建一个窗体，添加两个水平滚动条，并设置如下属性 上部水平滚动条：

max=10 min=1 smallchang=1 largechang=2 下部水平滚动条：

max=7 min=0 smallchang=l argechang=1

2、编辑功能键按钮（矩形、正方形、椭圆、圆、圆角矩形、圆角正方形和退出)以及显示区域； （1、如界面图中所示，添加CommandButton控件；

（2、添加Shape控件，设置其属性（如Backcolor、Bordrecolor等） 3、编辑线宽显示标签和当前填充方式标签； （1、添加Label控件；

（2、分别设置它们的属性，其中线宽显示标签的Caption属性为空； 4、编写相应的代码 按钮代码：

Private Sub Command1_Click() Shape1.Shape = 0 End Sub

Private Sub Command2_Click() Shape1.Shape = 1 End Sub

Private Sub Command3_Click() Shape1.Shape = 2 End Sub

Private Sub Command4_Click() Shape1.Shape = 3 End Sub

Private Sub Command5_Click() Shape1.Shape = 4 End Sub

Private Sub Command6_Click() Shape1.Shape = 5 End Sub 退出按钮代码：

Private Sub Command7_Click() End End Sub

窗体加载时代码： Private Sub Form_Load()

Label1.Caption = \"当前线宽：\" + Str$(HScroll1.Value) End Sub

上部滚动条改变代码： Private Sub HScroll1_Change()

Label1.Caption = \"当前线宽：\" + Str$(HScroll1.Value) Shape1.BorderWidth = HScroll1.Value End Sub

下部滚动条改变代码： Private Sub HScroll2_Change() Shape1.FillStyle = HScroll2.Value End Sub

5、运行程序，有如下结果。