首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

VB可否将函数作为参数传递呢

2013-01-04 
VB能否将函数作为参数传递呢?本帖最后由 bcrun 于 2012-08-20 19:51:36 编辑比如:Private Sub Command1_Cl

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

热点排行