求助一个神奇的问题,有关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
望大神解决 展开
主程序代码:
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
望大神解决 展开
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询