64位Office中API函数声明语句第33讲（64位Office中API函数声明语句第33讲）

64位Office中API函数声明语句第33讲（64位Office中API函数声明语句第33讲）Declare PtrSafe Function GetArcDirection Lib "gdi32" Alias "GetArcDirection" (ByVal hdc As LongPtr) As LongDeclare PtrSafe Function GetMiterLimit Lib "gdi32" Alias "GetMiterLimit" (ByVal hdc As LongPtr peLimit As Double) As LongDeclare PtrSafe Function StrokePath Lib "gdi32" Alias "StrokePath" (ByVal hdc As LongPtr) As LongDeclare PtrSafe Function W

跟我学VBA，我这里专注VBA 授人以渔。这讲我们学习64位Office API声明语句学习之三十三讲，这些内容看似枯燥，但对于想学习API函数的朋友是非常有用的资料。

Declare PtrSafe Function SetArcDirection Lib "gdi32" Alias "SetArcDirection" (ByVal hdc As LongPtr ByVal ArcDirection As Long) As Long

Declare PtrSafe Function SetMiterLimit Lib "gdi32" Alias "SetMiterLimit" (ByVal hdc As LongPtr ByVal eNewLimit As Double peOldLimit As Double) As Long

Declare PtrSafe Function StrokeAndFillPath Lib "gdi32" Alias "StrokeAndFillPath" (ByVal hdc As LongPtr) As Long

Declare PtrSafe Function StrokePath Lib "gdi32" Alias "StrokePath" (ByVal hdc As LongPtr) As Long

Declare PtrSafe Function WidenPath Lib "gdi32" Alias "WidenPath" (ByVal hdc As LongPtr) As Long

Declare PtrSafe Function ExtCreatePen Lib "gdi32" Alias "ExtCreatePen" (ByVal dwPenStyle As Long ByVal dwWidth As Long lplb As LOGBRUSH ByVal dwStyleCount As Long lpStyle As Long) As LongPtr

Declare PtrSafe Function GetMiterLimit Lib "gdi32" Alias "GetMiterLimit" (ByVal hdc As LongPtr peLimit As Double) As Long

Declare PtrSafe Function GetArcDirection Lib "gdi32" Alias "GetArcDirection" (ByVal hdc As LongPtr) As Long

Declare PtrSafe Function GetObject Lib "gdi32" Alias "GetObjectA" (ByVal hObject As LongPtr ByVal nCount As Long lpObject As Any) As Long

Declare PtrSafe Function MoveToEx Lib "gdi32" Alias "MoveToEx" (ByVal hdc As LongPtr ByVal x As Long ByVal y As Long lpPoint As POINTAPI) As Long

Declare PtrSafe Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As LongPtr ByVal x As Long ByVal y As Long ByVal lpString As String ByVal nCount As Long) As Long

Declare PtrSafe Function ExtTextOut Lib "gdi32" Alias "ExtTextOutA" (ByVal hdc As LongPtr ByVal x As Long ByVal y As Long ByVal wOptions As Long lpRect As RECT ByVal lpString As String ByVal nCount As Long lpDx As Long) As Long

Declare PtrSafe Function PolyTextOut Lib "gdi32" Alias "PolyTextOutA" (ByVal hdc As LongPtr pptxt As POLYTEXT ByVal cStrings As Long) As Long

Declare PtrSafe Function CreatePolygonRgn Lib "gdi32" Alias "CreatePolygonRgn" (lpPoint As POINTAPI ByVal nCount As Long ByVal nPolyFillMode As Long) As LongPtr

Declare PtrSafe Function DPtoLP Lib "gdi32" Alias "DPtoLP" (ByVal hdc As LongPtr lpPoint As POINTAPI ByVal nCount As Long) As Long

Declare PtrSafe Function LPtoDP Lib "gdi32" Alias "LPtoDP" (ByVal hdc As LongPtr lpPoint As POINTAPI ByVal nCount As Long) As Long

Declare PtrSafe Function Polyline Lib "gdi32" Alias "Polyline" (ByVal hdc As LongPtr lpPoint As POINTAPI ByVal nCount As Long) As Long

Declare PtrSafe Function Polygon Lib "gdi32" Alias "Polygon" (ByVal hdc As LongPtr lpPoint As POINTAPI ByVal nCount As Long) As Long

Declare PtrSafe Function PolyBezier Lib "gdi32" Alias "PolyBezier" (ByVal hdc As LongPtr lppt As POINTAPI ByVal cPoints As Long) As Long

Declare PtrSafe Function PolyBezierTo Lib "gdi32" Alias "PolyBezierTo" (ByVal hdc As LongPtr lppt As POINTAPI ByVal cCount As Long) As Long

Declare PtrSafe Function PolylineTo Lib "gdi32" Alias "PolylineTo" (ByVal hdc As LongPtr lppt As POINTAPI ByVal cCount As Long) As Long

第1套教程：VBA代码解决方案

第2套教程：VBA数据库解决方案

第3套教程：VBA数组与字典解决方案

第4套教程：VBA代码解决方案之视频（第一套的视频讲解）

第5套教程：VBA中类的解读和利用

第6套教程：VBA信息获取与处理

第7套教程：VBA之EXCEL应用

第8套教程：VBA之Word应用（2021年5月份推出）

上述教程的学习顺序：

① 7→1→3→2→6→5或者7→4→3→2→6→5。

② 7→8

• 如何学习VBA呢? 概括的说就是: 学习过程中要信、解、受、持，更要有回向的业力。无论您在学习的任何阶段，都要对照教程的知识点加持自己的实际工作，总会有丰厚的收获。
• 教程学习顺序是7 1(或4) 3 2 6 5。第7套《VBA之Excel应用》是对VBA基本的讲解；第1（或4）套《VBA代码解决方案》是《VBA之Excel应用》的提高；第3套《VBA数组与字典解决方案》是VBA应用的专题讲解，教程中讲解的专题是数组和字典，大家会在这套教程中看到非常全面的数组与字典的应用；第2套《VBA数据库解决方案》也是VBA应用的专题讲解，教程讲解的专题是数据库，大家会在这套教程中看到VBA连接Excel与accdb的全面应用；第6套《VBA信息获取与处理》是整个VBA应用的提高；第5套《VBA中类的解读及应用》是VBA的最高理论“类”“接口技术”的讲解。第8套教程《VBA之Word应用》需要在第7套教程之后学习。

分享成果，随喜正能量