Option Explicit
Dim graphics As Long
Dim pen As LongPrivate Sub Form_Load()
'initgdiplus
GdipCreateFromHDC Form1.hDC, graphics
Form1.Circle (100, 100), 30, vbRed
GdipCreatePen1 &HFFFFFFFF, 1, UnitPixel, pen
GdipDrawLineI graphics, pen, 10, 10, 200, 100
Form1.Refresh
End Sub
Private Sub Form_Unload(Cancel As Integer)
GdipDeletePen pen '删除这个笔(pen) GdipDeleteGraphics graphics '释放graphics占用的内存
'TerminateGDIPlus
End Sub
为什么上面initgdiplus跟terminnategdiplus无法调用
graphics创建成功,返回值是0,pen的返回值也是0,可是为么就画不出线!!!
Dim graphics As Long
Dim pen As LongPrivate Sub Form_Load()
'initgdiplus
GdipCreateFromHDC Form1.hDC, graphics
Form1.Circle (100, 100), 30, vbRed
GdipCreatePen1 &HFFFFFFFF, 1, UnitPixel, pen
GdipDrawLineI graphics, pen, 10, 10, 200, 100
Form1.Refresh
End Sub
Private Sub Form_Unload(Cancel As Integer)
GdipDeletePen pen '删除这个笔(pen) GdipDeleteGraphics graphics '释放graphics占用的内存
'TerminateGDIPlus
End Sub
为什么上面initgdiplus跟terminnategdiplus无法调用
graphics创建成功,返回值是0,pen的返回值也是0,可是为么就画不出线!!!
form的autoredraw已经等于true了!
Initgdiplus提示无效!
怎么回事啊!
哥哥姐姐们!
问题找到了,gdi+的初始化时startup,Initgdiplus应该是包装好的,
我没包装,现在用的startup解决了。但是startup的第一个参数不太明白,
token是干嘛的?