VB中Add 方法(Licenses 集合).docVIP

Add 方法（Licenses 集合） 添加一个许可证到 Licenses 集合并返回其许可证关键字。 语法 object.Add (ProgID, LicenseKey) Add 方法语法有这些部分： 部分 描述 object 必需的。一个对象表达式，其值是“应用于”列表中的一个对象。 ProgID 必需的。一个字符串，它指定要添加许可证关键字的控件。 LicenseKey 可选的。一个字符串，它指定许可证关键字。 说明 任何时候当您想动态添加一个要求许可证关键字的控件时，请使用 Add 方法。关于要求许可证关键字的控件的详细信息，请参阅在“请参阅”列表中的“控件许可证问题”。 当您编译一个需要许可证关键字的用户控件，而且您想动态地添加该控件到一个现存的应用程序，您就必须按两种不同的途径对 Licenses 集合使用 Add 方法。 首先，使用该方法返回这个许可证关键字，它是被硬编码到一个用户控件上的。第二步，在添加用户控件到 Controls 集合之前，使用该方法把同一个许可证关键字添加到 Licenses 集合。 在大多数情况下，为了正确地部署一个已编译好的用户控件，您将必需按这两种途径使用该方法。其步骤概述如下。 在您编译完一个需要许可证关键字的用户控件后，使用 Add 方法返回其许可证关键字。把这个许可证关键字存储到部署应用程序能够检索到的地方。例如，下面的例子把关键字写到一个文件中。您也可以把它存储到数据库或 Windows 注册表中。 Private Sub GenerateLicenseKey() Dim intFile As Integer intFile = FreeFile 打开一个用来写入许可证关键字的文件。 Open c:\Temp\Ctl_Licenses.txt For Output As #intFile Dim strLicense As String strLicense = Licenses.Add(prjWeeks.WeeksCtl) 写许可证关键字到该文件。 Write #intFile, strLicense Close #intFile End Sub 当您部署您的控件时，在添加该控件到 Controls 集合之前，已部署的应用程序将把许可证关键字添加到 Licenses 集合。（当然，控件同时必须已经安装在机器上）下面的代码例子添加许可证关键字，然后添加控件： Option Explicit Dim WithEvents extObj As VBControlExtender Private Sub LoadDynamicControl() Dim intFile As Integer intFile = FreeFile Open c:\Download\Ctl_Licenses.txt For Input As #intFile Dim strKey As String 在客户机上，从文件读许可证关键字。 Input #intFile, strKey Licenses.Add prjWeeks.WeeksCtl, strKey Close #intFile Set extObj = Controls.Add(prjWeeks.WeeksCtl, ctl1) With Controls(ctl1) .Visible = True End With End Sub 什么时候添加许可证关键字 当您创建一个用户控件而且您想为动态控件添加而发布该控件时，您必须考虑下面的问题：用户控件仅包含固有控件吗？如果回答是“是”，则问“我想要求最终用户为了使用该控件而必需有许可证关键字吗？”如果两个问题的回答都是“是”，那么请一定要复选“工程属性”对话框中的“通用”选项卡上的“要求许可证关键字”选项。 注意 即使您清除了“要求许可证关键字”选项，一个包含第三方控件的用户控件将仍然要求一个许可证关键字。 什么时候不需要许可证关键字 有两种情况不需要在添加一个控件到 Controls 集合时添加许可证关键字： 当控件是一个固有控件，而且您没有复选“要求许可证关键字”选项。 当您添加一个在工程中已经被引用的控件时。换句话说，如果该控件是显示在“工具框”中的。 注意 当您有一个控件在“工具箱”中，而且您计划仅仅在运行时添加该控件，一定要清除“工程属性”对话框的“生成”选项卡上的“删除有关未使用的 ActiveX 控件”选项，不然的话，试图添加控件将会失败