dll vb怎么转成dlephi ( 积分: 100 )

dll vb怎么转成dlephi
'定义 BillEvent 接口. 必须具有的声明, 以此来获得事件
Private WithEvents m_BillInterface As BillEvent

Public Sub Show(ByVal oBillInterface As Object)
'BillEvent 接口实现
'注意: 此方法必须存在, 请勿修改
Set m_BillInterface = oBillInterface
End Sub

Private Sub Class_Terminate()
'释放接口对象
'注意: 此方法必须存在, 请勿修改
Set m_BillInterface = Nothing
End Sub

Private Sub m_BillInterface_BeforeSave(bCancel As Boolean)
'TODO: 请在此处添加代码响应事件 BeforeSave
End Sub