在线观看一区二区精品|精品国产成人一区二区|国产精品91在线播放久|国产精品色午夜免费观看|欧美日韩国产一区二区视频|精品久久久久中文字幕日本|亚洲一区不卡免费在线观看|国产成人精品日本亚洲精品专区

曲阜123網(wǎng)站 自由鳥

function ab(o)

    echo o.x

    echo "ab"
end function

class asdf

    public x
    public load
    ' 初始化
    Private Sub Class_Initialize
        x = "測試函數(shù)指針"
    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函數(shù)，該函數(shù)返回函數(shù)指針

set object = getRef(procname)

object函數(shù)指針變量

procname 函數(shù)名稱