[VB] 클래스 사용하기

▶ 클래스 사용하기 예제

Dim pTestClass As TestClass

Set pTestClass = New TestClass

pTestClass.ValueA = 10
pTestClass.ValueB = 50

Print pTestClass.GetSummary()

 

▶ 클래스 사용하기 예제

Option Explicit

Private m_nValueA As Integer

Private m_nValueB As Integer

Private Sub Class_Initialize()

    m_nValueA = 0
    m_nValueB = 0

End Sub

Public Property Get ValueA() As Integer

    ValueA = m_nValueA

End Property

Public Property Let ValueA(nValue As Integer)

    m_nValueA = nValue

End Property

Public Property Get ValueB() As Integer

    ValueB = m_nValueB

End Property

Public Property Let ValueB(nValue As Integer)

    m_nValueB = nValue

End Property

Public Function GetSummary() As Integer

    GetSummary = m_nValueA + m_nValueB

End Function
                    
        

  

    
728x90
    
    
  


  

    
반응형
    
    
    
  


  

    
그리드형(광고전용)
    

      
    
  

        

                                        

  



  


  




                            
        

  

    

      
카카오스토리
      
트위터
      
페이스북
    
  
  



        

                    

  
'VB' 카테고리의 다른 글
  

    

      
[VB] INI 파일 항목 값 읽기  (0)
      
2015.06.01
    
    

      
[VB] 애플리케이션 중복 여부 구하기  (0)
      
2015.06.01
    
    

      
[VB] DBEngine 클래스 : CompectDatabase 메소드를 사용해 MDB 파일 압축하기  (0)
      
2015.06.01
    
    

      
[VB] MDB 파일 정보 구하기  (0)
      
2015.06.01
    
    

      
[VB] 마우스 커서 표시 여부 설정하기  (0)
      
2015.05.31
    
    

      
[VB] 마우스 위치를 폼 내부로 제한하기  (0)
      
2015.05.31
    
    

      
[VB] 아래 한글 페이지 마진 설정하기  (0)
      
2015.05.30
    
    

      
[VB] 아래 한글 테이블 추가하기  (0)
      
2015.05.30
    
    

      
[VB] 아래 한글 텍스트 크기 설정하기  (0)
      
2015.05.28
    
    

      
[VB] 아래 한글 텍스트 색상 설정하기  (0)
      
2015.05.27