- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
如何在 Visual Basic 6 中创建 30 秒延迟?我只是想让 VB6 在继续下一行代码之前等待 30 秒!!
最佳答案
我所知道的在 VB6 中完成此操作的最佳方法是在循环中包含对 WaitForSingleObject 或其他一些类似的 Wait API 函数的调用。这种方法的一个很好的例子是由 Sergey Merzlikin ( source article ) 编写的 MsgWaitObj 函数:
Option Explicit
'********************************************
'* (c) 1999-2000 Sergey Merzlikin *
'********************************************
Private Const STATUS_TIMEOUT = &H102&
Private Const INFINITE = -1& ' Infinite interval
Private Const QS_KEY = &H1&
Private Const QS_MOUSEMOVE = &H2&
Private Const QS_MOUSEBUTTON = &H4&
Private Const QS_POSTMESSAGE = &H8&
Private Const QS_TIMER = &H10&
Private Const QS_PAINT = &H20&
Private Const QS_SENDMESSAGE = &H40&
Private Const QS_HOTKEY = &H80&
Private Const QS_ALLINPUT = (QS_SENDMESSAGE Or QS_PAINT _
Or QS_TIMER Or QS_POSTMESSAGE Or QS_MOUSEBUTTON _
Or QS_MOUSEMOVE Or QS_HOTKEY Or QS_KEY)
Private Declare Function MsgWaitForMultipleObjects Lib "user32" _
(ByVal nCount As Long, pHandles As Long, _
ByVal fWaitAll As Long, ByVal dwMilliseconds _
As Long, ByVal dwWakeMask As Long) As Long
Private Declare Function GetTickCount Lib "kernel32" () As Long
' The MsgWaitObj function replaces Sleep,
' WaitForSingleObject, WaitForMultipleObjects functions.
' Unlike these functions, it
' doesn't block thread messages processing.
' Using instead Sleep:
' MsgWaitObj dwMilliseconds
' Using instead WaitForSingleObject:
' retval = MsgWaitObj(dwMilliseconds, hObj, 1&)
' Using instead WaitForMultipleObjects:
' retval = MsgWaitObj(dwMilliseconds, hObj(0&), n),
' where n - wait objects quantity,
' hObj() - their handles array.
Public Function MsgWaitObj(Interval As Long, _
Optional hObj As Long = 0&, _
Optional nObj As Long = 0&) As Long
Dim T As Long, T1 As Long
If Interval <> INFINITE Then
T = GetTickCount()
On Error Resume Next
T = T + Interval
' Overflow prevention
If Err <> 0& Then
If T > 0& Then
T = ((T + &H80000000) _
+ Interval) + &H80000000
Else
T = ((T - &H80000000) _
+ Interval) - &H80000000
End If
End If
On Error GoTo 0
' T contains now absolute time of the end of interval
Else
T1 = INFINITE
End If
Do
If Interval <> INFINITE Then
T1 = GetTickCount()
On Error Resume Next
T1 = T - T1
' Overflow prevention
If Err <> 0& Then
If T > 0& Then
T1 = ((T + &H80000000) _
- (T1 - &H80000000))
Else
T1 = ((T - &H80000000) _
- (T1 + &H80000000))
End If
End If
On Error GoTo 0
' T1 contains now the remaining interval part
If IIf((T1 Xor Interval) > 0&, _
T1 > Interval, T1 < 0&) Then
' Interval expired
' during DoEvents
MsgWaitObj = STATUS_TIMEOUT
Exit Function
End If
End If
' Wait for event, interval expiration
' or message appearance in thread queue
MsgWaitObj = MsgWaitForMultipleObjects(nObj, _
hObj, 0&, T1, QS_ALLINPUT)
' Let's message be processed
DoEvents
If MsgWaitObj <> nObj Then Exit Function
' It was message - continue to wait
Loop
End Function
关于vb6 - 需要在 Visual Basic 6 中创建 30 秒延迟,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/5016637/
以下是 BASIC 中的示例程序。如果标记的条件不为真,有人能告诉我这个函数返回什么吗?我必须将程序移植到 C++ 并且需要理解它。我没有基础知识 - 请忍受简单的问题。 FUNCTION Check
所以,我正在为一个学校项目而苦苦挣扎,我有一个在 PALM 上编程的 BASIC 代码,我需要将其转换为 LabView,所以首先我要将代码转换为伪代码,但我已经以前从未使用过 BASIC,所以我在处
嗯,我突然非常想念 GW-Basic,所以我想在我的新 Ubuntu 盒子里安装一个。我已经很长时间没有为 GW-Basic 编程了,所以我不知道是否有新版本发布。我从旧的 DOS 3.3 盒子中复制
我正在寻找可用于查找 BASIC 语法的引用。该代码用在旧的 HP-85 上,可能会影响命令列表。我在使用谷歌时遇到了问题,因为每次我搜索“<>基本命令”之类的东西时,它都会认为我的字面意思是基本,并
我继承了一个 BASIC 脚本,我正在尝试将其重写为 Python。我不知道 BASIC,甚至不知道这是哪个版本的 BASIC。是 Visual Basic 吗?请帮我翻译这段代码。 'County
我正在编写一个程序,可以判断给定的数字是否是素数。无论我输入素数还是其他数字,总是显示“这不是素数”。这其中有什么错误吗? 10 input "what is the number";a
我继承了一个 BASIC 脚本,我正在尝试将其重写为 Python。我不知道 BASIC,甚至不知道这是哪个版本的 BASIC。是 Visual Basic 吗?请帮我翻译这段代码。 'County
我最近翻出了我的一本旧书,夏威夷计算机之谜,出版于 1985 年。第 81 页有一段 BASIC 代码, 1 For N = 7 to 77 2 Print N, SQR(N) - INT (SQR
在大多数编程语言中,您可以在输出过程中将字符串与变量混合和匹配。但是,我似乎找不到找到这种方法的好方法。这是我的代码: Prompt A,B √(A^2+B^2)->C If iPart(C)≠C T
就目前情况而言,这个问题不太适合我们的问答形式。我们希望答案得到事实、引用资料或专业知识的支持,但这个问题可能会引发辩论、争论、民意调查或扩展讨论。如果您觉得这个问题可以改进并可能重新开放,visit
我正在尝试将用 Rocky Mountain BASIC 编写的程序移植到 GWT,但我被以下语句难住了: 1040 Cfs = 0.75/((LGT(Reyns)-2)^2) 1040是行号。 Re
以下两个(功能相同的)程序摘自旧一期的 Compute's Gazette。主要区别在于程序 1 将目标基本内存位置(7680 和 38400)内联,而程序 2 首先将它们分配给一个变量。 程序 1
每一天都有自己的数据,我需要在不使用最近数据的情况下运行一些科学的东西。 基本上我需要阻止注释掉它。这在 Liberty Basic 中是如何完成的? 最佳答案 Liberty Basic 不支持多行
' Gambas class file ' Math Drill by William Teder. Feel free to use parts of the code, but please gi
我一直在寻找在 TIBASIC 中制作一个程序,该程序可以评估代码正在运行的计算器类型,无需汇编。因为我认为没有任何东西可以从 about 屏幕获取信息。这是我想出的一段代码: :ClrDraw :T
我正在用 TI-Basic 编写一个简单的 Pong 游戏,但编辑器不允许我在我已经编写的代码中插入一行。 例如 print "Hello world" <--Where I want to inse
我是 1980 年代早期/中期个人电脑的忠实粉丝,例如 Amstrad CPC、Commodore 64 和 Sinclair Spectrum。这些计算机都拥有的一件事是 BASIC 版本。 作为一
所以从 70 年代开始就使用 Pick 系统。我们所做的一切都是在 Pick 中完成的。我想维护 Pick 记录,但使用另一种语言(例如 Java)作为前端用户界面。问题是 D3 似乎被锁定在 lin
BASIC 编程语言中 GOTO 和 GOSUB 语句有什么区别? 最佳答案 GOTO 只是跳转到另一行,GOSUB 会跟踪它的来源(大概是在堆栈上),因此当解释器遇到 RETURN 时,它返回到最后
我父亲在 80 年代学习了编程,但他仍然坚持使用 GW-BASIC(并以此谋生)。要求他创建一个 CSV 文件,但他只知道如何创建固定宽度记录的文件。 我在网上发现打开纯文本文件的语法是: OPEN
我是一名优秀的程序员,十分优秀!