64位Office中API函数声明语句学习第30讲

64位Office中API函数声明语句学习第30讲

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

Declare PtrSafe Function SetStretchBltMode Lib "gdi32" Alias "SetStretchBltMode" (ByVal hdc As LongPtr, ByVal nStretchMode As Long) As Long

Declare PtrSafe Function SetSystemPaletteUse Lib "gdi32" Alias "SetSystemPaletteUse" (ByVal hdc As LongPtr, ByVal wUsage As Long) As Long

Declare PtrSafe Function SetTextCharacterExtra Lib "gdi32" Alias "SetTextCharacterExtraA" (ByVal hdc As LongPtr, ByVal nCharExtra As Long) As Long

Declare PtrSafe Function SetTextColor Lib "gdi32" Alias "SetTextColor" (ByVal hdc As LongPtr, ByVal crColor As Long) As Long

Declare PtrSafe Function SetTextAlign Lib "gdi32" Alias "SetTextAlign" (ByVal hdc As LongPtr, ByVal wFlags As Long) As Long

Declare PtrSafe Function SetTextJustification Lib "gdi32" Alias "SetTextJustification" (ByVal hdc As LongPtr, ByVal nBreakExtra As Long, ByVal nBreakCount As Long) As Long

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

Declare PtrSafe Function GetProcAddress Lib "kernel32" Alias "GetProcAddress" (ByVal hModule As LongPtr, ByVal lpProcName As String) As LongPtr

Declare PtrSafe Function PlayMetaFileRecord Lib "gdi32" Alias "PlayMetaFileRecord" (ByVal hdc As LongPtr, lpHandletable As HANDLETABLE, lpMetaRecord As METARECORD, ByVal nHandles As Long) As Long

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

Declare PtrSafe Function CopyEnhMetaFile Lib "gdi32" Alias "CopyEnhMetaFileA" (ByVal hemfSrc As LongPtr, ByVal lpszFile As String) As LongPtr

Declare PtrSafe Function CreateEnhMetaFile Lib "gdi32" Alias "CreateEnhMetaFileA" (ByVal hdcRef As LongPtr, ByVal lpFileName As String, lpRect As RECT, ByVal lpDescription As String) As LongPtr

Declare PtrSafe Function DeleteEnhMetaFile Lib "gdi32" Alias "DeleteEnhMetaFile" (ByVal hemf As LongPtr) As Long

Declare PtrSafe Function EnumEnhMetaFile Lib "gdi32" Alias "EnumEnhMetaFile" (ByVal hdc As LongPtr, ByVal hemf As LongPtr, ByVal lpEnhMetaFunc As LongPtr, lpData As Any, lpRect As RECT) As Long

Declare PtrSafe Function GetEnhMetaFile Lib "gdi32" Alias "GetEnhMetaFileA" (ByVal lpszMetaFile As String) As LongPtr

Declare PtrSafe Function GetEnhMetaFileBits Lib "gdi32" Alias "GetEnhMetaFileBits" (ByVal hemf As LongPtr, ByVal cbBuffer As Long, lpbBuffer As Byte) As Long

Declare PtrSafe Function GetEnhMetaFileDescription Lib "gdi32" Alias "GetEnhMetaFileDescriptionA" (ByVal hemf As LongPtr, ByVal cchBuffer As Long, ByVal lpszDescription As String) As Long

Declare PtrSafe Function GetEnhMetaFileHeader Lib "gdi32" Alias "GetEnhMetaFileHeader" (ByVal hemf As LongPtr, ByVal cbBuffer As Long, lpemh As ENHMETAHEADER) As Long

Declare PtrSafe Function GetEnhMetaFilePaletteEntries Lib "gdi32" Alias "GetEnhMetaFilePaletteEntries" (ByVal hemf As LongPtr, ByVal cEntries As Long, lppe As PALETTEENTRY) As Long

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

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

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

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

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

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

第7套教程：VBA之EXCEL应用

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

上述教程的学习顺序：

713265或者743265。

78

l如何学习VBA呢? 概括的说就是: 学习过程中要信、解、受、持，更要有回向的业力。无论您在学习的任何阶段，都要对照教程的知识点加持自己的实际工作，总会有丰厚的收获。

l教程学习顺序是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套教程之后学习。

分享成果，随喜正能量