VB可不可以将函数作为参数传递呢

VB能否将函数作为参数传递呢？

本帖最后由 bcrun 于 2012-08-20 19:51:36 编辑

比如：

Private Sub Command1_Click()

    Call mytest(mymsg)

End Sub


Function mytest(ob)

    Do

        Call ob

    Loop

End Function


Sub mymsg()

    MsgBox Now

End Sub

上面代码测试是有问题的，但我想将mymsg函数作为参数传递给 mytest ，这个要怎么做才能真正成功呢？
------解决思路----------------------

引用:

关键是每次调用都要重新Case一次，浪费了系统资源

我是想做一个时段内重复执行某个过程，过程不固定，但是“时段内重复做某事”这个是固定的，所以想通过将函数过程直接传过去。。。。

浪费什么资源呢？才那么几次CPU时间，比起你的“循环做某事”，简直不值一提

如果真的要这样

sub   Parent(aaa   as   string)   as   boolean       'aaa传入另一函数或过程的名称。 

      CallByName   Me,   aaa,   VbMethod                     me是aaa的窗体或对象(public声明的函数也是对象)       

end   sub 


sub   test1（)   

.... 

end   sub 


sub   acall() 

        Parent   "test1 " 

end   sub

VB可不可以将函数作为参数传递呢

相关推荐