Question

50分~~~~~vba代码封装vb6.0 提示用户定义类型未定义

Private Sub TreeView1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As stdole.OLE_XPOS_PIXELS, ByVal y As stdole.OLE_YPOS_PIXELS)
就是这句 需要引用什么控件啊？？？

Answer 1

那些都是word-vba的内部常量！
在word录制一个相关操作的“宏”，编辑宏在其中设置断点（与vb6.0一样），运行宏，程序中断时鼠标指向自己想知道的内部常量就知其值了

Answer 2

你那个VBA代码在什么环境中啊，TreeView是在Microsoft Windows Common Controls中包含的控件之一，但是标准的MouseUp事件的声明不是这样的呢：
Private Sub TreeView1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
End Sub

追问

是excel的vba代码，现在在vb6.0里面封装为dll。  按你上面改动的，出现图片这样的提示

追答

Private Sub TreeView1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As stdole.OLE_XPOS_PIXELS, ByVal y As stdole.OLE_YPOS_PIXELS)
MsgBox ""
End Sub

这个好象在Excel中执行是正确的呢。

追问

是的 在excel里面运行是通过的，现在是放到vb6.0里面 不知道需要做什么样的改动。

如果能帮忙解决，再加50分也行啊。 谢谢！！

追答

没做过这种，没经验。

Answer 3

这个在excelhome 上没回你吗？

把文件打包发我看看。

987122817@qq.com