VB6.0问题，窗体的事件可不可以继承过来

Question

假设要用到100个窗体，每个窗体里都有个
Private Sub Form_Click()
MsgBox 1
End Sub
这样的话就要输入100次相同的代码
有没有什么办法，只在Form1写上这段后，别的窗体里都有这个事件可用
其实想知道的是 Implements Form1 到底该怎么用

Answer 1

更改作用范围为Public,如
public Sub Form_Click()
MsgBox 1
End Sub

下次 call form1.Form_click() 就可以了。

Answer 2

Private Sub Command1_Click()
Set test = New Form1
test.Show
End Sub

追问

不是这个，每个窗体只是具有相同的Click事件，别的都不一样

Answer 3

复制