vb6 窗体中不写任何代码，如何调用类中写的事件？

Question

比如在窗体中一个button的click事件，窗体中不写任何代码，把这个事件写在类中？如何实现？

Answer 1

我是想知道通过什么办法实现？？？？例如窗体运行时，调用类中写的form load 方法   ~~ 我的一个项目确实是这么做的，我一直搞不清楚这是怎么实现的~~~

Answer 2

VB类里面最牛X的，的好东西 其实是它的 LET/GET property  . 其实它们也是普通的函数 ,也需要调用的 .  let 是类属性赋值时调用的,  get是类属性读值时调用的. 把许多代码封装到这里 ,这样在窗体外部 ,读或写 这些类属性时 ,许多代码实际上就已经自动进行了. 编写者往往造成了错觉 ,一位类中所有代码是自动运行的, 其实也没那么神奇  ,原因和简单, 你在读写类属性时 ,已经调用了那些函数 .  
    
   所以请搂主务必要理解 类模块的工作原理 .

Answer 3

楼主说的是继承吧？
按我说的做：1.新建一exe项目，Sub Main 启动。
2.添加一窗体Form1。
3.添加一模块名称随便。
4.添加一个类模块Class1。窗体代码：
无模块代码：
Dim c As New Class
Sub main()
    c.ss = c.ss
    Form1.Show
End Sub

Answer 4

类模块代码：Public WithEvents Cmd As CommandButtonPublic muad_red As Long
Public muad_green As Long
Public muad_blue As Long
Private Sub Class_Initialize()
    muad_red = vbRed
    muad_green = vbGreen
    muad_blue = vbBlue    Set Cmd = Form1.Controls.Add("VB.COMMANDBUTTON", "cmd")
    With Cmd                                               '下面控制位置
        .Height = 800
        .Width = 5000
        .Left = 300
        .Caption = "这个按钮是运行时通过继承vb的标准按钮控件继承的"
        .Top = 300
        .Visible = True
    End With
End SubPrivate Sub cmd_Click()
Form1.BackColor = Me.muad_green
'Inheritance event click to form1_commandbutton from class
Form1.BackColor = Me.muad_greenIf MsgBox("你单击了按钮，是否需要退出？", vbYesNo + vbInformation) = vbYes Then
Unload Form1
End If
End Sub

Answer 5

纠正：
模块代码：
Dim c As New Class1
Sub main()
    c.Cmd = c.Cmd
    Form1.Show
End Sub

Answer 6

楼上（塞北雪貂）理解正确，感谢的提供的方法，但我想要的效果是  在form上正常添加一个button，点那个button调用class中你写的事件~~如何关联？

Answer 7

那就把类模块中Private Sub Class_Initialize()过程里面的代码：
Set Cmd = Form1.Controls.Add("VB.COMMANDBUTTON", "cmd")
替换为：
Set Cmd = Form1.你的按钮名字

Answer 8

模块代码：c.cmd=c.cmd   什么意思？ 运行时这会抱错请试一下你写的代码能正常运行么？ 谢谢~ 正常运行后马上给分`

Answer 9

对不起，是我有些地方没设置好，问题已经成功解决，感谢Modest(塞北雪貂 -- 偶最欣赏楼主的分)