菜单求简单问题“用户定义类型未定义”

Question

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
Call ShowMsg(Item.ListSubItems(1), "")
End Sub第一句话报“编译错误：用户定义类型未定义”

Answer 1

你在控件面板上面，点引用控件，将那个 Microsoft Windows Common Controls 5.0 的勾除掉。
再勾上 Microsoft Windows Common Controls 6.0你那个工程应该是旧版的，请重新引用新版的控件.

Answer 2

如果窗体上没有 listview1\ winsock1 等控件,你重新引用后要再加上 listview1 \winsock1 等控件

Answer 3

你的电脑上没有mscomctl.ocx这个文件。下载一个，保存到 Windows\System32 目录中，用 regsvr32 注册一下。或者，你在VB6中新建一个标准exe工程，然后控件工具箱中点右键，
点“部件…”，再点“浏览”按钮，打开mscomctl.ocx这个文件，VB6就给你把它注册了。