17147.html

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· HTML 代码 · 共 23 行

HTML

23 行

<html>  <head>    <title>Re: 纪兄,你猜对我的意思,但有个问题.</title>  </head>  <body bgcolor="#FFFFFF" vlink="#808080">    <center>      <h1>Re: 纪兄,你猜对我的意思,但有个问题.</h1>    </center><hr size=7 width=75%><hr size=7 width=75%><p>Posted by <a href="mailto:jwh@ms1.hinet.net">纪文和</a> on August 12, 1999 at 21:19:16:<p>In Reply to: <a href="17128.html">纪兄,你猜对我的意思,但有个问题.</a> posted by kkcheung on August 12, 1999 at 15:05:09:<p>Doevents 必须加在 For 回圈中, 否则没用.<br>程式虽然在运作, 但是 Doevent 会让它停一会的. 这时它就会处理另一个按钮的动作 !!<p>完整程式如下:<br>’Form　的宣告区<br>Dim wflag As String<p>Private Sub Command1_Click()<br>　　Dim i As Long<br>　　For i = 1 To 100000<br>　　　　i = i + 1<br>　　　　DoEvents<br>　　　　If wflag = "ok" Then<br>　　　　　　wflag = "" '下次可再按 command2 来停止<br>　　　　　　MsgBox i<br>　　　　　　Exit For<br>　　　　End If<br>　　Next<br>End Sub<p>Private Sub Command１_Click()<br>　　wflag = "ok"<br>End Sub<p><a href="http://www.ruentex.com.tw/vbguide" target="_blank">VB入门网</a><br><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 17147--></ul><!--end: 17147--><br><hr size=7 width=75%><p></body></html>

17147.html - 源码说明

本页面展示了「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题.对一些VB初学者很用.」中的 17147.html 源码文件，采用 HTML 编程语言编写，共 23 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与VB相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?