六十四位Office中API函数声明语句第59讲

VBA语言専攻 2021-09-07

107

【分享成果，随喜正能量】人生有三种苦：你得不到，所以痛苦；得到了，却不过如此，也会觉得痛苦；轻易地放弃了，后来却发现，原来它在你生命中是那么重要，所以觉得痛苦。既然，得不到、得到了、放弃时都会痛苦，何不把人生的得失看轻一些，保持一颗平常心，痛苦不就会随之而减轻吗？以一颗平常心看待得失，人生完全可不苦。如果我们真正的尊重生活，那些浮云般的烦恼不过是命运的另一种活泼，活向水天辽阔处，笑看那些没有结果的纷争纠缠，这世间依旧是亭台楼榭，自然而然。

跟我学VBA，我这里专注VBA, 授人以渔。我98年开始，从源码接触VBA已经20余年了，随着年龄的增长，越来越觉得有必要把这项技能传递给需要这项技术的职场人员。希望和数据打交道的朋友，都来学习VBA,利用VBA,起码可以提高自己的工作效率，可以有时间多陪陪父母，多陪陪家人，何乐而不为呢？

这讲我们继续学习64位Office API声明语句学习之59讲，这些内容是MS的权威资料，看似枯燥，但对于想学习API函数的朋友是非常有用的。

Declare PtrSafe Function RedrawWindow Lib "user32" Alias "RedrawWindow" (ByVal hwnd As LongPtr, lprcUpdate As RECT, ByVal hrgnUpdate As LongPtr, ByVal fuRedraw As Long) As Long

Const RDW_INVALIDATE = &H1

Const RDW_INTERNALPAINT = &H2

Const RDW_ERASE = &H4

Const RDW_VALIDATE = &H8

Const RDW_NOINTERNALPAINT = &H10

Const RDW_NOERASE = &H20

Const RDW_NOCHILDREN = &H40

Const RDW_ALLCHILDREN = &H80

Const RDW_UPDATENOW = &H100

Const RDW_ERASENOW = &H200

Const RDW_FRAME = &H400

Const RDW_NOFRAME = &H800

Declare PtrSafe Function LockWindowUpdate Lib "user32" Alias "LockWindowUpdate" (ByVal hwndLock As LongPtr) As Long

Declare PtrSafe Function ScrollWindow Lib "user32" Alias "ScrollWindow" (ByVal hWnd As LongPtr, ByVal XAmount As Long, ByVal YAmount As Long, lpRect As RECT, lpClipRect As RECT) As Long

Declare PtrSafe Function ScrollDC Lib "user32" Alias "ScrollDC" (ByVal hdc As LongPtr, ByVal dx As Long, ByVal dy As Long, lprcScroll As RECT, lprcClip As RECT, ByVal hrgnUpdate As LongPtr, lprcUpdate As RECT) As Long

Declare PtrSafe Function ScrollWindowEx Lib "user32" Alias "ScrollWindowEx" (ByVal hwnd As LongPtr, ByVal dx As Long, ByVal dy As Long, lprcScroll As RECT, lprcClip As RECT, ByVal hrgnUpdate As LongPtr, lprcUpdate As RECT, ByVal fuScroll As Long) As Long

Const SW_SCROLLCHILDREN = &H1

Const SW_INVALIDATE = &H2

Const SW_ERASE = &H4

Declare PtrSafe Function SetScrollPos Lib "user32" Alias "SetScrollPos" (ByVal hwnd As LongPtr, ByVal nBar As Long, ByVal nPos As Long, ByVal bRedraw As Long) As Long

Declare PtrSafe Function GetScrollPos Lib "user32" Alias "GetScrollPos" (ByVal hwnd As LongPtr, ByVal nBar As Long) As Long

Declare PtrSafe Function SetScrollRange Lib "user32" Alias "SetScrollRange" (ByVal hwnd As LongPtr, ByVal nBar As Long, ByVal nMinPos As Long, ByVal nMaxPos As Long, ByVal bRedraw As Long) As Long

Declare PtrSafe Function GetScrollRange Lib "user32" Alias "GetScrollRange" (ByVal hwnd As LongPtr, ByVal nBar As Long, lpMinPos As Long, lpMaxPos As Long) As Long

Declare PtrSafe Function ShowScrollBar Lib "user32" Alias "ShowScrollBar" (ByVal hwnd As LongPtr, ByVal wBar As Long, ByVal bShow As Long) As Long

Declare PtrSafe Function EnableScrollBar Lib "user32" Alias "EnableScrollBar" (ByVal hwnd As LongPtr, ByVal wSBflags As Long, ByVal wArrows As Long) As Long

' EnableScrollBar() flags

Const ESB_ENABLE_BOTH = &H0

Const ESB_DISABLE_BOTH = &H3

Const ESB_DISABLE_LEFT = &H1

Const ESB_DISABLE_RIGHT = &H2

Const ESB_DISABLE_UP = &H1

Const ESB_DISABLE_DOWN = &H2

Const ESB_DISABLE_LTUP = ESB_DISABLE_LEFT

Const ESB_DISABLE_RTDN = ESB_DISABLE_RIGHT

Declare PtrSafe Function SetProp Lib "user32" Alias "SetPropA" (ByVal hwnd As LongPtr, ByVal lpString As String, ByVal hData As LongPtr) As Long

Declare PtrSafe Function GetProp Lib "user32" Alias "GetPropA" (ByVal hwnd As LongPtr, ByVal lpString As String) As LongPtr

Declare PtrSafe Function RemoveProp Lib "user32" Alias "RemovePropA" (ByVal hwnd As LongPtr, ByVal lpString As String) As LongPtr

Declare PtrSafe Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As LongPtr, ByVal lpString As String) As Long

Declare PtrSafe Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As LongPtr, ByVal lpString As String, ByVal cch As Long) As Long

Declare PtrSafe Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As LongPtr) As Long

Declare PtrSafe Function GetClientRect Lib "user32" Alias "GetClientRect" (ByVal hwnd As LongPtr, lpRect As RECT) As Long

Declare PtrSafe Function GetWindowRect Lib "user32" Alias "GetWindowRect" (ByVal hwnd As LongPtr, lpRect As RECT) As Long

Declare PtrSafe Function AdjustWindowRect Lib "user32" Alias "AdjustWindowRect" (lpRect As RECT, ByVal dwStyle As Long, ByVal bMenu As Long) As Long

Declare PtrSafe Function AdjustWindowRectEx Lib "user32" Alias "AdjustWindowRectEx" (lpRect As RECT, ByVal dsStyle As Long, ByVal bMenu As Long, ByVal dwEsStyle As Long) As Long

' MessageBox() Flags

Const MB_OK = &H0&

Const MB_OKCANCEL = &H1&

Const MB_ABORTRETRYIGNORE = &H2&

Const MB_YESNOCANCEL = &H3&

Const MB_YESNO = &H4&

Const MB_RETRYCANCEL = &H5&

Const MB_ICONHAND = &H10&

Const MB_ICONQUESTION = &H20&

Const MB_ICONEXCLAMATION = &H30&

Const MB_ICONASTERISK = &H40&

Const MB_ICONINFORMATION = MB_ICONASTERISK

Const MB_ICONSTOP = MB_ICONHAND

Const MB_DEFBUTTON1 = &H0&

Const MB_DEFBUTTON2 = &H100&

Const MB_DEFBUTTON3 = &H200&

Const MB_APPLMODAL = &H0&

Const MB_SYSTEMMODAL = &H1000&

Const MB_TASKMODAL = &H2000&

Const MB_NOFOCUS = &H8000&

Const MB_SETFOREGROUND = &H10000

Const MB_DEFAULT_DESKTOP_ONLY = &H20000

Const MB_TYPEMASK = &HF&

Const MB_ICONMASK = &HF0&

Const MB_DEFMASK = &HF00&

Const MB_MODEMASK = &H3000&

Const MB_MISCMASK = &HC000&

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

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

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

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

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

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

第7套教程：VBA之EXCEL应用

第8套教程：VBA之Word应用（最新推出）

上述教程的学习顺序：

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

② 7→8

文章转载自VBA语言専攻，如果涉嫌侵权，请发送邮件至：contact@modb.pro进行举报，并提供相关证据，一经查实，墨天轮将立刻删除相关内容。

六十四位Office中API函数声明语句第59讲

评论