VB6自定义OCX与另一个OCX事件/方法集成

Question

我在VB6中创建了OCX，它仅包含ListView Controt(添加了MSCOMCTL.OCX(并编码为" drag drog drop"功能，目前我想在另一个应用程序中实现OCX，但是我'我不确定如何处理活动。

listView具有预定义的事件/方法/属性，当我创建OCX时，未加载了预先的lisview事件。示例listView1.listItem

public sub Listviewocx()
eventvar1 = Data.Files.Count
For intCOunter = 1 To eventvar1
strpath = Data.Files(intCOunter)
msgbox strpath
next
end with
End sub

谢谢thiru

Answer 1

创建ActiveX控件时，您不会自动揭露构成控件的事件，方法和属性(在您的情况下，"构造控件"是listView(。例如，如果您希望控件的用户可以访问ListView的点击事件，则必须在单击事件处理程序中再次提高该事件。这样：

Sub ListView1_Click() 
    RaiseEvent "MyListViewClick"
End Sub

然后，在使用您的控件的应用程序中：

Sub Listviewocx_MyListViewClick()
    'Handle the event here
End Sub

您必须使用组成控制的属性和方法进行类似的事情。

有关更多信息，请阅读此信息和有关ActiveX控件的相关文档。