📄 18004.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 小T on August 27, 1999 at 18:15:32:<p>1.我写了以下程式测试,让表单绕着萤幕四周跑:<br>'宣告<br>Dim x, y, xdir, ydir As Integer<p>Private Sub Form_Load()<br>Me.Move -1, 0<br>Timer1.Interval = 1<br>Timer1.Enabled = True<br>End Sub<p>Private Sub Timer1_Timer()<br>x = Form1.Left<br>y = Form1.Top<br>x = x + xdir<br>y = y + ydir<p>If x + Form1.Width > Screen.Width Then xdir = 0: ydir = 20<br>If y + Form1.Height > Screen.Height Then xdir = -20: ydir = 0<br>If x < 0 Then xdir = 0: ydir = -20<br>If y < 0 Then xdir = 20: ydir = 0<p>Me.Move x, y<br>End Sub<p>请问为什么当表单在靠着上方向右移动到右边的边界时,并没有向下移动<br>而移出了萤幕外(看不到了),请问是否那有写错了呢?<p><br><br><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 18004--><!--top: 18019--><li><a href="18019.html">试试这个!</a> <b>大汉堡</b> <i>01:35:58 8/28/99</i>(<!--responses: 18019-->0)<ul><!--insert: 18019--></ul><!--end: 18019--></ul><!--end: 18004--><br><hr size=7 width=75%><p></body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -