Private Sub Form_Load()
Dim AniCur As Long
AniCur& = LoadResPicture(2, 2)
Call SetClassLong(Me.hwnd, GCL_HCURSOR, AniCur)
End Sub
为何执行完了没有反应,而用 Set Me.MouseIcon = LoadResPicture(2, 2)就可以了,为什么呢?请试,盼答。
...全文
373打赏收藏
请各位大侠帮忙看一下下面的代码?
Private Sub Form_Load() Dim AniCur As Long AniCur& = LoadResPicture(2, 2) Call SetClassLong(Me.hwnd, GCL_HCURSOR, AniCur) End Sub 为何执行完了没有反应,而用 Set Me.MouseIcon = LoadResPicture(2, 2)就可以了,为什么呢?请试,盼答。