1.请问如何将下面这段VB语句转成DELPHI的
2.VB中创建一个Active DLL,在DELPHI如何实现
(下面程序段是要实现一个DLL)'定义 BillEvent 接口. 必须具有的声明, 以此来获得事件
Private WithEvents m_BillInterface As BillEvent
Public Sub Show(ByVal oBillInterface As Object)
'BillEvent 接口实现
'注意: 此方法必须存在, 请勿修改
Set m_BillInterface = oBillInterface
End SubPrivate Sub Class_Terminate()
'释放接口对象
'注意: 此方法必须存在, 请勿修改
Set m_BillInterface = NothingEnd SubPrivate Sub m_BillInterface_AfterNewBill()
'TODO: 请在此处添加代码响应事件 AfterNewBill
End Sub
2.VB中创建一个Active DLL,在DELPHI如何实现
(下面程序段是要实现一个DLL)'定义 BillEvent 接口. 必须具有的声明, 以此来获得事件
Private WithEvents m_BillInterface As BillEvent
Public Sub Show(ByVal oBillInterface As Object)
'BillEvent 接口实现
'注意: 此方法必须存在, 请勿修改
Set m_BillInterface = oBillInterface
End SubPrivate Sub Class_Terminate()
'释放接口对象
'注意: 此方法必须存在, 请勿修改
Set m_BillInterface = NothingEnd SubPrivate Sub m_BillInterface_AfterNewBill()
'TODO: 请在此处添加代码响应事件 AfterNewBill
End Sub
引用 这个 pas
再往下,就是Delphi 的 class
我应该可以的