vb上机实验
实验九 组合框的应用
【实验目的】
1．掌握组合框的常用属性。 2．了解列表框和组合框的区别。
【实验内容】
运用组合框实现学校的添加与删除功能。
【实验步骤与指导】
1．设计界面
在窗体上添加四个命令按钮,一个标签,一个组合框和一个文本框。初始界面如图9－1所示。
图9－1 初始界面 图9－2 设置属性后的界面
2．设置属性，如表9－1所示。
表9－1 属性设置
对象 Command1 Command2 Command3 Command4 Label1 Text1 属性 Caption 名称 Caption 名称 Caption 名称 Caption 名称 Caption text 名称 设置属性后的界面如图9－2所示。
26
zjh
属性值 删除 CmdDel 添加 CmdAdd 清除 CmdClear 关闭 CmdEnd 学校 无 TxtInfor vb上机实验
3．编写程序代码
Private Sub CmdAdd_Click() CboMsg.Text = TxtInfor.Text End Sub
Private Sub CmdClear_Click()
CboMsg.Clear
End Sub
Private Sub CmdDel_Click() Dim IntIndex As Integer
IntIndex = CboMsg.ListIndex CboMsg.Text = \ Call Del(IntIndex)
End Sub
Private Sub CmdEnd_Click()
End
End Sub
Private Sub Form_Load() With CboMsg
.AddItem \盐城师范学院\
.AddItem \盐城生物工程高等学校\ .AddItem \盐城工学院\ .AddItem \盐城师范学校\ .ListIndex = 0 End With
End Sub 4．运行程序结果如图9－3所示
图9－3 程序运行结果
27
zjh
vb上机实验
实验十 图像框的应用
【实验目的】
1．熟悉图像框与图片框的区别。 2．掌握图像框的属性与特点。
【实验内容】
将一个图形文件放到图像框中，改变图像框的大小，观察图形是否随之改变。
【实验步骤与指导】
1．设计界面
在窗体上添加五个命令按钮和一个图像框。初始界面如图10－1所示。
图10－1 初始界面 图10－2 设置属性后的界面 2．设置属性，如表10－1所示。
表10－1 属性设置
对象 Command1 Command2 Command3 Command4 Command4 Image1 Image1 属性 Caption Caption Caption Caption Caption picture stretch 属性值 改变宽度 改变高度 改变高度和宽度 恢复原始尺寸 退出 E:\\vb\\ 65203483.wmf true
设置属性后的界面如图10－2所示。
28 zjh
vb上机实验
3．编写程序代码
Private Sub Command1_Click()
Image1.Left = Image1.Left - Image1.Width / 2 Image1.Width = Image1.Width * 2 End Sub
Private Sub Command2_Click()
Image1.Top = Image1.Top - Image1.Height / 2 Image1.Height = Image1.Height * 2 End Sub
Private Sub Command3_Click()
Image1.Left = Image1.Left - Image1.Width / 2 Image1.Width = Image1.Width * 2 Image1.Height = Image1.Height * 2 End Sub
Private Sub Command4_Click() Image1.Left = 2225 Image1.Top = 666 Image1.Height = 1515 Image1.Width = 1515 End Sub
Private Sub Command5_Click() End End Sub 4．运行程序
分别单击五个命令按钮，程序运行效果如图10－3 ~ 10－6所示。
图10－3 改变宽度后运行结果 图10－4 改变高度后运行结果
29 zjh
vb上机实验
图10－5 改变高度和宽度后的运行结果
图10－6 恢复原始尺寸
30
zjh