主题:求教:看看这是什么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
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