📄 10143.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 goose on February 15, 1999 at 02:24:24:<p>
In Reply to: <a href="10122.html">又是同步的问题</a> posted by 小贤 on February 13, 1999 at 12:41:45:<p>
: 我在写水波的问题时遇到了问题,程式Code 如下<br>: Public R, cx, cy, deltaX<br>: Private Sub Text1_Change()<br>: End Sub<p>: Public Sub Command1_Click()<br>: Timer1.Enabled = True<br>: drawwave Picture1.ScaleWidth / 2, Picture1.ScaleHeight / 2<br>: End Sub<p>: Sub Command2_Click()<br>: End<br>: End Sub<p>: Public Sub drawwave(cx, cy)<br>: Picture1.DrawWidth = 2<br>: Do<br>: DoEvents<br>: rad = rad + 1<br>: Picture1.AutoRedraw = True<br>: Picture1.Cls<br>: Picture1.Circle (cx, cy), rad<br>: Picture1.AutoRedraw = False<br>: Picture1.PSet Step(R, 0), QBColor(4)<br>: Loop<br>: End Sub<p>: Private Sub Timer1()<br>: Picture1.pset step( 30 ,0 ),Qbcolor(4)<br>: Drawwave  picture1.currentX , picture2.currentY<br>: End Sub<p>: 我想用一个Timer 每1秒执行 Drawwave 一次,并往右移 30, 然后再执行一次 Drawwave<br>: 而且上次执行的Drawwave 的图形可以一直执行下去 但当 Timer 执行一次后,前一个<br>: 图形会被清除,而且Timer不会继续执行下去(看起来图形没有往右移动),这是为何?<p>:不能用 bitblt 去 paste 吗?<br>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 10143-->
</ul><!--end: 10143-->
<br><hr size=7 width=75%><p>

</body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -