回 帖 发 新 帖 刷新版面

主题:求教:看看这是什么VB代码?

下面这段代码是VB RezQ查看到的一段代码,请教哪位大虾能帮解读一下。('N  * ref:是什么意思?)
Sub CmdButton_Click(Index as Integer)
'N  * ref: __vbaExceptHandler
'N  * ref: __vbaOnError
'N  * ref: __vbaObjSet
'N  * ref: __vbaHresultCheckObj
'N  * ref: __vbaNew2
'N  * ref: __vbaObjSet
'N  * ref: __vbaLateIdCallLd
'N  * ref: __vbaI4Var
'N  * ref: __vbaStrI4
'N  * ref: __vbaStrMove
'N  * ref: __vbaHresultCheckObj
'N  * ref: __vbaFreeStr
'N  * ref: __vbaFreeObjList
'N  * ref: __vbaFreeVar
'N  * ref: __vbaObjSet
'N  * ref: __vbaHresultCheckObj
'N  * ref: __vbaNew2
'N  * ref: __vbaLateIdCallLd
'N  * ref: __vbaI4Var
'N  * ref: __vbaStrI4
'N  * ref: __vbaStrMove
'N  * ref: __vbaHresultCheckObj
'N  * ref: __vbaFreeStr
'N  * ref: __vbaFreeObjList
'N  * ref: __vbaFreeVar
'N  * ref: __vbaObjSet
'N  * ref: __vbaHresultCheckObj
'N  * ref: __vbaHresultCheckObj
'N  * ref: Trim(
'N  * ref: __vbaStrVarMove
'N  * ref: __vbaStrMove
'N  * ref: __vbaFreeObjList
'N  * ref: __vbaFreeVarList
'N  * ref: Val(
'N  * ref: __vbaFpR8
'N  * ref: Val(
'N  * ref: __vbaFpR8
'N  * ref: "2"
'N  * ref: __vbaStrCopy
'N  * ref: __vbaStrCopy
'N  * ref: Val(
'N  * ref: _adj_fdiv_m64
'N  * ref: __vbaStrR8
'N  * ref: __vbaStrMove
'N  * ref: __vbaObjSet
'N  * ref: __vbaHresultCheckObj
'N  * ref: __vbaHresultCheckObj
'N  * ref: Trim(
'N  * ref: __vbaStrVarMove
'N  * ref: __vbaStrMove
'N  * ref: "iCol"
'N  * ref: "SystemSet"
'N  * ref: Subr_037
'N  * ref: __vbaFreeStrList
'N  * ref: __vbaFreeObjList
'N  * ref: __vbaFreeVarList
'N  * ref: __vbaObjSet
'N  * ref: __vbaHresultCheckObj
'N  * ref: __vbaHresultCheckObj
'N  * ref: Trim(
'N  * ref: __vbaStrVarMove
'N  * ref: __vbaStrMove
'N  * ref: "iRow"
'N  * ref: "SystemSet"
'N  * ref: Subr_037
'N  * ref: __vbaFreeStrList
'N  * ref: __vbaFreeObjList
'N  * ref: __vbaFreeVarList
'N  * ref: "PlayFilmNumber"
'N  * ref: "SystemSet"
'N  * ref: Subr_037
'N  * ref: __vbaFreeStr
'N  * ref: __vbaObjSet
'N  * ref: __vbaHresultCheckObj
'N  * ref: __vbaStrI2
'N  * ref: __vbaStrMove
'N  * ref: "AllowAudioSkip"
'N  * ref: "SystemSet"
'N  * ref: Subr_037
'N  * ref: __vbaFreeStrList
'N  * ref: __vbaFreeObj
'N  * ref: __vbaNew2
'N  * ref: __vbaObjSet
'N  * ref: __vbaLateIdCallLd
'N  * ref: __vbaNew2
'N  * ref: __vbaLateIdCallLd
'N  * ref: __vbaHresultCheckObj
'N  * ref: __vbaHresultCheckObj
'N  * ref: Val(
'N  * ref: __vbaFpR8
'N  * ref: __vbaI4Var
'N  * ref: __vbaHresultCheckObj
'N  * ref: __vbaHresultCheckObj
'N  * ref: Val(
'N  * ref: __vbaFpR8
'N  * ref: __vbaI4Var
'N  * ref: __vbaObjSet
'N  * ref: __vbaHresultCheckObj
'N  * ref: __vbaHresultCheckObj
'N  * ref: Val(
'N  * ref: __vbaFpR8
'N  * ref: __vbaObjSet
'N  * ref: __vbaHresultCheckObj
'N  * ref: __vbaHresultCheckObj
'N  * ref: Val(
'N  * ref: __vbaFpR8
'N  * ref: __vbaFreeStrList
'N  * ref: __vbaFreeObjList
'N  * ref: __vbaFreeVarList
'N  * ref: __vbaNew2
'N  * ref: __vbaObjSet
'N  * ref: __vbaLateIdCallLd
'N  * ref: __vbaStrVarMove
'N  * ref: __vbaStrMove
'N  * ref: __vbaFreeObj
'N  * ref: __vbaFreeVar
'N  * ref: Subr_030
'N  * ref: __vbaHresultCheckObj
'N  * ref: __vbaNew2
'N  * ref: __vbaHresultCheckObj
'N  * ref: Subr_159
'N  * ref: __vbaNew2
'N  * ref: __vbaObjSetAddref
'N  * ref: __vbaHresultCheckObj
'N  * ref: __vbaFreeObj
'N  * ref: __vbaExitProc
'N  * ref: __vbaFreeStrList
'N  * ref: __vbaFreeObjList
'N  * ref: __vbaFreeVarList
'N  * ref: __vbaFreeStr
'N  * ref: __vbaFPException
End Sub

回复列表 (共2个回复)

沙发

这个是注释来的吧,N *不清楚,ref大概就是reference的意思,引用
个人猜测是本过程按顺序调用了这些函数

板凳

谢谢大哥指导!我是新手,以后希望多多指教!

我来回复

您尚未登录,请登录后再回复。点此登录或注册