司徒大侠和你一起学类模块

dogingate

司徒大侠 发表于 2012-9-29 16:55
哎，找不到工作没心情更新。我喜欢excel，找不到工作很苦恼。想从事excel的工作

咋不更新了

dogingate

这里有一个例子，创建一个类模块，命名为Message，输入
' Message class
Public Value As String
Public Title As String

Public Sub Show()
    MsgBox Value, , Title
End Sub

创建一个模块，输入
' TestMessage module
Sub TestMessageClass()
    Dim msg1 As New Message, msg2 As New Message
    msg1.Title = "Msg1 Object"
    msg1.Value = "This message brought to you by Msg1."
    msg2.Title = "Msg2 Object"
    msg2.Value = "This message brought to you by Msg2."
    msg1.Show
    msg2.Show
End Sub

梁家大侠

讲的不错，可惜不更新了