【分享成果，随喜正能量】我们都无法选择回去的路程，泼出去的水无法收回，时光无法倒流。但是你可以清晰地面对已经出现的挑战。努力去调整，并相信自己可以成功。无论你身处绝境，还是罹患重疾，你对过去无能为力，但你的未来并不那么渺茫，只要你努力，坚信自己，人生往往真的就能柳暗花明。

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

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

' Message structure

' Window field offsets for GetWindowLong() and GetWindowWord()

Const GWL_WNDPROC = (-4)

Const GWL_HINSTANCE = (-6)

Const GWL_HWNDPARENT = (-8)

Const GWL_STYLE = (-16)

Const GWL_EXSTYLE = (-20)

Const GWL_USERDATA = (-21)

Const GWL_ID = (-12)

' Class field offsets for GetClassLong() and GetClassWord()

Const GCL_MENUNAME = (-8)

Const GCL_HBRBACKGROUND = (-10)

Const GCL_HCURSOR = (-12)

Const GCL_HICON = (-14)

Const GCL_HMODULE = (-16)

Const GCL_CBWNDEXTRA = (-18)

Const GCL_CBCLSEXTRA = (-20)

Const GCL_WNDPROC = (-24)

Const GCL_STYLE = (-26)

Const GCW_ATOM = (-32)

' Window Messages

Const WM_NULL = &H0

Const WM_CREATE = &H1

Const WM_DESTROY = &H2

Const WM_MOVE = &H3

Const WM_SIZE = &H5

Const WM_ACTIVATE = &H6

'

' WM_ACTIVATE state values

Const WA_INACTIVE = 0

Const WA_ACTIVE = 1

Const WA_CLICKACTIVE = 2

Const WM_SETFOCUS = &H7

Const WM_KILLFOCUS = &H8

Const WM_ENABLE = &HA

Const WM_SETREDRAW = &HB

Const WM_SETTEXT = &HC

Const WM_GETTEXT = &HD

Const WM_GETTEXTLENGTH = &HE

Const WM_PAINT = &HF

Const WM_CLOSE = &H10

Const WM_QUERYENDSESSION = &H11

Const WM_QUIT = &H12

Const WM_QUERYOPEN = &H13

Const WM_ERASEBKGND = &H14

Const WM_SYSCOLORCHANGE = &H15

Const WM_ENDSESSION = &H16

Const WM_SHOWWINDOW = &H18

Const WM_WININICHANGE = &H1A

Const WM_DEVMODECHANGE = &H1B

Const WM_ACTIVATEAPP = &H1C

Const WM_FONTCHANGE = &H1D

Const WM_TIMECHANGE = &H1E

Const WM_CANCELMODE = &H1F

Const WM_SETCURSOR = &H20

Const WM_MOUSEACTIVATE = &H21

Const WM_CHILDACTIVATE = &H22

Const WM_QUEUESYNC = &H23

Const WM_GETMINMAXINFO = &H24

Type MINMAXINFO

ptReserved As POINTAPI

ptMaxSize As POINTAPI

ptMaxPosition As POINTAPI

ptMinTrackSize As POINTAPI

ptMaxTrackSize As POINTAPI

End Type

Const WM_PAINTICON = &H26

Const WM_ICONERASEBKGND = &H27

Const WM_NEXTDLGCTL = &H28

Const WM_SPOOLERSTATUS = &H2A

Const WM_DRAWITEM = &H2B

Const WM_MEASUREITEM = &H2C

Const WM_DELETEITEM = &H2D

Const WM_VKEYTOITEM = &H2E

Const WM_CHARTOITEM = &H2F

Const WM_SETFONT = &H30

Const WM_GETFONT = &H31

Const WM_SETHOTKEY = &H32

Const WM_GETHOTKEY = &H33

Const WM_QUERYDRAGICON = &H37

Const WM_COMPAREITEM = &H39

Const WM_COMPACTING = &H41

Const WM_OTHERWINDOWCREATED = &H42 ' no longer suported

Const WM_OTHERWINDOWDESTROYED = &H43 ' no longer suported

Const WM_COMMNOTIFY = &H44 ' no longer suported

' notifications passed in low word of lParam on WM_COMMNOTIFY messages

Const CN_RECEIVE = &H1

Const CN_TRANSMIT = &H2

Const CN_EVENT = &H4

Const WM_WINDOWPOSCHANGING = &H46

Const WM_WINDOWPOSCHANGED = &H47

Const WM_POWER = &H48

'

' wParam for WM_POWER window message and DRV_POWER driver notification

Const PWR_OK = 1

Const PWR_FAIL = (-1)

Const PWR_SUSPENDREQUEST = 1

Const PWR_SUSPENDRESUME = 2

Const PWR_CRITICALRESUME = 3

Const WM_COPYDATA = &H4A

Const WM_CANCELJOURNAL = &H4B

Type COPYDATASTRUCT

dwData As LongPtr

cbData As Long

lpData As LongPtr

End Type

Const WM_NCCREATE = &H81

Const WM_NCDESTROY = &H82

Const WM_NCCALCSIZE = &H83

Const WM_NCHITTEST = &H84

Const WM_NCPAINT = &H85

Const WM_NCACTIVATE = &H86

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