AddFromString 方法

全部顯示

AddFromString 方法將字符串添加到 Module 對(duì)象中。Module 對(duì)象可以代表標(biāo)準(zhǔn)模塊或類模塊。

expression.AddFromString(String)

expression     必需。返回“應(yīng)用于”列表中的一個(gè)對(duì)象的表達(dá)式。

String     必需 String 型。

說明

如果模塊中包含其他過程，AddFromString 方法會(huì)將字符串內(nèi)容放在模塊中“聲明”節(jié)之后和第一個(gè)現(xiàn)有過程之前。

如果要將字符串添加到窗體或報(bào)表模塊中，窗體或報(bào)表必須在窗體“設(shè)計(jì)”視圖或報(bào)表“設(shè)計(jì)”視圖中打開。如果要將字符串添加到標(biāo)準(zhǔn)模塊或類模塊中，模塊也必須打開。

示例

下面的示例新建了一個(gè)窗體，將一串字符串和 Functions.txt 文件的內(nèi)容添加到它的模塊中。從標(biāo)準(zhǔn)模塊中可以執(zhí)行下列過程：

Sub AddTextToFormModule()

    Dim frm As Form, mdl As Module

    Set frm = CreateForm

    Set mdl = frm.Module

    mdl.AddFromString "Public intY As Integer"

    mdl.AddFromFile "C:\My Documents\Functions.txt"

End Sub