100分问题

Question

也就是这样：
这是已经存的控件btExt,并写好的click事件
Private Sub btExt_Click()
 End
End Sub
现在定义一个控件
dim x as controls
set x=btext
然后怎么用x调用btExt的click事件？
如：x_click还是ｘ.click还是其它的方法？

Answer 1

因为我知道在delphi里可以把一个已经存的控件existbt的onclick事件赋给一个自已定义的控件。
如：
var bt:button
begin
 bt:=button.create();
 bt.onclick:=existbt.onclick; 
end
不知在VB中有没有同样的方法

Answer 2

Dim x As CommandButton
Set x = Command1
x.MaskColor = vbWhite
x.BackColor = vbRed
command1_click

Answer 3

在VB中只能反过来，到MSDN中查找withevents的帮助
private withevents m_cmd as commandbutton

Answer 4

不一定是commandbutton， 我是想做到通用。比如menu等