VB中怎么添加動態圖片?

使用方法：

為蚌山等地區用戶提供了全套網頁設計制作服務，及蚌山網站建設行業解決方案。主營業務為成都網站設計、做網站、蚌山網站設計，以傳統方式定制建設網站，并提供域名空間備案等一條龍服務，秉承以專業、用心的態度為用戶提供真誠的服務。我們深信只要達到每一位用戶的要求，就會得到認可，從而選擇與我們長期合作。這樣，我們也可以走得更遠！

Gif.FileName

=

App.Path

"\tuzi.gif"

加載GIF控件即可，使用上面一句代碼即可完成。

控件上QQ我發給你。

VB.NET問題:TreeView控件放置GIF動畫

只是picturebox支持而已...

把gif每幀都單獨存成一張圖片，加個timer不斷更換treeview節點顯示的圖片，用來實現簡單的動畫是夠了。

vb.net 運行GIF動圖？

可以了，你在窗體上把WebBrowser控件放上，按鈕上放上以下內容即可，大小自己設置。

WebBrowser1.Navigate "about:blank"

WebBrowser1.Document.open

WebBrowser1.Document.write "img src='實際GIF位置\xxx.gif'/img"

WebBrowser1.Document.Close

img里，你按HTML格式可以設置GIF的大小，高度之類的。

VB如何添加gif動態圖片?

把GIF分解成若干單楨的GIF,用時間控件一幅幅的加載

private

sub

timer1-timer()

static

a

as

imteger'假如有7張單張的GIF

if

a=8

then

a=1'回到第一張的加載

else

a=a+1'不斷的加載下一幅GIF

end

if

image1.picture=loadpicture(app.path+"\dh"a".gif")

end

sub

VB中如何加入GIF動畫、

這種方法需要用到TIMER控件，因為TIMER控件不會影響FROM_LOAD等其他程序的運行,也不受其他程序的影響,所以為首選。圖像框(IMAGEBOX)的STRETCH屬性設置為TRUE使圖片大小適應控件大小,將準備好的圖片依次命名為1.GIF、2.GIF、3.GIF……TIMER的INTERVAL屬性設置為100(視情況而定)。在TIMER1_TIMER()中加入以下代碼： PRIVATE SUB TIMER1_TIMER() DIM FILENAME AS STRING STATIC INT AS INTEGER INT = INT + 1 FILENAME = “ C:\WINDOWS\DESKTOP\” INT “.GIF” ‘路徑應視情況而定 IMAGE1.PICTURE = LOADPICTURE(FILENAME) IF INT = 5 THEN INT = 0 ‘條件INT到底應大于幾應視情況而定END SUB第二種情況：用PICTURECLIP控件實現。 PICTURECLIP控件要在“部件”中添加，并且要與PICTURE和IMAGE控件配套使用。右鍵單擊PICTURECLIP使用屬性中的”自定義”—加載圖片—”通用屬性”—定義”行,列”值(行,列值在此例中暫定為18)。程序代碼如下： DIM A AS INTEGER PRIVATE SUB form_LOAD () PICTURE1.PICTURE = PICTURECLIP.GRAPHICCELL(1)A = 1TIMER1.INTERVAL = 100END SUBPRIVATE SUB TIMER_TIMER () A = A + 1 ：IF A = 18 THEN A = 0 PICTURE1.PICTURE = PICTURECLIP.GRAPHICCELL(A)END SUB此種方法是將一張圖片分割為幾行、幾列然后依次將每一部分顯示出來，所以準備的這一圖片最好是每隔一定行距列距有一個獨立的內容的圖案，如果是一個連續的、整體的圖案那么出來的效果就只會”動”而不成”畫”了。 第三種方法：現在市面上有很多制作GIF動畫的軟件，如有一個叫GIF CONSTRUTION SET 的 SHAREWARE (32位)可以很容易得制作出動態的GIF圖形文件，我們可以用VB中的ANIGIF控件來”播放”已做好的GIF圖片。其屬性設置位要播放的GIF文件名，在程序運行時控件會自動播放GIF動畫。當然ANIGIF控件要在”部件”里添加后才能使用。此種方法不用很多的代碼而效果也不錯(因為在制作GIF動畫時一般都有預覽功能)因此建議大家使用這種方法。 以上是本人在編程中總結出的幾點經驗僅供大家參考，還望大家多揣磨、多實踐總結出更好的方法

VB寫的程序怎么加入gif動態圖片啊？

在VisualBasic中，不能直接播放gif動畫，但可以變通一下，用瀏覽器IE和WebBrowser控件播放。

由于WebBrowser控件并不是VB的基本控件，因此在使用該控件之前必須先將其裝入工具箱中。裝入方法：在工具箱中點擊鼠標右鍵→選中“部件”→復選MicrosoftInternetControls→然后點擊“確定”鍵即可。

2．選取WebBrowser控件，添加到窗體的相應位置上。

3．設計相應代碼：

Private Sub Form_Load()

Show

WebBrowser1.Navigate App.Path "\h.gif"

End Sub

可參閱我博客中的文章：

當前文章：vb.net加入gif net vb
文章位置：http://m.jcarcd.cn/article/hpesjh.html