VIP会员
购物车
私信
发表新帖
立即签到
关注
回复
支持(
反对( 首页上一页 1 下一页尾页 1 条记录 1/1页
实现鼠标光标的隐藏
发表在VB答疑区
2010-09-05
是否精华
是
否
版块置顶:
是
否
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
分享到：
