VB6 Thực hiện & sự kiện

Question

Tôi có một dự án VB6 cũ hơn mà tôi đang cố gắng để thêm các bài kiểm tra đơn vị cho. Tôi đã phá vỡ sự phụ thuộc trong các lớp học bằng cách chế nhạo các đối tượng. Mọi thứ diễn ra tuyệt vời cho đến khi tôi tìm thấy một số phụ thuộc đã gây ra các sự kiện và bây giờ tôi đã đánh một bức tường.

Dưới đây là một ví dụ nhanh về những gì tôi đang cố gắng để làm điều đó không làm việc:

ITab.cls:

Option Explicit 

Public Event Click(tabNumber As Integer) 

Public Sub SomeOtherFunction() 

End Sub 

clsRealTab.cls:

Option Explicit 
Implements ITab 

Public Event Click(tabNumber As Integer) 

Public Sub ITab_SomeOtherFunction() 
    'code here' 
End Sub 

frmMain. frm:

Option Explicit 

Private WithEvents mTab as ITab 

Public Sub Main() 
    Set mTab = New clsRealTab 'gives "Object or class does not support the set of events" error' 
End Sub 

Doe ai biết nếu có một cách để làm cho công việc này hoặc một cách khác để đi về xử lý tình trạng này?

Tôi đã triển khai giao diện gọi lại mà tôi gọi là ITabEventsHandler. Nó trông giống như thế này:

Option Explicit 

Public Sub Click(intPreviousTab As Integer, objSSTab As Object) 

End Sub 

Sau đó, tôi thêm Implements ITabEventsHandler mẫu của tôi và thông qua các hình thức như một tham số ITabEventsHandler để initializer clsTab tôi. Thay vì tăng sự kiện Click(...) tùy chỉnh, tôi chỉ có thể gọi mTabEventsHandler.Click(...).

Cảm ơn bạn đã đề xuất!

Answer 1

Bạn không thể "triển khai" các giao diện nguồn trong VB6. Vì vậy, câu trả lời ngắn gọn là "không, bạn không thể làm điều này". Bạn có thể hack nó với chỉnh sửa typelib trực tiếp nhưng điều này sẽ trở nên xấu xí rất nhanh chóng.

Bạn có thể xem xét các giao diện gọi lại trong trường hợp của bạn nếu bạn phải "triển khai" các lớp khác nhau (giả).