delegate.rar (6.74 KB)

程序代码：

'作者:ioriliao
'个人博客:http://'文件名:Delegate.cls

'定义一个接口
Public Sub printf(ByVal str As String)

End Sub

程序代码：

'作者:ioriliao
'个人博客:http://'文件名:func1.cls

'继承接口
Implements Delegate

'实现接口
Private Sub Delegate_printf(ByVal str As String)
     MsgBox str
End Sub

程序代码：

'作者:ioriliao
'个人博客:http://'文件名:func2.cls

'继承接口
Implements Delegate

'实现接口
Private Sub Delegate_printf(ByVal str As String)
    MsgBox str
    MsgBox str & "     " & Now
End Sub

程序代码：

Private Sub printf(ByVal del As Delegate, ByVal str As String)
    Call del.printf(str)
End Sub

Private Sub Command1_Click()

    Call printf(New func1, "hello")
    Call printf(New func2, "hi")
    
End Sub