曲阜123网站 自由鸟

function ab(o)

    echo o.x

    echo "ab"
end function

class asdf

    public x
    public load
    ' 初始化
    Private Sub Class_Initialize
        x = "测试函数指针"
    End Sub
    
    ' 销毁
     Private Sub Class_Terminate
     End Sub

     function onload()
         if isobject(load) then
             load(me)
             exit function
         end if

     end function

end class

dim aa
set aa = new asdf
set aa.load = getref("ab")
aa.onload()

getRef函数，该函数返回函数指针

set object = getRef(procname)

object函数指针变量

procname 函数名称