การใช้งาน Multiple Inheritance ใน OOP Concept ในภาษา VBA แบบง่ายๆ พร้อมตัวอย่าง CODE และอธิบายการทำงาน

ในโลกของการเขียนโปรแกรมเชิงวัตถุ (Object-Oriented Programming - OOP) แนวคิดเรื่องการสืบทอด (Inheritance) เป็นหนึ่งในแนวคิดที่สำคัญและช่วยเพิ่มความยืดหยุ่นให้กับการออกแบบโปรแกรม โดยทั่วไปแล้ว ภาษาโปรแกรมส่วนใหญ่ที่สนับสนุน OOP จะมีการจัดการกับรูปแบบการสืบทอดแบบเดียว (Single Inheritance) และการสืบทอดแบบหลายชั้น (Multiple Inheritance) แต่ในภาษา VBA นั้นไม่สนับสนุนการสืบทอดแบบหลายชั้นโดยตรง ดังนั้นในบทความนี้เราจะมาพูดถึงการจำลองความสามารถของการสืบทอดแบบหลายชั้นในภาษา VBA กัน

ทำความเข้าใจกับ Multiple Inheritance

การสืบทอดแบบหลายระดับ (Multiple Inheritance) คือ การอนุญาตให้วัตถุสามารถสืบทอดคุณสมบัติและพฤติกรรมจากหลายคลาสได้โดยตรง ตัวอย่างเช่น ถ้ามีคลาส A และ B แล้วเราต้องการสร้างคลาส C ที่เราต้องการให้สามารถเข้าถึงคุณสมบัติและพฤติกรรมของทั้ง A และ B นี่คือภาพรวมของความต้องการในการใช้งาน Multiple Inheritance

อย่างไรก็ตาม ใน VBA นั้นเราจะใช้แนวทางการประยุกต์ความสามารถของการสืบทอดแบบหลายชั้นด้วยการใช้การสร้าง Interface และการประกอบวัตถุ (Composition) แทน และในบทความนี้เราจะแสดงให้เห็นถึงวิธีการทำงานนี้

การสร้าง Interface ในภาษา VBA

ก่อนอื่นเราจะเริ่มด้วยการสร้าง Interface ที่พูดถึงคุณสมบัติของคลาส A และ B โดยเราสามารถใช้คำสั่ง `Implements` จากนั้นเราจะสร้างคลาสแต่ละคลาสเพื่อให้สามารถทำงานร่วมกันได้

ขั้นตอนที่ 1: สร้าง Interface

1. เปิดโปรแกรม Excel แล้วกด `ALT + F11` เพื่อเข้าสู่ Visual Basic for Applications (VBA)

2. คลิกขวาที่ Project ของเราไปที่ Insert > Class Module

3. เปลี่ยนชื่อ Class Module เป็น `IAnInterface`

4. เพิ่มโค้ดดังนี้:

 ' IAnInterface
Public Sub ShowMessage()
End Sub

Public Function GetValue() As String
End Function

ขั้นตอนที่ 2: สร้างคลาส A

1. เพิ่ม Class Module ใหม่ และตั้งชื่อว่า `ClassA`

2. เพิ่มโค้ดดังนี้:

 ' ClassA
Implements IAnInterface

Private msg As String

Public Sub New()
    msg = "Hello from Class A!"
End Sub

Public Sub ShowMessage() Implements IAnInterface.ShowMessage
    MsgBox msg
End Sub

Public Function GetValue() As String Implements IAnInterface.GetValue
    GetValue = "Value from Class A"
End Function

ขั้นตอนที่ 3: สร้างคลาส B

1. สร้าง Class Module ใหม่ และตั้งชื่อว่า `ClassB`

2. เพิ่มโค้ดดังนี้:

 ' ClassB
Implements IAnInterface

Private msg As String

Public Sub New()
    msg = "Hello from Class B!"
End Sub

Public Sub ShowMessage() Implements IAnInterface.ShowMessage
    MsgBox msg
End Sub

Public Function GetValue() As String Implements IAnInterface.GetValue
    GetValue = "Value from Class B"
End Function

ขั้นตอนที่ 4: สร้างคลาส C โดยใช้ Composition

1. สร้าง Class Module ใหม่ และตั้งชื่อว่า `ClassC`

2. เพิ่มโค้ดดังนี้:

 ' ClassC
Private a As ClassA
Private b As ClassB

Public Sub New()
    Set a = New ClassA
    Set b = New ClassB
End Sub

Public Sub ShowMessages()
    a.ShowMessage
    b.ShowMessage
End Sub

Public Function GetCombinedValues() As String
    GetCombinedValues = a.GetValue() & " & " & b.GetValue()
End Function

ขั้นตอนที่ 5: ทดสอบการทำงาน

เราจะทดสอบว่าทุกอย่างทำงานตามที่คาดหวังหรือไม่ โดยการสร้างโมดูลทั่วไป และเรียกใช้คลาส C

1. คลิกขวาที่ Project ของเราไปที่ Insert > Module

2. เพิ่มโค้ดดังนี้:

 ' Module1
Sub TestInheritance()
    Dim c As ClassC
    Set c = New ClassC
    c.ShowMessages
    MsgBox c.GetCombinedValues
End Sub

การทำงานของโค้ด

ในขั้นตอนนี้ เมื่อเรารันโปรแกรมที่มีฟังก์ชัน `TestInheritance` จะปรากฏกล่องข้อความจากทั้งคลาส A และ B จากนั้นจะแสดงค่าที่รวมกันจากทั้งสองคลาส ทำให้เราทราบว่าการใช้ Composition ร่วมกับ Interface ช่วยสร้างความสามารถเหมือนการสืบทอดแบบหลายชั้นได้อย่างมีประสิทธิภาพ

Use Case ในโลกจริง

Imagine we are developing a software tool for project management. We have two main classes: `Task` and `Note`.

- `Task` contains methods to handle tasks related to deadlines, assignment, and completion status.

- `Note` allows users to jot down notes with associated tags and modification options.

When we create a `ProjectItem` class (which serves as our `ClassC` in the example), it can both be a task and have associated notes. This is a perfect representation of multiple inheritance, where a project item can take on the behaviors of both tasks and notes seamlessly.

สรุป

ในที่สุด แม้ว่า VBA จะไม่สนับสนุนการสืบทอดแบบหลายชั้นอย่างเป็นทางการ แต่เรายังมีทางเลือกในการทำให้เป็นไปได้ผ่าน Interfaces และ Composition ซึ่งช่วยให้การพัฒนาโปรแกรมได้มีความยืดหยุ่นมากขึ้น

ถ้าคุณสนใจที่จะศึกษาและพัฒนาทักษะการเขียนโปรแกรมในแนวทางที่ลึกซึ้งยิ่งขึ้น อย่าลืมมาเรียนที่ EPT (Expert Programming Tutor) ที่เราจะทำให้คุณเป็นโปรแกรมเมอร์ที่เชี่ยวชาญในศาสตร์นี้!

หมายเหตุ: ข้อมูลในบทความนี้อาจจะผิด โปรดตรวจสอบความถูกต้องของบทความอีกครั้งหนึ่ง บทความนี้ไม่สามารถนำไปใช้อ้างอิงใด ๆ ได้ ทาง EPT ไม่ขอยืนยันความถูกต้อง และไม่ขอรับผิดชอบต่อความเสียหายใดที่เกิดจากบทความชุดนี้ทั้งทางทรัพย์สิน ร่างกาย หรือจิตใจของผู้อ่านและผู้เกี่ยวข้อง