⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 11324.html

📁 VB技巧问答10000例 VB技巧问答10000例
💻 HTML
字号:
<html>
  <head>
    <title>堆叠........</title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>堆叠........</h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
Posted by <a href="mailto:totoro@m2.dj.net.tw">totoro</a> on March 24, 1999 at 23:28:08:<p>
Private Static Function f(b1)<br>   f = -((((x1 - x2) / (y1 - y2)) * (y1 - b1)) - x1)<br>End Function<br>Private Sub Form_Paint()<br>Scale (0, 0)-(100, 100)<br>x1 = 50: y1 = 0: x2 = 25: y2 = 50: x3 = 75: y3 = 50<br>Line (x1, y1)-(x2, y2): Line (x2, y2)-(x3, y3): Line (x3, y3)-(x1, y1)<br>For b1 = 0 To 50 Step 1<br>Call f(b1)<br>Image1.Move f(b1),b1<br>Next b1<br>End Sub<p>在 run 的时候出现堆叠的问题,要如何的改善它<br>请各位帮帮忙,谢谢.
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 11324-->
<!--top: 11351--><li><a href="11351.html">Image1 造成错误</a> <b>小吴</b> <i>16:37:08 3/25/99</i>
(<!--responses: 11351-->0)
<ul><!--insert: 11351-->
</ul><!--end: 11351-->
</ul><!--end: 11324-->
<br><hr size=7 width=75%><p>

</body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -