VIP会员
购物车
私信
发表新帖
立即签到
关注
回复
支持(
反对(
首页上一页 1 下一页尾页 3 条记录 1/1页
怎么解决鼠标光标隐藏的问题
发表在VB答疑区
2010-09-08
是否精华
是
否
版块置顶:
是
否
Public Declare Function sendmessage Lib "user32" Alias "sendmessagea" (ByVal hwnd As Long, ByVal wmsg As Long, _
ByVal wparam As Long, iparam As Any) As Long
Public Declare Function showcursor Lib "user32" (ByVal bshow As Long) As Long
Public Declare Sub setwindowpos Lib "user32" (ByVal hwnd As Long, ByVal hwndinserafter As Long, _
ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wflags As Long)
Public Const wm_gettext = &HD
Public Const swp_showwindow = &H40
Public Const hwnd_notopmost = -2
我把这段代码放到module1中然后在form1中输入代码
Private Sub Form_Activate()
Showcursor 0
End sub
然后弹出 实时错误 ''453' 找不到dll入口点 showcursor in user32 这个是什么意思啊,怎么解决啊
ByVal wparam As Long, iparam As Any) As Long
Public Declare Function showcursor Lib "user32" (ByVal bshow As Long) As Long
Public Declare Sub setwindowpos Lib "user32" (ByVal hwnd As Long, ByVal hwndinserafter As Long, _
ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wflags As Long)
Public Const wm_gettext = &HD
Public Const swp_showwindow = &H40
Public Const hwnd_notopmost = -2
我把这段代码放到module1中然后在form1中输入代码
Private Sub Form_Activate()
Showcursor 0
End sub
然后弹出 实时错误 ''453' 找不到dll入口点 showcursor in user32 这个是什么意思啊,怎么解决啊
分享到：
