GDI
GDI+_Png图片浏览器
· ☕ 1 分钟
‘昨天看见有人问VB6支不支持PNG,刚好我正在研究GDI+,于是做了这个演示程序。 ‘演示下载地址: ‘下

GDI+_SavePic
· ☕ 2 分钟
Option Explicit Private Const UnitPixel As Long = 2 Private Const EncoderQuality As String = "{1D5BE4B5-FA4A-452D-9CDD-5DB35105E7EB}" Private Type GdiplusStartupInput GdiplusVersion As Long DebugEventCallback As Long SuppressBackgroundThread As Long SuppressExternalCodecs As Long End Type Private Enum EncoderParameterValueType EncoderParameterValueTypeByte = 1 EncoderParameterValueTypeASCII = 2 EncoderParameterValueTypeShort = 3 EncoderParameterValueTypeLong = 4 EncoderParameterValueTypeRational = 5 EncoderParameterValueTypeLongRange = 6 EncoderParameterValueTypeUndefined = 7 EncoderParameterValueTypeRationalRange = 8 End Enum Private Type EncoderParameter GUID(0 To 3) As Long

GDI+_VB6_ARGB
· ☕ 2 分钟
在写一个用GDI+代替VB的Line函数的方法时,遇到了一个问题。 GdipCreateSolidFill 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 参数 color [in]ARGB颜色,指定此实体

GDI+_从Bitmap里得到的Color数组值解决方案
· ☕ 2 分钟
' InkHin_ZhiZhuo ' Date :2019.2.18 ' E-mail [email protected] Option Explicit Public Type ARGB Alpha As String Red As String Green As String Blue As String End Type Private ARGB_a As ARGB Public Sub IFunction_Name_A(Color As String) If ARGB_FormColor(Color, ARGB_a) Then With ARGB_a MsgBox _ "A: " & .Alpha & " " & "Ten:" & Val("&H" & .Alpha) & vbCrLf _ & "R: " & .Red & " " & "Ten:"

GDI+_绘制QQ头像
· ☕ 1 分钟
Public Sub I_touxiang(ByVal file As String, ByVal Graphics As Long, Width As Long, Height As Long, Optional SavePath As String) '做这个是因为昨天晚上雅铭居士的论坛登录器的有需要。一个利用GDI +制作的QQ头像效果 'By 2019.2.16 22:00 InkHin Dim Bitmap As