클래스 모듈 - VB

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Class1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
    '전용변수 선언
    Private mMydata As Long
    Private mResult As Long

    '속성추가부분
    '외부에서 값을 읽기 위해서 필요한 부분
    Public Property Get mydata() As Long
        mydata = mMydata
    End Property '외부에서 값을 넣기위해서 필요한 부분

    Public Property Let mydata(value As Long)
        mMydata = value
    End Property '외부에서 결과 값을 읽어갈 때 사용할 읽기전용속성

    Public Property Get result() As Long
        result = mResult
    End Property '메서드 추가부분

    '실제계산을 담당하는 compute method부분
    Public Sub compute()
        Dim i As Long
        Dim total As Long
        total = 0

        For i = 1 To mMydata
            total = total + i
            Debug.Print total
        Next i

        '값을 갖기위해서 클래스에서만 사용되는 변수에 값을 넣는다.
        mResult = total
        Debug.Print mResult
    End Sub


Private Sub Command1_Click()
    Dim firstC As New Class1
   
    '값을 불러와서 mydata의 쓰기속성에 넣어야한다.
    firstC.mydata = Text1.Text
    '값을 읽은 후에는 메서드를 호출해서 계산을 수행시켜야 한다.
    firstC.compute
    'result의 읽기속성을 사용해서 값을 출력한다.
    Text2.Text = "1부터" & firstC.mydata & "까지의 합은 " & firstC.result & "입니다."
   
    Set firstC = Nothing
End Sub


참조 사이트:

http://yatoyato.tistory.com/235