7995.html

来自「VB技巧问答10000例,是一个教程」· HTML 代码 · 共 23 行

HTML
23 行
字号 
<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:honey0@tcts1.seed.net.tw">Honey</a> on December 03, 1998 at 22:43:20:<p>
In Reply to: <a href="7932.html">如何制作桌面上的动画?</a> posted by 哈林 on December 02, 1998 at 23:07:42:<p>
<br>别被吓到了 这问题基本上只要你会<br>在Form上播放动画 or 有透明GIF图片<br>一切都不成问题<br>提供你以下程式码<br>当然图片移动的部分你自己<br>要修改一下<br>在Form1上放一个Timer1就好了<p>Option Explicit<p>Private Sub Form_Load()<br>Timer1.Interval = 10<br>End Sub<p>Private Sub Timer1_Timer()<br>If Me.Top <= 5500 Then<br>Form1.Top = Me.Top + 50<br>Else<br>Form1.Top = 0<br>End If<br>End Sub<br>表单就会自己移动 当然要移动的自然<br>得动动脑筋 可以放多一点Timer物件<br>操作会比较简单<br>没想到会这般简单吧<br>你可以参考cww网页上<br>http://sunh.hosp.ncku.edu.tw/~cww/<br>使表单成为透明的部分 <br>另外 表单大小可不要超出图片太多<br>否则桌面图示就按不到了<br>另外这种表单通常是放在最顶端的....<br>提醒你一下
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 7995-->
</ul><!--end: 7995-->
<br><hr size=7 width=75%><p>

</body></html>

7995.html - 源码说明

本页面展示了「VB技巧问答10000例,是一个教程」中的 7995.html 源码文件，采用 HTML 编程语言编写，共 23 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与VB相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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