vb上机实验
End Sub
Private Sub mnuPopStar_Click() Text1.Text=””
Text1.Text=”**********”& Chr(13) & Chr(10) &”**********“ End Sub （4）运行程序
效果如图14-2所示
图14-2 弹出式菜单效果
实验十五 工具栏，状态栏设计
41
zjh
【实验目的】
vb上机实验
1．掌握通过工具条控件创建工具栏的步骤和方法。 2．掌握通过状态栏控件创建状态栏的步骤和方法。
【实验内容】
1．创建具有“新建”，“复制”，“打开”和“打印”功能的工具栏 2．应用StatusBar控件制作状态栏。
【实验步骤与指导】
1．实验内容 （1）建立用户界面。
添加一个文本框控件Text1。添加AxtiveX控件。参考图15－1所示。
图15－1 添加控件
将工具箱中Toolbar和ImageList控件双击到窗体上。参考图2－15－2所示。
图15－2 设置界面
（2）设置对象属性。
鼠标指向ImageList控件，单击右键在弹出的快捷菜单中选择属性，在打开的“属性页”对话框，选择“图象”选项卡，单击“插入图片”按钮，选择图片。如图15－3所示。
42
zjh
vb上机实验
图15－3 插入图片
在窗体的工具栏上单击鼠标右键，在弹出的快捷菜单中选择属性，打开的“属性页”对话框，在“图象列表”选项中选取ImageList1，建立与图象列表框的关联。参考图2－15－4所示。
图15－4 设置Toolbar的属性
选择“按钮”选项卡，单击“插入”按钮，向工具栏中添加4个工具按钮，索引分别为1，2，3，4，对应图象索引值分别为1,2,3,4。参考图15－5所示。
43 zjh
vb上机实验
图15－5 建立与图象列表框的关联
3）编写事件代码。
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index
Case 1
Text1.Text = \Case 2
Debug.Print \复制\Case 3
Debug.Print \打开\Case 4
Debug.Print \打印\
End Select End Sub
4）运行程序。
程序输出界面如图15－6所示。
图15－6程序运行结果
44 zjh
（（vb上机实验
2．实验内容
（1）建立用户界面
添加AxtiveX控件。向窗体中添加一个StatusBar控件和Timer控件。参考图15－7所示。
图15－7 界面设计 图15－8 插入一个窗格
（2）设置对象属性。
设置Timer控件的Interval属性为100，右击StatusBar控件，在弹出的快捷菜单中选择属性，在打开的“属性页”对话框，选择“窗格”选项卡。选择插入窗格命令，插入一个窗格，如图15－8所示。
（3）编写事件代码。
Private Sub Form_Load( )
StatusBar1.Panels(1).Text = \欢迎使用本系统\End Sub
Private Sub Timer1_Timer()
StatusBar1.Panels(2).Text = Time() End Sub （4）运行程序
程序输出界面如图15－9所示。
图15－9 程序运行结果
45 zjh