相关文章推荐
在windows下绘图可以借助一些图形库用DrawLine和DrawCirccle这样的程序来画些tuxin
PROPSHEETHEADER m_PropS
PROPSHEETPAGE
转自：/article/tech-73193.htm 可按日期生成多个日志， 还可分年月日频率生成文件名 ==========================...
刚开始使用的是gdi保存cview中的绘图内容，但是发现由于保存的是位图所以保存下来的图片的大小很大，每个大概有2M左右，所以在网上找解决方法，选择使用GDI+来保存绘图为图片，大小为20K左右，主要...
刚开始使用的是gdi保存cview中的绘图内容，但是发现由于保存的是位图所以保存下来的图片的大小很大，每个大概有2M左右，所以在网上找解决方法，选择使用GDI+来保存绘图为图片，大小为20K左右，主要...
感觉作为一个学图形学的，还是可能偶尔要亲自读取纹理的，这里有篇技术博客介绍用GDI+读取图片像素
原博客地址：http://blog.csdn.net/wangyaninglm/article/det...
介绍CImage类的使用，处理JPGE、GIF、BMP、PNG等多种格式图片，扩展了图片处理功能且能与CBitmap 进行转换( 因为所载入的位图句柄都是HBITMAP,所以可相互转换)...
转自：http://blog.csdn.net/yuzl32/article/details/5389919
引言：通过GDI+我们可以很方便的对bmp、jpeg、gif、tiff、png格式的图片...
他的最新文章
他的热门文章
您举报文章：
举报原因：
原文地址：
原因补充：
(最多只允许输入30个字)VB6.0载入PNG格式图片_百度知道
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。
VB6.0载入PNG格式图片
我需要放到frame或Picture中。不直接载入到窗口上。如果能用代码实现最好不过。各位大神不要藏着掖着。有控件的大神麻烦上传一下，确定能使用后必定采纳，分享一下呗如题，求大神指教
给你一个示例吧，显示PNG到FORM上，用GDI的：Private&Declare&Function&GdiplusStartup&Lib&&gdiplus&&(token&As&Long,&inputbuf&As&GdiplusStartupInput,&Optional&ByVal&outputbuf&As&Long&=&0)&As&GpStatusPrivate&Declare&Sub&GdiplusShutdown&Lib&&gdiplus&&(ByVal&token&As&Long)Private&Declare&Function&GdipCreateFromHDC&Lib&&gdiplus&&(ByVal&hwnd&As&Long,&graphics&As&Long)&As&GpStatusPrivate&Declare&Function&GdipDeleteGraphics&Lib&&gdiplus&&(ByVal&graphics&As&Long)&As&GpStatusPrivate&Declare&Function&GdipDrawImageRect&Lib&&gdiplus&&(ByVal&graphics&As&Long,&ByVal&image&As&Long,&ByVal&x&As&Single,&ByVal&y&As&Single,&ByVal&Width&As&Single,&ByVal&Height&As&Single)&As&GpStatusPrivate&Declare&Function&GdipLoadImageFromFile&Lib&&gdiplus&&(ByVal&filename&As&String,&image&As&Long)&As&GpStatusPrivate&Declare&Function&GdipGetImageWidth&Lib&&gdiplus&&(ByVal&image&As&Long,&Width&As&Long)&As&GpStatusPrivate&Declare&Function&GdipGetImageHeight&Lib&&gdiplus&&(ByVal&image&As&Long,&Height&As&Long)&As&GpStatusPrivate&Declare&Function&GdipDisposeImage&Lib&&gdiplus&&(ByVal&image&As&Long)&As&GpStatusPrivate&Type&GdiplusStartupInput&&&&GdiplusVersion&As&Long&&&&DebugEventCallback&As&Long&&&&SuppressBackgroundThread&As&Long&&&&SuppressExternalCodecs&As&LongEnd&TypePrivate&Enum&GpStatus&&&&Ok&=&0&&&&GenericError&=&1&&&&InvalidParameter&=&2&&&&OutOfMemory&=&3&&&&ObjectBusy&=&4&&&&InsufficientBuffer&=&5&&&&NotImplemented&=&6&&&&Win32Error&=&7&&&&WrongState&=&8&&&&Aborted&=&9&&&&FileNotFound&=&10&&&&ValueOverflow&=&11&&&&AccessDenied&=&12&&&&UnknownImageFormat&=&13&&&&FontFamilyNotFound&=&14&&&&FontStyleNotFound&=&15&&&&NotTrueTypeFont&=&16&&&&UnsupportedGdiplusVersion&=&17&&&&GdiplusNotInitialized&=&18&&&&PropertyNotFound&=&19&&&&PropertyNotSupported&=&20End&Enum'主要代码就下面这几句而已.Private&Const&c_pngPath&As&String&=&&C:\1.png&&&&'要显示的图片名称和路径。Dim&m_token&As&LongPrivate&Sub&Form_paint()&‘Form上显示&&&&&Dim&pImg&As&Long&&&&&Dim&pGraphics&As&Long&&&&&Dim&w&As&Long,&h&As&Long&&&&&&&&&Call&GdipCreateFromHDC(Me.hDC,&pGraphics)&&&&&Call&GdipLoadImageFromFile(StrConv(c_pngPath,&vbUnicode),&pImg)&&&&&Call&GdipGetImageWidth(pImg,&w)&&&&&Call&GdipGetImageHeight(pImg,&h)&&&&&Call&GdipDrawImageRect(pGraphics,&pImg,&0,&0,&w,&h)&&&&&&&&&Call&GdipDisposeImage(pImg)&&&&&Call&GdipDeleteGraphics(pGraphics)End&SubPrivate&Sub&Form_Load()&&&&&Dim&StartupInput&As&GdiplusStartupInput&&&&&StartupInput.GdiplusVersion&=&1&&&&&If&GdiplusStartup(m_token,&StartupInput,&ByVal&0)&Then&&&&&&&&&&&&&MsgBox&&Error&initializing&GDI+&&&&&&&&&&&&&&Exit&Sub&&&&&End&IfEnd&SubPrivate&Sub&Form_Unload(Cancel&As&Integer)&&&&&Call&GdiplusShutdown(m_token)End&Sub
哥们，这段代码我知道，他是显示在窗体上的，不是我需要的。最好是单独的一个控件，能够显示PNG图片或者去掉JPG图片的背景白底
如果不显示在窗体上，修改下就行了，下面是显示在picturebox1控件里： Private Sub picturebox1_paint() ‘Form上显示...Call GdipCreateFromHDC(Me.picturebox1.hDC, pGraphics) 但去背景的话，要你自己定义背景的色，我再找找
必须指定图片路径么？不能像image那样直接载入么？背景色是单一的颜色，能去掉么？至于什么颜色我可以自己用PS改！
你要自己载入的话修改一下就行了啊，那个常量设置为变量就行了。
额，就是不会修改啊~~~~
采纳率：82%
好复杂啊，看的眼睛都花了！哥们，能不能帮忙简化一下。我只需要能够显示PNG格式的控件就行了不需要其他功能！麻烦您了。不用别的控件也可以，只要能吧图片的白底去掉就行！我可以换成JPG格式的最好是操作简单一点的，因为东西比较多，弄起来很麻烦。拜托你了，我加分！
为您推荐：
其他类似问题
您可能关注的内容
png格式的相关知识
换一换
回答问题，赢新手礼包posts - 98,&
comments - 711,&
trackbacks - 0
鉴于之前在发布的代码很匆忙，也存在不少错误，现发布比较完美版的解决方案。
Option Explicit
Private Const UnitPixel
As Long = 2
Private Const EncoderQuality
As String = "{1D5BE4B5-FA4A-452D-9CDD-5DB35105E7EB}"
Private Type GdiplusStartupInput
GdiplusVersion
DebugEventCallback
SuppressBackgroundThread As Long
SuppressExternalCodecs
Private Enum EncoderParameterValueType
EncoderParameterValueTypeByte = 1
EncoderParameterValueTypeASCII = 2
EncoderParameterValueTypeShort = 3
EncoderParameterValueTypeLong = 4
EncoderParameterValueTypeRational = 5
EncoderParameterValueTypeLongRange = 6
EncoderParameterValueTypeUndefined = 7
EncoderParameterValueTypeRationalRange = 8
Private Type EncoderParameter
GUID(0 To 3)
NumberOfValues
As EncoderParameterValueType
Private Type EncoderParameters
As EncoderParameter
Private Type ImageCodecInfo
ClassID(0 To 3)
FormatID(0 To 3)
FormatDescription
FilenameExtension
SigPattern
Private Declare Function GdiplusStartup Lib "gdiplus" (Token As Long, inputbuf As GdiplusStartupInput, Optional ByVal outputbuf As Long = 0) As Long
Private Declare Sub GdiplusShutdown Lib "gdiplus" (ByVal Token As Long)
Private Declare Function GdipSaveImageToFile Lib "gdiplus" (ByVal hImage As Long, ByVal sFilename As Long, clsidEncoder As Any, encoderParams As Any) As Long
Private Declare Function GdipDisposeImage Lib "gdiplus" (ByVal Image As Long) As Long
Private Declare Function GdipCreateBitmapFromHBITMAP Lib "gdiplus" (ByVal hbm As Long, ByVal hPal As Long, Bitmap As Long) As Long
Private Declare Function GdipGetImageEncodersSize Lib "gdiplus" (numEncoders As Long, Size As Long) As Long
Private Declare Function GdipGetImageEncoders Lib "gdiplus" (ByVal numEncoders As Long, ByVal Size As Long, Encoders As Any) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Declare Function lstrlenW Lib "kernel32" (ByVal psString As Any) As Long
Private Declare Function CLSIDFromString Lib "ole32" (ByVal lpszProgID As Long, pCLSID As Any) As Long
Private Declare Function GdipBitmapSetResolution Lib "gdiplus" (ByVal Bitmap As Long, ByVal xdpi As Single, ByVal ydpi As Single) As Long
Public Enum ImageFileFormat
Public Function SaveStdPicToFile(Stdpic As StdPicture, ByVal FileName As String, _
Optional ByVal FileFormat As ImageFileFormat = Jpg, _
Optional ByVal JpgQuality As Long = 80, _
Optional Resolution As Single) As Boolean
Dim CLSID(3)
Dim Bitmap
As GdiplusStartupInput
Gsp.GdiplusVersion = 1
'GDI+ 1.0版本
GdiplusStartup Token, Gsp
'初始化GDI+
GdipCreateBitmapFromHBITMAP Stdpic.Handle, Stdpic.hPal, Bitmap
If Bitmap && 0 Then
'说明我们成功的将StdPic对象转换为GDI+的Bitmap对象了
GdipBitmapSetResolution Bitmap, Resolution, Resolution
Select Case FileFormat
Case ImageFileFormat.Bmp
If Not GetEncoderClsID("Image/bmp", CLSID) = -1 Then
SaveStdPicToFile = (GdipSaveImageToFile(Bitmap, StrPtr(FileName), CLSID(0), ByVal 0) = 0)
Case ImageFileFormat.Jpg
'JPG格式可以设置保存的质量
Dim aEncParams()
Dim uEncParams
As EncoderParameters
If GetEncoderClsID("Image/jpeg", CLSID) && -1 Then
uEncParams.Count = 1
' 设置自定义的编码参数，这里为1个参数
If JpgQuality & 0 Then
JpgQuality = 0
ElseIf JpgQuality & 100 Then
JpgQuality = 100
ReDim aEncParams(1 To Len(uEncParams))
With uEncParams.Parameter
.NumberOfValues = 1
.Type = EncoderParameterValueTypeLong
' 设置参数值的数据类型为长整型
Call CLSIDFromString(StrPtr(EncoderQuality), .GUID(0))
' 设置参数唯一标志的GUID，这里为编码品质
.Value = VarPtr(JpgQuality)
' 设置参数的值：品质等级，最高为100，图像文件大小与品质成正比
CopyMemory aEncParams(1), uEncParams, Len(uEncParams)
SaveStdPicToFile = (GdipSaveImageToFile(Bitmap, StrPtr(FileName), CLSID(0), aEncParams(1)) = 0)
Case ImageFileFormat.Png
If Not GetEncoderClsID("Image/png", CLSID) = -1 Then
SaveStdPicToFile = (GdipSaveImageToFile(Bitmap, StrPtr(FileName), CLSID(0), ByVal 0) = 0)
Case ImageFileFormat.Gif
If Not GetEncoderClsID("Image/gif", CLSID) = -1 Then
'如果原始的图像是24位，则这个函数会调用系统的调色板来将图像转换为8位，转换的效果会不尽人意,但也有可能系统不自动转换，保存失败
SaveStdPicToFile = (GdipSaveImageToFile(Bitmap, StrPtr(FileName), CLSID(0), ByVal 0) = 0)
End Select
GdipDisposeImage Bitmap
'注意释放资源
GdiplusShutdown Token
'关闭GDI+。
End Function
Private Function GetEncoderClsID(strMimeType As String, ClassID() As Long) As Long
Dim Info()
As ImageCodecInfo
Dim Buffer()
GetEncoderClsID = -1
GdipGetImageEncodersSize Num, Size
'得到解码器数组的大小
If Size && 0 Then
ReDim Info(1 To Num) As ImageCodecInfo
'给数组动态分配内存
ReDim Buffer(1 To Size) As Byte
GdipGetImageEncoders Num, Size, Buffer(1)
'得到数组和字符数据
CopyMemory Info(1), Buffer(1), (Len(Info(1)) * Num)
For I = 1 To Num
'循环检测所有解码
If (StrComp(PtrToStrW(Info(I).MimeType), strMimeType, vbTextCompare) = 0) Then
'必须把指针转换成可用的字符
CopyMemory ClassID(0), Info(I).ClassID(0), 16
'保存类的ID
GetEncoderClsID = I
'返回成功的索引值
End Function
Private Function PtrToStrW(ByVal lpsz As Long) As String
Dim Length
Length = lstrlenW(lpsz)
If Length & 0 Then
Out = StrConv(String$(Length, vbNullChar), vbUnicode)
CopyMemory ByVal Out, ByVal lpsz, Length * 2
PtrToStrW = StrConv(Out, vbFromUnicode)
End Function
阅读(...) 评论()下次自动登录
现在的位置:
& 综合 & 正文
VB6.0用GDI+保存图片为JPG、TIFF、PNG、GIF、BMP等格式
Private Type GUID
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(0 To 7) As ByteEnd TypePrivate Type GdiplusStartupInput
GdiplusVersion As Long
DebugEventCallback As Long
SuppressBackgroundThread As Long
SuppressExternalCodecs As LongEnd TypePrivate Type EncoderParameter
GUID As GUID
NumberOfValues As Long
type As Long
Value As LongEnd TypePrivate Type EncoderParameters
count As Long
Parameter As EncoderParameterEnd Type
Private Declare Function GdiplusStartup Lib "GDIPlus" (token As Long, inputbuf As GdiplusStartupInput, Optional ByVal outputbuf As Long = 0) As LongPrivate Declare Function GdiplusShutdown Lib "GDIPlus" (ByVal token As Long) As LongPrivate Declare Function GdipCreateBitmapFromHBITMAP Lib "GDIPlus" (ByVal hbm As Long, ByVal hPal As Long, BITMAP As Long) As LongPrivate Declare Function GdipDisposeImage Lib "GDIPlus" (ByVal Image As Long) As LongPrivate Declare Function GdipSaveImageToFile Lib "GDIPlus" (ByVal Image As Long, ByVal FileName As Long, clsidEncoder As GUID, encoderParams As Any) As LongPrivate Declare Function CLSIDFromString Lib "ole32" (ByVal Str As Long, id As GUID) As LongPrivate Declare Function CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Dest As Any, Src As Any, ByVal cb As Long) As Long
'*************************************************************************'**
laviewpbt'**
函 数 名 ：
SavePic'**
pic(StdPicture)
图象句柄'**
FileName(String)
保存路径'**
Quality(Byte)
JPG图象质量'**
TIFF_ColorDepth(Long)
TTF格式的颜色深度'**
TIFF_Compression(Long) -
TTF格式的压缩比'**
功能描述 ：
把图象保存为JPG、TIFF、PNG、GIF、BMP格式'**
修 改 人 ：
laviewpbt'**
14.43.52'**
Version 1.2.1'*************************************************************************Private Sub SavePic(ByVal pict As StdPicture, ByVal FileName As String, PicType As String, _
Optional ByVal Quality As Byte = 80, _
Optional ByVal TIFF_ColorDepth As Long = 24, _
Optional ByVal TIFF_Compression As Long = 6)
Screen.MousePointer = vbHourglass
Dim tSI As GdiplusStartupInput
Dim lRes As Long
Dim lGDIP As Long
Dim lBitmap As Long
Dim aEncParams() As Byte
On Error GoTo ErrHandle:
tSI.GdiplusVersion = 1
' 初始化 GDI+
lRes = GdiplusStartup(lGDIP, tSI)
If lRes = 0 Then
' 从句柄创建 GDI+ 图像
lRes = GdipCreateBitmapFromHBITMAP(pict.Handle, 0, lBitmap)
If lRes = 0 Then
Dim tJpgEncoder As GUID
Dim tParams As EncoderParameters
'初始化解码器的GUID标识
Select Case PicType
Case ".jpg"
CLSIDFromString StrPtr("{557CF401-1A04-11D3-9A73-E}"), tJpgEncoder
tParams.count = 1
' 设置解码器参数
With tParams.Parameter ' Quality
CLSIDFromString StrPtr("{1D5BE4B5-FA4A-452D-9CDD-5DB35105E7EB}"), .GUID
' 得到Quality参数的GUID标识
.NumberOfValues = 1
.Value = VarPtr(Quality)
ReDim aEncParams(1 To Len(tParams))
Call CopyMemory(aEncParams(1), tParams, Len(tParams))
Case ".png"
CLSIDFromString StrPtr("{557CF406-1A04-11D3-9A73-E}"), tJpgEncoder
ReDim aEncParams(1 To Len(tParams))
Case ".gif"
CLSIDFromString StrPtr("{557CF402-1A04-11D3-9A73-E}"), tJpgEncoder
ReDim aEncParams(1 To Len(tParams))
Case ".tiff"
CLSIDFromString StrPtr("{557CF405-1A04-11D3-9A73-E}"), tJpgEncoder
tParams.count = 2
ReDim aEncParams(1 To Len(tParams) + Len(tParams.Parameter))
With tParams.Parameter
.NumberOfValues = 1
CLSIDFromString StrPtr("{E09D739D-CCD4-44EE-8EBA-3FBF8BE4FC58}"), .GUID
' 得到ColorDepth参数的GUID标识
.Value = VarPtr(TIFF_Compression)
Call CopyMemory(aEncParams(1), tParams, Len(tParams))
With tParams.Parameter
.NumberOfValues = 1
CLSIDFromString StrPtr("{-AD66-4C7C-9A18-38A}"), .GUID
' 得到Compression参数的GUID标识
.Value = VarPtr(TIFF_ColorDepth)
Call CopyMemory(aEncParams(Len(tParams) + 1), tParams.Parameter, Len(tParams.Parameter))
Case ".bmp"
'可以提前写保存为BMP的代码，因为并没有用GDI+
SavePicture pict, FileName
Screen.MousePointer = vbDefault
End Select
lRes = GdipSaveImageToFile(lBitmap, StrPtr(FileName), tJpgEncoder, aEncParams(1))
GdipDisposeImage lBitmap
' 销毁GDI+图像
GdiplusShutdown lGDIP
'销毁 GDI+
Screen.MousePointer = vbDefault
Erase aEncParams
Exit SubErrHandle:
Screen.MousePointer = vbDefault
MsgBox "在保存图片的过程中发生错误:" & vbCrLf & vbCrLf & "错误号:
" & err.Number & vbCrLf & "错误描述:
" & err.Description, vbInformation Or vbOKOnly, "错误"End Sub
&&&&推荐文章:
【上篇】【下篇】Windows GDI+ 编程手册