求助一个神奇的问题,有关SkinH_VB6.dll跟鼠标滚轮API未知的问题,高分求助! 100

设计了一个程序,先是为了美化界面用到了SkinH_VB6.dll,后面由于为了方便操作给VScroll添加了支持鼠标滚轮操作的代码,在XP下正常运行没有冲突,但是在win... 设计了一个程序,先是为了美化界面用到了SkinH_VB6.dll,后面由于为了方便操作给VScroll添加了支持鼠标滚轮操作的代码,在XP下正常运行没有冲突,但是在win7下面鼠标滚轮的代码就失效了,是否有解决办法?
主程序代码:
Private Sub Form_Load()
SkinH_Attach
SkinH_AttachEx App.Path & "/Pfur/aero.she", ""
'如果把这2句皮肤代码代码去掉滚轮就能正常使用了
End Sub

Private Sub Picture1_GotFocus(index As Integer) '获取焦点时候
If index = 0 Then
Set VScrol = Me.VScroll2
End If
If index = 1 Then
Set VScrol = Me.VScroll1
End If

hwndVS = Picture1(index).hWnd
OldWindowProc = GetWindowLong(Picture1(index).hWnd, GWL_WNDPROC)
Call SetWindowLong(Picture1(index).hWnd, GWL_WNDPROC, AddressOf NewWindowProc)

End Sub
Private Sub Picture1_LostFocus(index As Integer)
SetWindowLong Picture1(index).hWnd, GWL_WNDPROC, Oldwinproc
End Sub
我把问题代码重新打包了一个工程
http://yun.baidu.com/pcloud/album/file?album_id=4665659187635383070&uk=2030078696&fsid=212675178875565
望大神解决
展开
 我来答
tianqing20wen

2014-06-04 · TA获得超过2.4万个赞
知道大有可为答主
回答量:8226
采纳率:88%
帮助的人:5122万
展开全部

win7 xp 均没问题,附件

追问
测试可用  求源码
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
zx001z7d53
2014-06-07 · TA获得超过2万个赞
知道大有可为答主
回答量:2.4万
采纳率:52%
帮助的人:5647万
展开全部
我用中文专业版没问题,如果需要专业版的话联系我
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式