Office中国论坛/Access中国论坛

标题: Access能使用GDI+API编程吗？ [打印本页]
作者: 站到终点站    时间: 2014-9-6 11:13
标题: Access能使用GDI+API编程吗？
我在VB6里面可以正常看到GDI+编程的效果，如下图


以下是转换到ACCESS里后的代码，运行时没任何反应，也没有任何出错提示，不知道是何原因，有谁知道的吗？是否ACCESS的窗体不支持GDI+？
  1. Private TOKEN As Long
  2. Private Graphics As Long
  3. Dim pen As Long, brush As Long

  5. Private Sub Command0_Click()
  6.   Dim p1 As POINTF, p2 As POINTF
  7.    
  8.   InitGDIPlus

  10.   GdipCreateFromHWND Me.Hwnd, Graphics
  11.   GdipSetSmoothingMode Graphics, SmoothingModeAntiAlias
  12.    
  13.   GdipCreatePen1 &HFFFF0000, 500, UnitPixel, pen
  14.   GdipDrawLineI Graphics, pen, 10, 10, 4000, 2000
  15.    
  16.   GdipCreatePen1 &HFFFF0000, 1, UnitPixel, pen
  17.   GdipDrawRectangleI Graphics, pen, 30, 30, 2000, 2000
  18.    
  19.   GdipCreateSolidFill &HAA0000FF, brush
  20.   GdipFillRectangleI Graphics, brush, 30, 30, 2000, 2000
  21.   GdipDrawRectangleI Graphics, pen, 30, 30, 200, 2000
  22.    
  23.   p1.X = 10
  24.   p1.Y = 10
  25.   p2.X = 2000
  26.   p2.Y = 1000
  27.    
  28.   GdipCreateLineBrush p1, p2, &H8AFF00FF, &HFFFF0000, WrapModeTileFlipXY, brush
  29.   GdipFillEllipseI Graphics, brush, p1.X, p1.Y, p2.X - p1.X, p2.Y - p1.X

  31.   Me.Repaint
  32. End Sub

  34. Private Sub Form_Unload(Cancel As Integer)
  35.   GdipDeletePen pen
  36.   GdipDeleteBrush brush
  37.   TerminateGDIPlus
  38. End Sub

  40. Private Sub TerminateGDIPlus()
  41.   GdipDeleteGraphics Graphics
  42.   GdiplusShutdown TOKEN
  43. End Sub

  45. Private Sub InitGDIPlus()
  46.   Dim uInput As GdiplusStartupInput
  47.    
  48.   uInput.GdiplusVersion = 1
  49.   If GdiplusStartup(TOKEN, uInput) <> Ok Then
  50.     MsgBox "GDI+ 初始化错误。程序即将关闭。", vbCritical, "InitError"
  51.     End
  52.   End If
  53. End Sub
复制代码



作者: tmtony    时间: 2014-9-6 17:24
这个你要请教 t小宝，他是图片专家
作者: zpy2    时间: 2014-9-7 05:12
这个用了什么库,不是win Api直接写的吧
作者: t小宝    时间: 2014-9-9 22:54
tmtony 发表于 2014-9-6 17:24
这个你要请教 t小宝，他是图片专家

王站过奖了，不敢当啊。。。
要在access窗体上画图，不能使用Me.Hwnd，因为access有个神密的东西叫节，节覆盖在窗体上，所有的控件都在节上面显示，所以要在节上作画，可通过FindWindowEx取得节句柄，节的类名是OFormSub
作者: tmtony    时间: 2014-9-13 08:41
赞一下!
作者: zpy2    时间: 2014-9-14 06:42
赞一个!
作者: 站到终点站    时间: 2014-9-14 11:32
我把按钮单击代码更换了下，但是还是没有效果，困惑！
  1. Private Sub Command0_Click()
  2.   Dim p1 As POINTF, p2 As POINTF
  3.   
  4.   InitGDIPlus

  6.   GdipCreateFromHWND FindWindowEx(Me.hwnd, 0&, "OFormSub", vbNullString), graphics
  7.   GdipSetSmoothingMode graphics, SmoothingModeAntiAlias
  8.   
  9.   GdipCreatePen1 &HFFFF0000, 500, UnitPixel, pen
  10.   GdipDrawLineI graphics, pen, 10, 10, 4000, 2000
  11.   
  12.   GdipCreatePen1 &HFFFF0000, 1, UnitPixel, pen
  13.   GdipDrawRectangleI graphics, pen, 30, 30, 2000, 2000
  14.   
  15.   GdipCreateSolidFill &HAA0000FF, brush
  16.   GdipFillRectangleI graphics, brush, 30, 30, 2000, 2000
  17.   GdipDrawRectangleI graphics, pen, 30, 30, 200, 2000
  18.   
  19.   p1.X = 10
  20.   p1.Y = 10
  21.   p2.X = 2000
  22.   p2.Y = 1000
  23.   
  24.   GdipCreateLineBrush p1, p2, &H8AFF00FF, &HFFFF0000, WrapModeTileFlipXY, brush
  25.   GdipFillEllipseI graphics, brush, p1.X, p1.Y, p2.X - p1.X, p2.Y - p1.X

  27.   Me.Repaint
  28. End Sub
复制代码
作者: 站到终点站    时间: 2014-9-14 11:33
zpy2 发表于 2014-9-7 05:12
这个用了什么库,不是win Api直接写的吧

这个要引用gdiplus.dll
作者: t小宝    时间: 2014-9-14 19:14
首先，access窗体始终有3个节，页眉、主体、页脚，即使在设计视图中没有，用FindWindowEx也能找到3个。
所以如果是使用主体节作画，则要FindWindowEx两次得到主体节句柄，具体请百度FindWindowEx的用法。
另外不要使用 Me.Repaint ，刷新窗体后在上面画的东西就没有了。
作者: 站到终点站    时间: 2014-9-15 13:55
感谢小宝版主，修改后，测试成功~[attach]54636[/attach]

修改后的按钮单击代码如下：
  1. Private Sub Command0_Click()
  2.   Dim p1 As POINTF, p2 As POINTF
  3.   Dim tempHwnd As Long
  4.   
  5.   InitGDIPlus
  6.   
  7.   tempHwnd = FindWindowEx(Me.hwnd, 0&, "OFormSub", vbNullString)
  8.   tempHwnd = FindWindowEx(Me.hwnd, tempHwnd, "OFormSub", vbNullString)

  10.   GdipCreateFromHWND tempHwnd, graphics
  11.   GdipSetSmoothingMode graphics, SmoothingModeAntiAlias
  12.   
  13.   GdipCreatePen1 &HFFFF0000, 1, UnitPixel, pen
  14.   GdipDrawLineI graphics, pen, 1, 1, 400, 200
  15.   
  16.   GdipCreatePen1 &HFFFF0000, 1, UnitPixel, pen
  17.   GdipDrawRectangleI graphics, pen, 30, 30, 200, 200
  18.   
  19.   GdipCreateSolidFill &HAA0000FF, brush
  20.   GdipFillRectangleI graphics, brush, 30, 30, 200, 200
  21.   GdipDrawRectangleI graphics, pen, 30, 30, 200, 200
  22.   
  23.   p1.X = 10
  24.   p1.Y = 10
  25.   p2.X = 200
  26.   p2.Y = 100
  27.   
  28.   GdipCreateLineBrush p1, p2, &H8AFF00FF, &HFFFF0000, WrapModeTileFlipXY, brush
  29.   GdipFillEllipseI graphics, brush, p1.X, p1.Y, p2.X - p1.X, p2.Y - p1.X

  31. End Sub
复制代码



作者: 站到终点站    时间: 2014-9-15 14:06
我找到了GdiPlus的API声明，没有的可以下载去用。
[attach]54637[/attach]
作者: zpy2    时间: 2014-9-16 05:40
谢谢分享



欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3