Question

在VB6中，我需要知道如何在花药形式上调用按钮单击事件。另一个表单部分很简单，但如何通过单击事件传递正确的方法来“单击”工具栏上的右键是真正的问题。

这是主表单上的通风口 - 我需要调用click事件案例“Copyfrom”。

的MainForm

Public Sub tbrMain_ButtonClick(ByVal Button As MSComctlLib.Button)

Select Case Button.Index
  Case ToolBarItem.tbPrint

    '(some code)

  Case ToolBarItem.tbSave

    '(some code)

  Case ToolBarItem.tbCopyFrom

    '(some code)

   Case ToolBarItem.tbNEW

    '(etc)

我试过

Mainform.tbrMain_ButtonClick()

甚至尝试传递索引号和键 - 没有骰子。

Answer 1

事件处理程序希望将引用接收到实际工具栏按钮，因此您必须自行传递工具栏按钮，而不是Caption或Key，例如：

    Form1.tbrMain_ButtonClick Form1.tbrMain.Buttons(1)

或者，使用Call声明：

    Call Form1.tbrMain_ButtonClick(Form1.tbrMain.Buttons(1))

如果在工具栏按钮上设置Key属性，则可以使用所需按钮的Key属性代替（1）：

    Form1.tbrMain_ButtonClick Form1.tbrMain.Buttons("PrintButton")

从另一个表单调用工具栏按钮单击

1 个答案: