📄 10116.html

📁 VB技巧问答10000例 VB技巧问答10000例

💻 HTML

字号:

<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:tim6887@ms3.hinet.net">BILL</a> on February 13, 1999 at 04:44:08:<p>
In Reply to: <a href="10115.html">请问如何保持同步? (内详)</a> posted by 小贤 on February 13, 1999 at 01:02:08:<p>
: 我最近在写一个绘图程式 , 须要不停地画圆 , (就是画都卜勒效应)<br>: 程式Code如下<br>: Private Sub Waves(x ,y)<br>: Do<br>: Autoredraw = false<br>: R=R+1<br>: cls<br>: circle (x,y) ,R<br>: Pset (x,y)<br>: Autoredraw = true<br>: Loop Until R=300<br>: End Sub<br>: 然后,我设计一个Timer 使这个Timer 每 1 秒 就将 (x,y) 往右移相对 (10,0) ,并执行 Waves<br>: 但我发现一点,执行 Do .... Loop  时VB都不会理Timer , 非要等 Do .... Loop 回圈完了才会 <br>: 执行,这是为何?能不能同步呢?<p>Do .... Loop 回圈内加 Doevent<p>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 10116-->
</ul><!--end: 10116-->
<br><hr size=7 width=75%><p>

</body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -