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

📄 m38.htm

📁 vb教程 vb教程 vb教程 vb教程 vb教程 vb教程 vb教程 vb教程 vb教程 vb教程 vb教程
💻 HTM
字号:
🔍 
<html>
<head>
<title>VB教程</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
 
</head>
<p align="center"><script src="../../1.js"></script></a>

<body bgcolor="#ffffff" leftmargin="5" topmargin="1" marginheight="5" marginwidth="5">
<div align=center> 
  <table border=0 cellpadding=0 cellspacing=0 width=680 align="center">
    <tbody> 
     
    <tr> 
      <td bgcolor=#000000 height=11> 
        <div align=center class=H1>    <font color="#FFFFFF">Web动画图像分解在VB动画设计中的应用</font> </font> </font></div>
      </td>
    </tr>
    <tr valign=top> 
      <td class=H1 height=2> 
        <p align="right">    　　　　　　　　　　　　　　　　</font> </font></p>
        <p>  笔者每次浏览Web网页时，总是被许多生 动有趣的小动画深深吸引，十分佩服作者的想象力和制作技巧。在使用VB进行应 
          用软件开发设计中，为使软件的人机界面新颖友好，总想加点动画作点缀，但又常 常苦于一幅幅动画图片的绘制或寻找!因此萌发了一种奇妙的设想：能否让Web页 
          面上的动画在VB应用软件界面上活起来?幸运的是，当前图像处理软件甚多，终于 将笔者的这一设想变成了现实。 </span></font> 
        <h3> <font color="#000000">VB动画设计</font></span></h3>
         　　动画的制作原理很简单：首先绘制几幅相近但又有细微变化的图片，然后每隔一段很短的时间就依次显示其中一幅，由于人眼视觉暂留，就能看到连贯的动画效果。 
        </font> </span>
        <p> 　　使用VB进行动画设计非常方便，因为其工具箱中有图像、图片、时钟控件。只要获得了一幅幅动画单幅图像文件，把它们放入图像控制数组中去，便可用时钟控件的控制属性Interval来控制每幅图片的显示间隔，把最终动画显示的位置确定好后，按时间间隔依次从图像控制数组中取出一幅图显示。如此交替反复显示，即可产生动画效果，编程实现比较简单。 
          </font> </span>
        <p> 　　VB动画设计所能接收的单幅图片文件的格式有四种，即＊.Bmp、＊.Ico、＊.Wmf和＊.Dib。其中＊.Bmp文件的来源最广，不但可以使用Windows环境下的各种绘图软件来绘制(但费时费力，且不是每个人都有绘画的天才)，也可以使用Windows所提供的现成的位图文件，或者用彩色扫描仪扫入等等。在此，笔者所感兴趣的则是从Internet上Web站点网页上下载自己喜爱的动画图像文件，再经过图形软件分解、处理成一幅幅＊.Bmp图片文件，它们会给软件的人机界面带来全新的感受。 
          </font> </span>
        <h3> <font color="#000000">Web动画图像分解方法</font></span></h3>
         　　从Web网页上下载静态图像文件比较简单，下载后需要进行分解。 
        </font> </span>
        <p> 　　动画图像文件的分解是动画设计的逆过程，即把一个动画效果的图像文件分解形成它的多幅图片文件。可使用GIFConstruction 
          Set软件打开(此软件可在许多服务器上下载)要分解的图像文件，该软件即可将动画自动分解为多幅组成动画的单幅图画。 </font> </span>
        <p> 　　使用上述软件分解后，首先看看是由几幅图画组成的动画，如果有N幅图画，就把动画文件拷贝N份。 
          </font> </span>
        <p> 　　然后，逐个打开拷贝文件对每个文件进行处理，处理过程中只需在第一个文件中保留静止的图像，在其它文件中只保留动画图像。 
          </font> </span>
        <p> 　　最后，使用具有图形转换功能的图形处理软件如Phtoshop，就可把得到的N个＊.Gif图像文件都转换成＊.Bmp文件的格式。 
          </font> </span>
        <p> 　　Web动画分解过程概括描述如下： </font> 
          </span>
        <p> 　　Web动画下载→Web动画分解(GIFConstruction 
          Set)→Web动画格式转换(Phtoshop等)。 </font> </span>
        <h3> <font color="#000000">一个实例</font></span></h3>
         　　这是一个在数据库查询窗体上设计的眼睛转动查看的动画，此动画的每个单幅图画就是从Web网页上下载分解得到的。 
        </font> </span>
        <p> 　　动画设计实现步骤如下： </font> 
          </span>
        <p> 　　首先，用上述方法把Web网页上转眼睛动画下载保存、分解、格式转换成二幅画Eyesl.Bmp和Eyes2.Bmp(此动画简单，只由二幅画组成)。 
          </font> </span>
        <p> 　　其次，将Eyes1.Bmp和Eyes2.Bmp放入图像控制数组中。 
          </font> </span>
        <p> 　　程序代码如下： </font> </span>
        <pre>
 <font size="+1" color="#000000">在窗体的General中声明：

Dim  Rotateflag as Integer     '交替显示标志

Dim Currenteyes as Integer     '当前显示第几幅画

窗体装载初始化：

Sub Form_Load()

 Rotateflag=1    '进入显示(时钟计数开始)

 Currenteyes=0   '第一幅画定位

End Sub

交替显示子程序(时钟控制显示间隔，本例为250ms)：

Sub Tmrtimer_Timer()

  If Rotateflag=1 Then

         '交替显示开始

    SImgeyes.Picture=Imgeyes(Currenteyes).Picture

         '开始显示第一幅画

    Currenteyes=Currenteyes＋1

          '250ms后显示下一幅

    If Currenteyes=2 Then

       Currenteyes=0         

           '如果已显示了两幅，则再从第一幅显示

     End If

   End If

 End Sub
</font>
</span></pre>
        <h3> 结束</font></span></h3>
         　　利用Web网页动画图像分解成的多个单幅图画，不但可以为VB动画设计提供方便，也可用于VC等动画编程。目前，Internet的范围日益扩大，使Web与软件编程联系起来，无疑提高了应用软件的制作效率和质量。 
        </font> </span>
        <p align="right">   　　　　　　　　　　　　　　　　　　　　　　　　　 　<br>
           </font></span>  <br>
          <br>
           </b></font></p>
      </td>
    </tr>
  
  </table>
</div>
<p align="center"><a href="../../pian/vb.htm">回首页</a>
<p align="center"><script src="../../2.js"></script></a>
</body>
</html>

⌨️ 快捷键说明

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