在线急等:有什么办法可以把过程赋给一个变量.再调用变量即为调用过程.

Question

如有一个按扭的过程,
private sub Command1_click()
..........
end sub一般调用过程为:
call command1_click
即可.但我现在想问有没有办法可以把command1_click赋值给一个变量.如
dim a
a="command1_click"
call a
但这样出错了,有谁能帮我解决这个问题吗?

Answer 1

因为我在form中有许多菜单.分别为a1,a2,a3.那么单击菜单的事件为
private sub a1_click
........
subprivate sub a2_click
........
sub在form中我加入了一个按扭数组.
所以我想在控件数组中加入
private sub command1_click(index)
   call a & index & _click         '这样写是不对的.但我希望能达到调用菜单事件
sub
如果能这样宏替换的话.那就好了.不知有没有高手指导.谢谢.

Answer 2

呵呵，有很多帖子讨论这个问题，好像没什么好的方法，建议楼主使用select case index
  case 0
      a1_click
  case 1
      a2_click
  case 2
    . 
    .
    .
end select

Answer 3

CallByName函数，在msdn中查查用法。~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
private sub Command1_click()
..........
end sub一般调用过程为:
call command1_click
即可.但我现在想问有没有办法可以把command1_click赋值给一个变量.如
dim a
a="command1_click"
CallByName a
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~楼主试试，我现在没VB，也没调试，你试试看。

Answer 4

用select很方便啊
何必做那么麻烦呢？