vb.net生成gif,VBNET教程

VB.NET问题:TreeView控件放置GIF动画

只是picturebox支持而已...

创新互联公司坚持“要么做到，要么别承诺”的工作理念，服务领域包括：成都做网站、网站制作、成都外贸网站建设、企业官网、英文网站、手机端网站、网站推广等服务，满足客户于互联网时代的磐安网站设计、移动媒体设计的需求，帮助企业找到有效的互联网解决方案。努力成为您成熟可靠的网络建设合作伙伴！

把gif每帧都单独存成一张图片，加个timer不断更换treeview节点显示的图片，用来实现简单的动画是够了。

不是语言让图片动起来的，而是图片本身就能动，例如gif格式图片本身就是动画。如果你讲的是图片在网页上移动，而不是图片本身内容的动作，那么不是vb.net的功能必须用java脚本来实现。

可以了，你在窗体上把WebBrowser控件放上，按钮上放上以下内容即可，大小自己设置。

WebBrowser1.Navigate "about:blank"

WebBrowser1.Document.open

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

WebBrowser1.Document.Close

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

提供两个思路

用printscreen,将其保存到文件，再调用outlook发出去，但是您说的超出一屏，就麻烦了；

以下代码保存为文件，引用自MSDN，由于我的SD版本不支持我的outlook,所以暂时无法给发送邮件的例子，请参考吧！

system.Windows.Forms.SendKeys.Send("%{PRTSC}")

If Not System.Windows.Forms.Clipboard.GetDataObject() Is Nothing Then

Dim oDataObj As IDataObject = System.Windows.Forms.Clipboard.GetDataObject()

If oDataObj.GetDataPresent(System.Windows.Forms.DataFormats.Bitmap) Then

Dim oImgObj As System.Drawing.Image = oDataObj.GetData(DataFormats.Bitmap, True)

'To Save as Bitmap

oImgObj.Save("F:\Test.bmp", System.Drawing.Imaging.ImageFormat.Bmp)

'To Save as Jpeg

oImgObj.Save("D:\Test.jpeg", System.Drawing.Imaging.ImageFormat.Jpeg)

'To Save as Gif

oImgObj.Save("d:\Test.gif", System.Drawing.Imaging.ImageFormat.Gif)

End If

2.另外出出报表，再调用outlook发出去，只给出数据性报表，而不一定是窗体本身；

其实方法是去解析GIF文件，如果楼主觉得麻烦，可以到网上去下个别人做好了的GIF控件（类）。

网页题目：vb.net生成gif,VBNET教程
文章地址：http://myzitong.com/article/hsgeoh.html