연습: COM 개체를 사용한 상속 구현(Visual Basic)

아티클
03/13/2024

이전 버전의 Visual Basic에서 만들어진 경우에도 COM 개체의 Public 클래스에서 Visual Basic 클래스를 파생할 수 있습니다. 다른 기본 클래스의 속성과 메서드가 재정의되거나 오버로드될 수 있는 것처럼 COM 개체에서 상속된 클래스의 속성과 메서드도 재정의되거나 오버로드될 수 있습니다. COM 개체로부터의 상속은 다시 컴파일하지 않으려는 기존 클래스 라이브러리가 있는 경우 유용합니다.

다음 프로시저에서는 Visual Basic 6.0을 사용하여 클래스가 포함된 COM 개체를 만든 다음 이를 기본 클래스로 사용하는 방법을 보여 줍니다.

참고 항목

일부 Visual Studio 사용자 인터페이스 요소의 경우 다음 지침에 설명된 것과 다른 이름 또는 위치가 시스템에 표시될 수 있습니다. 이러한 요소는 사용하는 Visual Studio 버전 및 설정에 따라 결정됩니다. 자세한 내용은 IDE 개인 설정을 참조하세요.

이 연습에서 사용되는 COM 개체를 빌드하려면

Visual Basic 6.0에서 새 ActiveX DLL 프로젝트를 엽니다. Project1이라는 프로젝트가 만들어집니다. Class1이라는 클래스가 있습니다.
프로젝트 탐색기에서 Project1을 마우스 오른쪽 단추로 클릭한 다음 Project1 속성을 클릭합니다. 프로젝트 속성 대화 상자가 표시됩니다.
프로젝트 속성 대화 상자의 일반 탭에서 프로젝트 이름 필드에 ComObject1을 입력하여 프로젝트 이름을 변경합니다.
프로젝트 탐색기에서 Class1을 마우스 오른쪽 단추로 클릭한 다음 속성을 클릭합니다. 클래스의 속성 창이 표시됩니다.
Name 속성을 MathFunctions로 변경합니다.
프로젝트 탐색기에서 MathFunctions를 마우스 오른쪽 단추로 클릭한 다음 코드 보기를 클릭합니다. 코드 편집기가 표시됩니다.

속성 값을 보유할 지역 변수를 추가합니다.

' Local variable to hold property value
Private mvarProp1 As Integer

속성 Let 및 속성 Get 속성 프로시저를 추가합니다.

Public Property Let Prop1(ByVal vData As Integer)
   'Used when assigning a value to the property.
   mvarProp1 = vData
End Property
Public Property Get Prop1() As Integer
   'Used when retrieving a property's value.
   Prop1 = mvarProp1
End Property

함수 추가:

Function AddNumbers(
   ByVal SomeNumber As Integer,
   ByVal AnotherNumber As Integer) As Integer

   AddNumbers = SomeNumber + AnotherNumber
End Function

파일 메뉴에서 Make ComObject1.dll을 클릭하여 COM 개체를 만들고 등록합니다.

참고 항목

Visual Basic으로 만든 클래스를 COM 개체로 노출할 수도 있지만 이는 실제 COM 개체가 아니므로 이 연습에서는 사용할 수 없습니다. 자세한 내용은 참조 하세요 .NET Framework 애플리케이션의 COM 상호 운용성합니다.

Interop 어셈블리

다음 프로시저에서는 비관리 코드(예: COM 개체)와 Visual Studio에서 사용하는 관리 코드 사이의 브리지 역할을 하는 interop 어셈블리를 만듭니다. Visual Basic이 만드는 interop 어셈블리는 interop 마샬링, 매개 변수 패키지 프로세스, COM 개체 간에 이동할 때 값을 동등한 데이터 형식으로 반환하는 프로세스 등 COM 개체 작업에 대한 많은 세부 정보를 처리합니다. Visual Basic 애플리케이션의 참조는 실제 COM 개체가 아닌 interop 어셈블리를 가리킵니다.

Visual Basic 2005 이상 버전에서 COM 개체를 사용하려면

새 Visual Basic Windows 애플리케이션 프로젝트를 엽니다.
프로젝트 메뉴에서 참조 추가를 클릭합니다.

참조 추가 대화 상자가 표시됩니다.
COM 탭의 구성 요소 이름 목록에서 ComObject1을 두 번 클릭하고 확인을 클릭합니다.
프로젝트 메뉴에서 새 항목 추가를 클릭합니다.

새 항목 추가 대화 상자가 표시됩니다.
템플릿 창에서 클래스를 클릭합니다.

기본 파일 이름인 Class1.vb가 이름 필드에 나타납니다. 이 필드를 MathClass.vb로 변경하고 추가를 클릭합니다. 그러면 MathClass라는 클래스가 만들어지고 해당 코드가 표시됩니다.

COM 클래스에서 상속하려면 MathClass 상단에 다음 코드를 추가합니다.

' The inherited class is called MathFunctions in the base class,
' but the interop assembly appends the word Class to the name.
Inherits ComObject1.MathFunctionsClass

다음 코드를 MathClass에 추가하여 기본 클래스의 공용 메서드를 오버로드합니다.

'  This method overloads the method AddNumbers from the base class.
Overloads Function AddNumbers(
    ByVal SomeNumber As Integer,
    ByVal AnotherNumber As Integer) As Integer

    Return SomeNumber + AnotherNumber
End Function

다음 코드를 MathClass에 추가하여 상속된 클래스를 확장합니다.

'  The following function extends the inherited class.
Function SubtractNumbers(
    ByVal SomeNumber As Integer,
    ByVal AnotherNumber As Integer) As Integer

    Return AnotherNumber - SomeNumber
End Function

새 클래스는 COM 개체의 기본 클래스 속성을 상속하고, 메서드를 오버로드하고, 클래스를 확장하는 새 메서드를 정의합니다.

상속된 클래스를 테스트하려면

시작 양식에 단추를 추가한 다음 두 번 클릭하여 해당 코드를 봅니다.

단추의 Click 이벤트 처리기 프로시저에서 다음 코드를 추가하여 MathClass의 인스턴스를 만들고 오버로드된 메서드를 호출합니다.

Dim Result1 As Short
Dim Result2 As Integer
Dim Result3 As Integer
Dim MathObject As New MathClass
Result1 = MathObject.AddNumbers(4S, 2S) ' Add two Shorts.
Result2 = MathObject.AddNumbers(4, 2) 'Add two Integers.
Result3 = MathObject.SubtractNumbers(2, 4) ' Subtract 2 from 4.
MathObject.Prop1 = 6 ' Set an inherited property.

MsgBox("Calling the AddNumbers method in the base class " &
       "using Short type numbers 4 and 2 = " & Result1)
MsgBox("Calling the overloaded AddNumbers method using " &
       "Integer type numbers 4 and 2 = " & Result2)
MsgBox("Calling the SubtractNumbers method " &
       "subtracting 2 from 4 = " & Result3)
MsgBox("The value of the inherited property is " &
        MathObject.Prop1)

F5 키를 눌러 프로젝트를 실행합니다.

양식에서 단추를 클릭하면 먼저 Short 데이터 형식 번호를 사용하여 AddNumbers 메서드가 호출되고 Visual Basic은 기본 클래스에서 적절한 메서드를 선택합니다. AddNumbers에 대한 두 번째 호출은 MathClass의 오버로드 메서드로 전달됩니다. 세 번째 호출은 클래스를 확장하는 SubtractNumbers 메서드를 호출합니다. 기본 클래스의 속성이 설정되고 값이 표시됩니다.

다음 단계

오버로드된 AddNumbers 함수가 COM 개체의 기본 클래스에서 상속된 메서드와 동일한 데이터 형식을 갖는 것으로 나타납니다. 이는 기본 클래스 메서드의 인수와 매개 변수가 Visual Basic 6.0에서 16비트 정수로 정의되어 있지만 이후 버전의 Visual Basic에서는 Short 형식의 16비트 정수로 노출되기 때문입니다. 새 함수는 32비트 정수를 허용하고 기본 클래스 함수를 오버로드합니다.

COM 개체로 작업할 때 매개 변수의 크기와 데이터 형식을 확인합니다. 예를 들어, Visual Basic 6.0 컬렉션 개체를 인수로 받아들이는 COM 개체를 사용하는 경우 이후 버전의 Visual Basic에서 컬렉션을 제공할 수 없습니다.

COM 클래스에서 상속된 속성과 메서드는 재정의될 수 있습니다. 즉, 기본 COM 클래스에서 상속된 속성이나 메서드를 바꾸는 로컬 속성이나 메서드를 선언할 수 있습니다. 상속된 COM 속성을 재정의하는 규칙은 다음을 제외하고 다른 속성 및 메서드를 재정의하는 규칙과 유사합니다.

COM 클래스에서 상속된 속성이나 메서드를 재정의하는 경우 상속된 다른 모든 속성과 메서드도 재정의해야 합니다.
ByRef 매개 변수를 사용하는 속성은 재정의될 수 없습니다.

다음을 통해 공유