注册 登录
编程论坛 → VB6论坛

VB 如何通过CONTROL控件集实现某个控件的事件?

penguinhzf 发布于 2013-06-08 21:15， 353 次点击
假设有一个FORM，里面有一个COMMAND按钮，现在我如何通过以下自定义的CONTROL来实现COMMAND的CLICK事件呢？

代码如下：
Private Sub Command1_Click()
MsgBox "aaa"
End Sub

Private Sub Form_Load()
Dim tObj As Control
Set tObj = Command1
'如何在这里通过tObj来实现Command1的click事件啊?
End Sub
2 回复
#2
风吹过b2013-06-09 08:27
目前我测试的办法没找到。

callbyname 只能调用类里的 函数、属性，   无法执行 方法，无法引发事件。
RaiseEvent  在窗体中，只能触发自定义事件，无法覆盖系统内置的事件。

估计你只能使用普通的方法：

public sub Click(obj as control)
select case obj.name
  case "Command1"
      calll command1_Click
  case ....
     ....
end select
end sub
#3
penguinhzf2013-06-10 11:17
以下是引用风吹过b在2013-6-9 08:27:35的发言：

目前我测试的办法没找到。

callbyname 只能调用类里的 函数、属性，   无法执行 方法，无法引发事件。
RaiseEvent  在窗体中，只能触发自定义事件，无法覆盖系统内置的事件。

估计你只能使用普通的方法：

public sub Click(obj as control)
select case obj.name
  case "Command1"
      calll command1_Click
  case ....
     ....
end select
end sub


好像跟我的要求还不符啊...
1
©2025, BC-CN.NET
电脑版