求能显示PNG图片的按钮控件或将PNG图片绘制到按钮上的方法解决办法

求能显示PNG图片的按钮控件或将PNG图片绘制到按钮上的方法

PNG图片很漂亮，是美化程序的好东西，但不能显示到按钮上，郁闷，在下求：能显示PNG图片的按钮控件或将PNG图片绘制到按钮上的方法

[解决办法]
用GDI+绘图函数可以显示PNG图片.

http://download.csdn.net/source/1001071

用一个示例（附源码)
[解决办法]
1、用c++写；
2、用图形自绘模拟按钮解决；
[解决办法]
参考 http://www.pcvz.com/Program/Programs/VB/VBControl/Program_52366.html
[解决办法]
GDI+API是可办到的
[解决办法]
把源 PNG 图片转换一下格式不行啊？

[解决办法]
http://www.vbaccelerator.com/home/VB/Code/vbMedia/Using_GDI_Plus/Reading_and_Writing_JPG__PNG__TIF_and_GIF_Files/article.asp
[解决办法]
我没有,up一下
[解决办法]

探讨

把源 PNG 图片转换一下格式不行啊？

[解决办法]
用自绘按钮显示PNG图片。
[解决办法]
没见过，真要控件可能还是要自己搞啊
[解决办法]
极力推荐的一款超棒的支持真彩色带混合透明通道的32Bpp图标和PNG格式文件的按钮控件。该控件可以在Windows2000以上的操作系统中显示真彩色（98没有测试过）。支持的按钮风格共有8种，可以设置按钮前景色及背景色以及渐变色，可以设置图标对齐方式，标题对齐方式。总之功能非常强大。
注意：在使用真彩色图片时请点击控件属性--自定义，在真彩色图片中进行插入真彩色图片。


http://www.mndsoft.com/blog/article.asp?id=886
[解决办法]
一、自绘XP风格的按钮，参见我博客里《用VB实现带图片的XP风格的按钮控件》一文。
二、用以下代码替换原文中使用StdPicture对象的Render方法绘制的代码：
Public Sub DrawPng(ByVal hdcDraw As Long, ByVal FileName As String, Optional ByVal nLeft As Long, Optional ByVal nTop As Long)
Dim hImage As Long
Dim Graphics As Long
Dim Token As Long
Dim GdipInput As GdiplusStartupInput
Dim nWidth As Long
Dim nHeight As Long

Dim IStream As stdole.IUnknown
Dim fn As Integer
Dim bytBuffer() As Byte

fn = FreeFile()
Open FileName For Binary Access Read As #fn
bytBuffer = InputB(LOF(fn), fn)
Close #fn

If (CreateStreamOnHGlobal(VarPtr(bytBuffer(0)), 1, IStream) = S_OK) Then
GdipInput.GdiplusVersion = 1
GdiplusStartup Token, GdipInput

GdipLoadImageFromStream IStream, hImage
GdipGetImageWidth hImage, nWidth
GdipGetImageHeight hImage, nHeight
GdipCreateFromHDC hdcDraw, Graphics
GdipDrawImageRectRectI Graphics, hImage, nLeft, nTop, nWidth, nHeight, 0, 0, nWidth, nHeight, UnitPixel, 0, 0, 0

GdipDeleteGraphics Graphics
GdipDisposeImage hImage
GdiplusShutdown Token
Set IStream = Nothing
End If
End Sub
[解决办法]

探讨

一、自绘XP风格的按钮，参见我博客里《用VB实现带图片的XP风格的按钮控件》一文。
二、用以下代码替换原文中使用StdPicture对象的Render方法绘制的代码：
Public Sub DrawPng(ByVal hdcDraw As Long, ByVal FileName As String, Optional ByVal nLeft As Long, Optional ByVal n……

查看更多 下一篇