AddCode 方法 [物件：VBNetCode 類別] 說明

說明

加入指定程式碼。

本函數之引數列表

引數	型態	位元組	選項	預設值	說明
vbCodeExpression	String	-	必須	(無)	VBNET 程式碼

傳回值

傳回目前完整程式碼

範例

' 呼叫函數範例
Dim code As New VBNetCode
code.AddCode(Join(New String() { _
	"Public Function TestFunction(Byval x As Double) As Object", _
	"Return x ^ 2 + 3", _
	"End Function" _
	}, vbNewLine))
MsgBox(Code.Run("TestFunction", 2))

' 呼叫副程式範例
Dim code As New VBNetCode
code.AddCode(Join(New String() { _
	 "Public Sub TestSub(Byval strMessage As String)", _
	 "MsgBox(strMessage)", _
	 "End Sub" _
	 }, vbNewLine))
code.Run("TestSub", "測試")

更進一步

　　對於程式碼段落，例如 Sub...End Sub、Function...End Function，必須提供整個段落做為 AddCode 方法的 code 引數。您可將一個段落或數個段落中的程式碼分為數次或一次 AddCode 的呼叫來完成。如要區隔段落裡的每個陳述式，只要用冒號 (:) 或內嵌的換行字元 (vbNewLine)。可以多次呼叫 AddCode。

基本條件

Visual Studio .Net 2005 以後相容版本 | vbCode.vb

請參閱

VBNetCode 類別