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,可是为么就画不出线!!!

解决方案 »

  1.   

    好像不能在Private Sub Form_Load()里画,应该在Private Sub Form_Paint()里面画
      

  2.   

    在form_paint()里面画连圈圈都画不上去了!
    form的autoredraw已经等于true了!
      

  3.   

     GdipDrawLineI返回错误代码2,说是参数无效!graphics是0,pen 也是0 
      

  4.   

    找到错误了,提示是没有初始化!!!!
    Initgdiplus提示无效!
    怎么回事啊!
    哥哥姐姐们!
      

  5.   

    这是全部代码了,我只想画根线!
    问题找到了,gdi+的初始化时startup,Initgdiplus应该是包装好的,
    我没包装,现在用的startup解决了。但是startup的第一个参数不太明白,
    token是干嘛的?