VB中使用PNG格式图片的一种新方法

由于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格式的图片了。

本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/SYSSZ/archive/2009/06/03/4240062.aspx