?? vb10.htm
字號:
<!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> </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> </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> > <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>><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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -