Visual Basic 6 - 在它自己的事件代码片段中使用控件的名称
Visual Basic 6 - using the control's name in its own event code snippet
想知道是否可以在其自己的事件子中使用控件的名称而无需对其名称进行专门的硬编码,因此它可以用于具有相同类型的其他控件的事件,具有完全相同的语法。
例如:
Private Sub Command1_Click()
Me.Caption = "Hello"
End Sub
会将包含表单的标题设置为 "hello"。如果我将同一行代码复制到另一个表单,它会将其标题设置为“你好,等等。
我想知道控件 Command1 本身是否有另一个关键字,所以我可以 copy-paste 相同的代码到另一个命令按钮而无需硬编码控件的名称。
在用 vb6 编写代码多年后,我 90% 确定它无法完成,但值得一试。
执行此操作的一种方法是使用 Microsoft 脚本控件——将一个添加到您的表单中,然后您就可以按照您的示例执行此操作:
Private Sub Command1_Click()
ScriptControl1.AddObject "me", ActiveControl, True
ScriptControl1.ExecuteStatement "me.Caption = ""Hello"""
ScriptControl1.Reset
End Sub
如果您还没有 Script Control -- 检查 Project/Components Microsoft Script Control 1.0(即 msscript.ocx)-- 您可以在这里下载它:
http://www.microsoft.com/en-us/download/details.aspx?id=1949
想知道是否可以在其自己的事件子中使用控件的名称而无需对其名称进行专门的硬编码,因此它可以用于具有相同类型的其他控件的事件,具有完全相同的语法。
例如:
Private Sub Command1_Click()
Me.Caption = "Hello"
End Sub
会将包含表单的标题设置为 "hello"。如果我将同一行代码复制到另一个表单,它会将其标题设置为“你好,等等。
我想知道控件 Command1 本身是否有另一个关键字,所以我可以 copy-paste 相同的代码到另一个命令按钮而无需硬编码控件的名称。
在用 vb6 编写代码多年后,我 90% 确定它无法完成,但值得一试。
执行此操作的一种方法是使用 Microsoft 脚本控件——将一个添加到您的表单中,然后您就可以按照您的示例执行此操作:
Private Sub Command1_Click()
ScriptControl1.AddObject "me", ActiveControl, True
ScriptControl1.ExecuteStatement "me.Caption = ""Hello"""
ScriptControl1.Reset
End Sub
如果您还没有 Script Control -- 检查 Project/Components Microsoft Script Control 1.0(即 msscript.ocx)-- 您可以在这里下载它: http://www.microsoft.com/en-us/download/details.aspx?id=1949