VB上机实验指导书(9)

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