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

 

本文来自优快云博客，转载请标明出处：http://blog.youkuaiyun.com/SYSSZ/archive/2009/06/03/4240062.aspx