Question

想知道是否可以在自己的事件子中使用控件的名称，而无需特别硬编码它的名称，因此它可用于其他控件的事件，相同类型，语法完全相同。

例如：

Private Sub Command1_Click()

    Me.Caption = "Hello"

End Sub

将包含表单的标题设置为＆＃34; hello＆＃34;。如果我将同一行代码复制到另一个表单，它会将其标题设置为＆＃34; hello，依此类推

我想知道控制Command1本身是否还有另一个关键字，所以我能够将相同的代码复制粘贴到另一个命令按钮，而无需对控件的名称进行硬编码。 / p> 经过多年在vb6中编写代码多年后，我90％肯定无法完成，但值得一试。

Answer 1

执行此操作的一种方法是使用Microsoft脚本控件 - 在表单中添加一个，然后根据您的示例执行操作：

Private Sub Command1_Click()

    ScriptControl1.AddObject "me", ActiveControl, True

    ScriptControl1.ExecuteStatement "me.Caption = ""Hello"""

    ScriptControl1.Reset

End Sub

如果您还没有脚本控件 - 请查看Microsoft脚本控件1.0的项目/组件（msscript.ocx） - 您可以在此处下载： http://www.microsoft.com/en-us/download/details.aspx?id=1949

Visual Basic 6 - 在其自己的事件代码段中使用控件的名称

1 个答案: