📄 18019.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 大汉堡 on August 28, 1999 at 01:35:58:<p>In Reply to: <a href="18004.html">请问个问题...</a> posted by 小T on August 27, 1999 at 18:15:32:<p>Dim z  As Integer<br>Private Sub Form_Click() '停止/移动表单<br>  Timer1.Enabled = Not Timer1.Enabled<br>End Sub<br>Private Sub Form_Load()<br>  Timer1.Interval = 1 '设定移动速度<br>  Timer1.Enabled = True<br>  Form1.Top = 0<br>  Form1.Left = 0<br>  z = 200 '设定移动速度<br>End Sub<br>Private Sub Timer1_Timer()<br>  If Form1.Top <= 0 Then<br>     Form1.Left = Form1.Left + z<br>  End If<br>  If Form1.Width + Form1.Left >= Screen.Width Then<br>     Form1.Top = Form1.Top + z<br>  End If<br>  If Form1.Top + Form1.Height >= Screen.Height Then<br>     Form1.Left = Form1.Left - z<br>  End If<br>  If Form1.Left <= 0 Then<br>     Form1.Top = Form1.Top - z<br>  End If<br>End Sub<br><br><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 18019--></ul><!--end: 18019--><br><hr size=7 width=75%><p></body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -