VB.net 里窗體背景設(shè)置為gif 格式圖片后，圖片不動怎么辦？

其實方法是去解析GIF文件，如果樓主覺得麻煩，可以到網(wǎng)上去下個別人做好了的GIF控件（類）。

創(chuàng)新互聯(lián)公司從2013年創(chuàng)立，先為民樂等服務(wù)建站，民樂等地企業(yè)，進(jìn)行企業(yè)商務(wù)咨詢服務(wù)。為民樂企業(yè)網(wǎng)站制作PC+手機+微官網(wǎng)三網(wǎng)同步一站式服務(wù)解決您的所有建站問題。

VB.net中怎么給一個PictureBox（i,j）組加載圖片，，圖片在"D:\images",圖片名稱是“i-j.gif”

for i=0 to n

for j=0 to k

PictureBox(i,j).Image = New Bitmap("D:\images\" i "-" j ".gif")

next

next

應(yīng)該就是這樣的

用vb.net如何編寫圖片瀏覽器的基本步驟功能是：圖片的打開、顯示、縮放、旋轉(zhuǎn)。

窗體上放一個PictureBox，兩個CommandButton，一個FileListBox

Private Sub Command1_Click()

If File1.ListIndex = 0 Then

ShowPic File1.ListCount - 1

Else

ShowPic File1.ListIndex - 1

End If

End Sub

Private Sub Command2_Click()

If File1.ListIndex = File1.ListCount - 1 Then

ShowPic 0

Else

ShowPic File1.ListIndex + 1

End If

End Sub

Private Sub Form_Load()

File1.Visible = False

File1.Pattern = "*.jpg;*.gif" '可以瀏覽的文件類型，使用分號隔開

File1.Path = App.Path '改成你需要瀏覽的目錄，比如"C:\Pic"

If File1.ListCount 1 Then '目錄中圖片在兩張以上可以瀏覽

ShowPic 0

Exit Sub

ElseIf File1.ListCount = 1 Then '目錄中只有一張圖片時只顯示這一張

ShowPic 0

End If

Command1.Enabled = False

Command2.Enabled = False

End Sub

Private Sub ShowPic(Index As Long)

File1.ListIndex = Index

Picture1.Picture = LoadPicture(File1.Path "\" File1.List(Index))

End Sub

如果對您有幫助，請記得采納為滿意答案，謝謝！祝您生活愉快！

vaela

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

只是picturebox支持而已...

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

vb.net 運行GIF動圖？

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

WebBrowser1.Navigate "about:blank"

WebBrowser1.Document.open

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

WebBrowser1.Document.Close

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

在VS2008中，如何讓VB.net中的圖片動起來

不是語言讓圖片動起來的，而是圖片本身就能動，例如gif格式圖片本身就是動畫。如果你講的是圖片在網(wǎng)頁上移動，而不是圖片本身內(nèi)容的動作，那么不是vb.net的功能必須用java腳本來實現(xiàn)。