VB6.0基础教程 为工具栏编写代码

兔纸兄

本节将为上一节中所创建的工具栏编写代码，使按钮能执行一定的操作。

在前面创建了工具栏的窗体中放置一个文本框，如图4.31所示。各对象的属性设置如表4.17所示。

    在运行模式下，每当用户单击工具栏中的按钮时，就会触发该工具栏的ButtonClick事件。因此，为工具栏编写代码其实就是编写它的ButtonClick事件过程。

    双击工具栏，打开【代码】窗口，工具栏的ButtonClick事件过程的框架自动出现在【代码】窗口中，编写该过程如下：

Private Sub Toolbarl_ButtonClick(Byval Button As MSComctllib.Buton)    Select Case Button.Key    Case“Bopen”       Text1.Text=“文档打开成功！”    Case“Bsave”       Text1.Text=“文档保存完毕！”    Case“print”       Text1.Text=“正在打印文档···”   End Select End Sub

    在代码中，使用了Select Case语句来判断按钮的关键字。对于不同的按钮，单击后在文本框中显示不同的内容。

    运行该程序，单击某按钮，在文本框就会显示出与该按钮相关的内容。

`Xk

学习了