vb绘制图像

来源：百度知道 编辑：UC知道 时间：2024/06/19 12:54:17
在图片框里头填充渐变色的直线，直到铺满整个图片框。但是！一个像素一个像素填充很慢，要好几秒。能不能快点让它像显示图片那么迅速？注意每条渐变线条的颜色不是固定的也不是相同的，就是说不能先画成图片。有没有高人能解决？

这种绘图问题来找我嘛……（分好寒酸。。）

传说中的GDI+隆重出场！……
GDI+是最快的。可以超过VB任何绘图语句

1.建立一个模块，复制下面代码：
Option Explicit

Public Type GdiplusStartupInput
GdiplusVersion As Long
DebugEventCallback As Long
SuppressBackgroundThread As Long
SuppressExternalCodecs As Long
End Type

Public 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 = 20
End Enum

Public