如何在VB中使用PNG格式的图片
我想在VB中做一个动画效果,可是VB的image控件不支持PNG格式的文件,而用bmp和jpg又没办法去掉图片的白色背景,那位高手帮下忙,告诉我怎样才能在VB中使用PNG...
我想在VB中做一个动画效果,可是VB的image控件不支持PNG格式的文件,而用bmp和jpg又没办法去掉图片的白色背景,那位高手帮下忙,告诉我怎样才能在VB中使用PNG的图片格式
展开
5个回答
展开全部
由于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格式的图片了。
(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格式的图片了。
博思aippt
2024-07-20 广告
2024-07-20 广告
博思AIPPT是基于ai制作PPT的智能在线工具,它提供了4种AI制作PPT的方式,包括AI生成大纲、AI直接生成PPT、文本生成PPT、AI提炼文档生成PPT,一站式集成多种AI生成PPT的方式,可满足办公用户的不同需求和使用场景。ai生...
点击进入详情页
本回答由博思aippt提供
展开全部
请你使用GIF控件就行了!PNG转换为GIF格式,这个控件不难找,也许你电脑里就有!或者你用WebBrowse也行不过效果不是很好。
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
我这里有个类 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
类的代码在附件
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
可以用 GIF 格式呀
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
用“VB png”搜索一下,网上有源码,我以前也试过
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询