看到前面的帖子说:“把Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)写入模块文件的通用声明就能用了。”
我照做了,提示是“子程序或函数未定义”
是不是我少了什么东西,高手们来帮帮忙。。
先谢了。。
我照做了,提示是“子程序或函数未定义”
是不是我少了什么东西,高手们来帮帮忙。。
先谢了。。
解决方案 »
- VB开发2层 和 3层的C/S程序,数据库SQL SERVER,局域网中使用.除了3层结构的便于维护升级,其他有什么很大区别吗?
- 公开VB6代码窗口中键滚轮支持的代码!是自己捉摸出来的!大家看看!
- 请教各位:
- 请问如何得到任意文件夹的pidl值?
- 如果用API函数得到win2000安装的版本(Advance Server、Server、Profession)?
- 程序在后台运行时,如何使鼠标的形状改变?
- 有人在吗?我的oicq是712779
- ACCESS多用户使用出错的问题?
- 在win2000下,安装不了程序,这是怎么回事?
- 谁告诉我怎么看以前的提问????
- 如何设置Microsoft HTML object library控件的url属性呢??
- 怎么写才能读取http://www.yourweb.com/xxxx.txt里边的内容呢
去掉public应该可以,如果为了延时最好用下面方法
Public Function Delay(Mins%, Secs%, Optional ByRef StopFlag) As Long
Dim EndOfDelay
EndOfDelay = DateAdd("s", Mins, Now)
'EndOfDelay = DateAdd("s", Secs, EndOfDelay)
Delay = 0
Do While (Now < EndOfDelay)
DoEvents
If Not IsMissing(StopFlag) Then
'If StopFlag Then
' Delay = 1
' StopFlag = False
' Exit Do
'End If
End If
Loop
End Function
根据实际情况修改,我就是这么做的,很好用
MsgBox "1"
Sleep 4000
MsgBox 2
End Sub
如果是只在本窗体中定义和使用可以用
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)如果是在模块中申明,并且所有窗体都可以使用:
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
使用的时候和VB内部函数一样:
Sleep 1000 '程序停止1秒
并且楼主要注意的是,象这样的API函数,都是需要有一个定义的语句的,你可以在VB自带的API浏览器中找到申明代码.