📄 vb10.htm

📁 从太平洋上下载下来的打包学习VB的教程。》VB专区 ·Visual Basic 的数据库编程 ·使用VB建立Web Server 　 ·VB与Windows资源管理器互拷文件
💻 HTM
📖 第 1 页 / 共 2 页
字号:
12 下一页
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0057)http://www.pconline.com.cn/experience/subject/VB/vb10.htm -->
<HTML><HEAD><TITLE>|><| 太平洋电脑信息网</TITLE><!-- #BeginTemplate "/Templates/0723.dwt" --><!-- #BeginEditable "doctitle" --><!-- #EndEditable -->
<META content="text/html; charset=gb2312" http-equiv=Content-Type><LINK 
href="vb10.files/text.css" rel=stylesheet>
<STYLE type=text/css>.sfont {
	LINE-HEIGHT: 18pt
}
</STYLE>

<META content="MSHTML 5.00.2014.210" name=GENERATOR></HEAD>
<BODY bgColor=#ffffff leftMargin=0 topMargin=0>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width="100%">
  <TBODY>
  <TR>
    <TD vAlign=top width="100%">
      <TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
        <TBODY>
        <TR bgColor=#303880>
          <TD><A href="http://www.pconline.com.cn/"><IMG alt=太平洋电脑信息网 border=0 
            height=18 hspace=30 src="vb10.files/txtpconline.gif" 
            width=96></A><IMG height=10 src="vb10.files/blank.gif" 
        width=400></TD></TR></TBODY></TABLE></TD>
    <TD align=right background=vb10.files/bw.gif noWrap width=130><IMG 
      height=26 src="vb10.files/bw.gif" width=10><A 
      href="http://www.pconline.com.cn/sitemap/"><IMG alt=网站地图 border=0 
      height=26 src="vb10.files/sitemap.gif" width=21></A><IMG height=26 
      src="vb10.files/bw.gif" width=10><A 
      href="http://www.pconline.com.cn/tpy/"><IMG alt=关于太平洋 border=0 height=26 
      src="vb10.files/aboutus.gif" width=21></A><IMG height=26 
      src="vb10.files/bw.gif" width=10><A 
      href="http://www.pconline.com.cn/tpy/tariff.html"><IMG alt=与我们联系 border=0 
      height=26 src="vb10.files/contact.gif" width=21></A><IMG height=26 
      src="vb10.files/bw.gif" width=10></TD></TR></TBODY></TABLE><BR>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width=760>
  <TBODY>
  <TR>
    <TD bgColor=#666666><IMG height=1 src="vb10.files/blank.gif" width=1></TD>
    <TD bgColor=#666666><IMG height=1 src="vb10.files/blank.gif" width=1></TD>
    <TD>&nbsp;</TD>
    <TD colSpan=2 noWrap><A 
      href="http://www.pconline.com.cn/experience/index.html"><IMG 
      align=absBottom alt=企业之窗 border=0 height=15 
      src="vb10.files/txtexperience.gif" width=68></A>　<A 
      href="http://www.pconline.com.cn/">首　　页</A>　<A 
      href="http://www.pconline.com.cn/market/">今日报价</A>　<A 
      href="http://www.pconline.com.cn/recommend/">产品推介</A>　<A 
      href="http://www.pconline.com.cn/yp/">企业之窗</A>　<A 
      href="http://www.pconline.com.cn/news/">科技新闻</A>　<A 
      href="http://www.pconline.com.cn/product/">产品查询</A>　<A 
      href="http://www.pconline.com.cn/download/">软件下载</A></TD></TR>
  <TR>
    <TD><IMG height=1 src="vb10.files/blank.gif" width=1></TD>
    <TD><IMG height=1 src="vb10.files/blank.gif" width=1></TD>
    <TD><IMG height=1 src="vb10.files/blank.gif" width=21></TD>
    <TD bgColor=#ffa000 colSpan=2><IMG height=1 src="vb10.files/blank.gif" 
      width=1></TD></TR>
  <TR>
    <TD bgColor=#666666><IMG height=1 src="vb10.files/blank.gif" width=1></TD>
    <TD bgColor=#cdcdcd><IMG height=5 src="vb10.files/blank.gif" width=1></TD>
    <TD align=right colSpan=3><IMG height=6 src="vb10.files/ffa000.gif" 
      width=1></TD></TR>
  <TR>
    <TD bgColor=#666666><IMG height=1 src="vb10.files/blank.gif" width=1></TD>
    <TD align=right><A href="http://www.pconline.com.cn/"><IMG alt=太平洋电脑信息网 
      border=0 height=35 src="vb10.files/pconline.com.cn.gif" vspace=10 
      width=162></A></TD>
    <TD>&nbsp;</TD>
    <TD vAlign=bottom><!-- #BeginEditable "important_news" --><IMG height=40 
      src="vb10.files/blank.gif" width=350><!-- #EndEditable --></TD>
    <TD align=right vAlign=top><!-- #BeginEditable "adv_top" --><IMG alt=广告位 
      height=43 src="vb10.files/icon.gif" 
  width=190><!-- #EndEditable --></TD></TR></TBODY></TABLE>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width=760>
  <TBODY>
  <TR>
    <TD bgColor=#666666 width=1><IMG height=1 src="vb10.files/blank.gif" 
      width=1></TD>
    <TD vAlign=top width=170><!-- #BeginEditable "addons" --><!--替代为附加信息 --><!-- #EndEditable --></TD>
    <TD bgColor=#666666 width=1><IMG height=1 src="vb10.files/blank.gif" 
      width=1></TD>
    <TD><IMG height=1 src="vb10.files/blank.gif" width=21></TD>
    <TD colSpan=3 vAlign=top width=566><!-- #BeginEditable "1" --><IMG 
      height=1 src="vb10.files/blank.gif" width=566><BR><IMG height=1 
      src="vb10.files/666666.gif" width=420><BR><IMG height=13 
      src="vb10.files/blank.gif" width=1><A 
      href="http://www.pconline.com.cn/experience/">经验共享</A> &gt; <SPAN 
      class=greenb><A 
      href="http://www.pconline.com.cn/experience/subject/VB/index.html">专题教程</A></SPAN><A 
      href="http://www.pconline.com.cn/experience/subject/VB/index.html"> 
      VB专区</A>&gt;<BR><IMG height=1 src="vb10.files/666666.gif" vspace=1 
      width=420><BR>
      <P align=center><B><FONT color=#000066><SPAN 
      class=sfont>在VB应用软件中实现动画效果</SPAN></FONT></B><SPAN class=sfont><FONT 
      color=#0000c0> </FONT></SPAN></P>
      <P align=center><SPAN class=sfont>中科院空间中心 姜棣昭 </SPAN></P>
      <P><SPAN class=sfont><FONT color=#ffffff>----</FONT> 
      在开发VB应用程序中，加入了动画之后可使软件具有生动活泼的效果，而且，在编写组态软件中，动画功能更是必不可少，如容器中容量的变化、液体液面的变化等，实际也是一种动画效果。在中科院空间中心开发的“电场和电导率监测网中心站专家系统”中，有多处使用动画效果，现简明介绍如下。 
      </SPAN>
      <P><SPAN class=sfont><FONT color=#ffffff>----</FONT> 
      <B>一、使用Animation控件</B> </SPAN>
      <P><SPAN class=sfont><FONT color=#ffffff>----</FONT> 
      在VB5.0中可以使用Animation控件实现动画，实例如下： </SPAN><PRE><SPAN class=sfont>

Private Sub Animation1_Click ()

	With CommonDialog1

	Filter = "avi (*.avi)|*.avi"    

 过滤器指定在对话框的文件列表框中显示文件的类型

		.ShowOpen           

 显示“打开”对话框

	End With

	With Animation1

		.Autoplay = True     

</SPAN></PRE>
      <P><SPAN class=sfont><FONT color=#ffffff>----</FONT> 一旦将 .avi 文件加载到 
      Animation 控件中，则 .avi 文件 将连续循环的自动播放。 </SPAN><PRE><SPAN class=sfont>

		.Open CommonDialog1.Filename   

</SPAN></PRE>
      <P><SPAN class=sfont><FONT color=#ffffff>----</FONT> 打开一个将要播放的 .avi 文件。如果 
      AutoPlay 属性为 True，则只要加载该文件便可。 </SPAN><PRE><SPAN class=sfont>

	End With

End Sub

</SPAN></PRE>
      <P><SPAN class=sfont><FONT color=#ffffff>----</FONT> Animation 
      控件不能播放含有声音数据的 .avi 文件。此外，动画控件只能显示未压缩的或用行程编码 (RLE) 压缩的 .avi 文件。当用文件调用 Open 
      方法时，如果该文件含有声音数据，或不具备特定的压缩格式，则返回错误。 </SPAN>
      <P><SPAN class=sfont><FONT color=#ffffff>----</FONT> 
      <B>二、使用AniPushButton（AniButton）控件</B> </SPAN>
      <P><SPAN class=sfont><FONT color=#ffffff>----</FONT> 
      受WINDOWS/NT超级终端动画效果的影响，笔者也希望在开发的应用软件中加入转动地球的效果。首先用PHOTOSHOP制作一些图画，地球的图像是用一个地球仪临摹取得的，每次将地球仪转动一个固定的角度，得到一幅不同角度地球的图像，重复多次，且将每一幅图存为一个.bmp文件，供AniPushButton调用。 
      </SPAN>
      <P><SPAN class=sfont><FONT color=#ffffff>----</FONT> 
      AniPushButton控件包含了大量的属性、方法、事件供开发人员使用。首先在Picture和Frame属性中装入图像文件，Picture属性可以装入多幅图像文件，帧Frame属性是Picture属性装入图像文件的索引，Frame属性是1对应第一个图像文件，注意，Frame 
      只能从1开始，而图像数组可以从0开始，这两个属性可以在属性设计时设置，也可以在程序中设置，Picture属性可以装入.bmp、.ico、.wmf等文件，其他格式的图像文件可以用PHOTOSHOP或SEA等文件进行格式转换，在动画的图像文件装入时，不是装入一幅图像文件，而是要在Frame属性的控制下，装入多幅图像文件，Frame为1，Picture装入第一幅图像文件，Frame为2，Picture装入第二幅图像文件，依次类推，将可产生动画效果的各种图像依次装入Picture属性中。 
      </SPAN>
      <P><SPAN class=sfont><FONT color=#ffffff>----</FONT> 
      PicDrawMode属性用于设置显示图像与装入图像之间的比例关系。0为控制按设计的大小装入图像，1为控制按图像的大小自动调整边框的大小，2为图像按控制的大小放大或缩小原图 
      Caption属性，为了不影响动画的效果，这里清空Caption属性。 </SPAN>
      <P><SPAN class=sfont><FONT color=#ffffff>----</FONT> 
      Speed属性，表示动态切换每幅图的速度，以毫秒ms为单位，值越大，切换速度越慢。 </SPAN>
      <P><SPAN class=sfont><FONT color=#ffffff>----</FONT> 
      SpecialOp属性，该属性在设计时无效，只有在程序运行时软件设置，为1时，表示模拟鼠标的Click操作，不由用户操作触发，而由系统自动触发动画按钮，使控制执行Click功能，在下面的软件中使用定时器来激活该功能。在下面的程序中，用到的一些参数值，包括Picture和Frame都是在程序中设置的，不是在属性对话框中设置的。 
      </SPAN><PRE><SPAN class=sfont>

Private Sub Form_Load()

With timer1        设定时器属性

.Enabled = False

.Interval = 600

End With

With AniPushButton1   设AniPushButton1各属性

.Enabled = True       激活

.Cycle = 0

.Caption = ""

.PictDrawMode = 1   按图像的大小自动调整

.Speed = 200        帧切换速度

.Frame = 1     用LoadPicture方法给Picture属性赋值

.Picture = LoadPicture("c:\earth1.bmp ")

.Frame = 2

.Picture = LoadPicture("c:\earth2.bmp")

.Frame = 3

.Picture = LoadPicture("c:\earth3.bmp")

.Frame = 4

.Picture = LoadPicture("c:\earth4.bmp")

.Frame = 5

.Picture = LoadPicture("c:\earth5.bmp")

End With



End Sub



Sub Cmd_Start_Click ()   开始命令按钮启动定时器

timer1.Enabled = -1

End Sub



Sub Timer1_Timer ()

AniButton1.SpecialOp = 1   实现鼠标的Click操作

End Sub
12 下一页
⌨️ 快捷键说明

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