能给解释一下这些代码是什么意思吗

xcp_0103

能给解释一下这些代码是什么意思吗
[U]Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long

Const WM_SYSCOMMAND As Long = &H112
Const SC_MOVE_MOUSE As Long = &HF012&
Private Declare Function ShowWindow Lib "user32" _
  (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
[/U]

jhf567

这是调用API函数的吧？

[此贴子已经被作者于2003-12-19 11:00:51编辑过]

xcp_0103

的确是，可是，我不知道怎么用呀

wanglijie

非常好的api帮助软件，有例子，还有说明，自己看吧。傻瓜都能看懂

wanglijie

怎么不能上传附件，那自己去查找这个软件吧：Snow_Win32API 中文帮助

duzili

VB声明
Declare Function ShowCursor Lib "user32" Alias "ShowCursor" (ByVal bShow As Long) As Long
说明
控制鼠标指针的可视性
返回值
Long，显示计数（参考注解）
参数表
参数 类型及说明
bShow Long，TRUE（非零）显示指针，FALSE隐藏
注解
windows维持着一个内部显示计数；倘若bShow为TRUE，那么每调用一次这个函数，计数就会递增1；反之，如bShow为FALSE，则计数递减1。只有在这个计数大于或等于0的情况下，指针才会显示出来

'例子
[fly][glow=255,red,2]10秒钟后光标标才会显示出来[/glow][/fly]
'将以下代码粘贴在窗体代码里
'================================
Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
Private Sub Form_Load()
    'KPD-Team 1998
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    'Hide the cursor
    ShowCursor 0
    'Wait 10 seconds
    t = Timer
    Do: DoEvents: Loop Until Timer > t + 10
    'Show the cursor
    ShowCursor 1
End Sub

[此贴子已经被作者于2003-12-19 20:12:42编辑过]