新网创想网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
其实方法是去解析GIF文件,如果楼主觉得麻烦,可以到网上去下个别人做好了的GIF控件(类)。
创新互联公司从2013年创立,先为民乐等服务建站,民乐等地企业,进行企业商务咨询服务。为民乐企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。
for i=0 to n
for j=0 to k
PictureBox(i,j).Image = New Bitmap("D:\images\" i "-" j ".gif")
next
next
应该就是这样的
窗体上放一个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
只是picturebox支持而已...
把gif每帧都单独存成一张图片,加个timer不断更换treeview节点显示的图片,用来实现简单的动画是够了。
可以了,你在窗体上把WebBrowser控件放上,按钮上放上以下内容即可,大小自己设置。
WebBrowser1.Navigate "about:blank"
WebBrowser1.Document.open
WebBrowser1.Document.write "img src='实际GIF位置\xxx.gif'/img"
WebBrowser1.Document.Close
img里,你按HTML格式可以设置GIF的大小,高度之类的。
不是语言让图片动起来的,而是图片本身就能动,例如gif格式图片本身就是动画。如果你讲的是图片在网页上移动,而不是图片本身内容的动作,那么不是vb.net的功能必须用java脚本来实现。