怎样给Toolbar1_ButtonClick(ByVal Button As mscomctllib.Button)传参数

Question

Private Sub Toolbar1_ButtonClick(ByVal Button As mscomctllib.Button)    Select Case Button.Key
        Case "new"
            Call s_mNewField
            IntReState = 1
            Call s_mState(3)
        Case "edit"
            Call s_mEditField
            IntReState = 2
            Call s_mState(3)
        Case "find"             '查找
         .............
         ..........
在别的地主想调Toolbar1_ButtonClick这个系统过程,,这个Button 怎么能传过来..且让这个Button.key ="edit"   也就是说.是select case 其中一个
如下  ....
    dim objButton as button
   call Toolbar1_ButtonClick(objbutton)    我是这么写的..但不好用...这个参数应怎么传...?   谢谢..

Answer 1

Private Sub Toolbar1_ButtonClick(ByVal Button As mscomctllib.Button)
改
Private Sub Toolbar1_ButtonClick(ByRef Button As mscomctllib.Button)dim objButton as button
set objButton=Button1    '假如窗体上有个Button1
objButton.Key="Edit"     '如果需要修改Button1.Key就加这句
call Toolbar1_ButtonClick(objbutton) 
或 
Button1.Key="Edit"
call Toolbar1_ButtonClick(Button1)

Answer 2

编译错误:过程声明与同名事件或过程的描述不匹配Private Sub Toolbar1_ButtonClick(ByRef Button As mscomctllib.Button)这是系统的事件... 参数类型是不让改的...   这是控件toolbar的单击事件..

Answer 3

还用这个
Private Sub Toolbar1_ButtonClick(ByVal Button As mscomctllib.Button)
假如窗体上有个Button1
Button1.Key="Edit"
call Toolbar1_ButtonClick(Button1)

Answer 4

不行啊..
   button.key 无效属性   好像没理解这个意思.   这个Button 不是form 上的Button 而是Toolbar 上的Button我按系统声明 如下dim ObjButton AS mscomctllib.Button
ObjButton.Key="Edit"也是无效的属性
  就是没有办法吗....?　在线等．．．．．

Answer 5

'假设key为aaa
Call Toolbar1_ButtonClick(Toolbar1.Buttons("aaa"))

Answer 6

call Toolbar1_ButtonClick(Toolbar1.buttons("new"))