AddFromString 方法

expandtri全部显示

AddFromString 方法将字符串添加到 Module 对象中。Module 对象可以代表标准模块类模块

expression.AddFromString(String)

expression     必需。返回“应用于”列表中的一个对象的表达式。

String     必需 String 型。

说明

如果模块中包含其他过程,AddFromString 方法会将字符串内容放在模块中“声明”节之后和第一个现有过程之前。

如果要将字符串添加到窗体报表模块中,窗体或报表必须在窗体“设计”视图报表“设计”视图中打开。如果要将字符串添加到标准模块或类模块中,模块也必须打开。

示例

下面的示例新建了一个窗体,将一串字符串和 Functions.txt 文件的内容添加到它的模块中。从标准模块中可以执行下列过程:

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