Question

如何在VB中使用PNG格式的图片

我想在VB中做一个动画效果，可是VB的image控件不支持PNG格式的文件，而用bmp和jpg又没办法去掉图片的白色背景，那位高手帮下忙，告诉我怎样才能在VB中使用PNG的图片格式

Answer 1

　　由于VB中的Image控件和Picture控件都不能直接加载PNG格式图片，使用或浏览PNG格式的图片带来了困难。现行的解决方法主要是以下两种：
　　（1）利用GDI显示PNG图片；
　　（2）将PNG格式图片制成swf格式的文件，再用Flash控件显示。
　　第一种方法效果好，但有些复杂，第二种方法不仅复杂，加载的已不是PNG格式图片了。其实PNG格式图片是能直接在WebBrowser控件里显示的，代码如下：view plaincopy to clipboardprint?
　　Private Sub Command1_Click()
　　On Error GoTo ERRLINE
　　CommonDialog1.ShowOpen
　　WebBrowser1.Navigate2 CommonDialog1.FileName
　　ERRLINE:
　　End Sub
　　Private Sub Form_Load()
　　WebBrowser1.Navigate "about:blank"
　　CommonDialog1.Filter = "PNG图片(*.PNG)|*.PNG"
　　End Sub
　　Private Sub Command1_Click()
　　On Error GoTo ERRLINE
　　CommonDialog1.ShowOpen
　　WebBrowser1.Navigate2 CommonDialog1.FileName
　　ERRLINE:
　　End Sub
　　Private Sub Form_Load()
　　WebBrowser1.Navigate "about:blank"
　　CommonDialog1.Filter = "PNG图片(*.PNG)|*.PNG"
　　End Sub

　　这样就可以随意浏览电脑里的PNG格式的图片了。

Answer 2

请你使用GIF控件就行了！PNG转换为GIF格式，这个控件不难找，也许你电脑里就有！或者你用WebBrowse也行不过效果不是很好。

Answer 3

我这里有个类 LoadPNG

类似的代码如下，仅

Filename = App.Path & "\test.png"
PicBox.Picture = LoadPicture("")'PicBox是PictureBox
Dim png As New LoadPNG
png.PicBox = PicBox
Test = png.OpenPNG(Filename)
If png.ErrorNumber <> 0 Then MsgBox "Error Nr. " & png.ErrorNumber

类的代码在附件

Answer 4

可以用 GIF 格式呀

Answer 5

用“VB png”搜索一下，网上有源码，我以前也试过