64位OfficeAPI声明语句第69讲（64位OfficeAPI声明语句第69讲）

64位OfficeAPI声明语句第69讲（64位OfficeAPI声明语句第69讲）dy As Longdx As LongwStructSize As Longx As Longy As Long

【分享成果，随喜正能量】凡夫畏果，菩萨畏因。凡夫只怕恶果，不知恶果起缘于恶因，平常任意胡为，以图一时快乐，不知乐是苦因；菩萨则不然，平常一举一动，谨身护持，戒慎于初，既无恶因，何来恶果？纵有恶果，都是久远前因，既属前因种下，则后果难逃，故感果之时，安然顺受，毫无畏缩，这就叫明因识果。

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

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

Type HELPWININFO

wStructSize As Long

x As Long

y As Long

dx As Long

dy As Long

wMax As Long

rgchMember As String * 2

End Type

' Commands to pass WinHelp()

Const HELP_CONTEXT = &H1 ' Display topic in ulTopic

Const HELP_QUIT = &H2 ' Terminate help

Const HELP_INDEX = &H3 ' Display index

Const HELP_CONTENTS = &H3&

Const HELP_HELPONHELP = &H4 ' Display help on using help

Const HELP_SETINDEX = &H5 ' Set current Index for multi index help

Const HELP_SETCONTENTS = &H5&

Const HELP_CONTEXTPOPUP = &H8&

Const HELP_FORCEFILE = &H9&

Const HELP_KEY = &H101 ' Display topic for keyword in offabData

Const HELP_COMMAND = &H102&

Const HELP_PARTIALKEY = &H105&

Const HELP_MULTIKEY = &H201&

Const HELP_SETWINPOS = &H203&

Declare PtrSafe Function WinHelp Lib "user32" Alias "WinHelpA" (ByVal hwnd As LongPtr ByVal lpHelpFile As String ByVal wCommand As Long ByVal dwData As LongPtr) As Long

' Parameter for SystemParametersInfo()

Const SPI_GETBEEP = 1

Const SPI_SETBEEP = 2

Const SPI_GETMOUSE = 3

Const SPI_SETMOUSE = 4

Const SPI_GETBORDER = 5

Const SPI_SETBORDER = 6

Const SPI_GETKEYBOARDSPEED = 10

Const SPI_SETKEYBOARDSPEED = 11

Const SPI_LANGDRIVER = 12

Const SPI_ICONHORIZONTALSPACING = 13

Const SPI_GETSCREENSAVETIMEOUT = 14

Const SPI_SETSCREENSAVETIMEOUT = 15

Const SPI_GETSCREENSAVEACTIVE = 16

Const SPI_SETSCREENSAVEACTIVE = 17

Const SPI_GETGRIDGRANULARITY = 18

Const SPI_SETGRIDGRANULARITY = 19

Const SPI_SETDESKWALLPAPER = 20

Const SPI_SETDESKPATTERN = 21

Const SPI_GETKEYBOARDDELAY = 22

Const SPI_SETKEYBOARDDELAY = 23

Const SPI_ICONVERTICALSPACING = 24

Const SPI_GETICONTITLEWRAP = 25

Const SPI_SETICONTITLEWRAP = 26

Const SPI_GETMENUDROPALIGNMENT = 27

Const SPI_SETMENUDROPALIGNMENT = 28

Const SPI_SETDOUBLECLKWIDTH = 29

Const SPI_SETDOUBLECLKHEIGHT = 30

Const SPI_GETICONTITLELOGFONT = 31

Const SPI_SETDOUBLECLICKTIME = 32

Const SPI_SETMOUSEBUTTONSWAP = 33

Const SPI_SETICONTITLELOGFONT = 34

Const SPI_GETFASTTASKSWITCH = 35

Const SPI_SETFASTTASKSWITCH = 36

Const SPI_SETDRAGFULLWINDOWS = 37

Const SPI_GETDRAGFULLWINDOWS = 38

Const SPI_GETNONCLIENTMETRICS = 41

Const SPI_SETNONCLIENTMETRICS = 42

Const SPI_GETMINIMIZEDMETRICS = 43

Const SPI_SETMINIMIZEDMETRICS = 44

Const SPI_GETICONMETRICS = 45

Const SPI_SETICONMETRICS = 46

Const SPI_SETWORKAREA = 47

Const SPI_GETWORKAREA = 48

Const SPI_SETPENWINDOWS = 49

Const SPI_GETFILTERKEYS = 50

Const SPI_SETFILTERKEYS = 51

Const SPI_GETTOGGLEKEYS = 52

Const SPI_SETTOGGLEKEYS = 53

Const SPI_GETMOUSEKEYS = 54

Const SPI_SETMOUSEKEYS = 55

Const SPI_GETSHOWSOUNDS = 56

Const SPI_SETSHOWSOUNDS = 57

Const SPI_GETSTICKYKEYS = 58

Const SPI_SETSTICKYKEYS = 59

Const SPI_GETACCESSTIMEOUT = 60

Const SPI_SETACCESSTIMEOUT = 61

Const SPI_GETSERIALKEYS = 62

Const SPI_SETSERIALKEYS = 63

Const SPI_GETSOUNDSENTRY = 64

Const SPI_SETSOUNDSENTRY = 65

Const SPI_GETHIGHCONTRAST = 66

Const SPI_SETHIGHCONTRAST = 67

Const SPI_GETKEYBOARDPREF = 68

Const SPI_SETKEYBOARDPREF = 69

Const SPI_GETSCREENREADER = 70

Const SPI_SETSCREENREADER = 71

Const SPI_GETANIMATION = 72

Const SPI_SETANIMATION = 73

Const SPI_GETFONTSMOOTHING = 74

Const SPI_SETFONTSMOOTHING = 75

Const SPI_SETDRAGWIDTH = 76

Const SPI_SETDRAGHEIGHT = 77

Const SPI_SETHANDHELD = 78

Const SPI_GETLOWPOWERTIMEOUT = 79

Const SPI_GETPOWEROFFTIMEOUT = 80

Const SPI_SETLOWPOWERTIMEOUT = 81

Const SPI_SETPOWEROFFTIMEOUT = 82

Const SPI_GETLOWPOWERACTIVE = 83

Const SPI_GETPOWEROFFACTIVE = 84

Const SPI_SETLOWPOWERACTIVE = 85

Const SPI_SETPOWEROFFACTIVE = 86

Const SPI_SETCURSORS = 87

Const SPI_SETICONS = 88

Const SPI_GETDEFAULTINPUTLANG = 89

Const SPI_SETDEFAULTINPUTLANG = 90

Const SPI_SETLANGTOGGLE = 91

Const SPI_GETWINDOWSEXTENSION = 92

Const SPI_SETMOUSETRAILS = 93

Const SPI_GETMOUSETRAILS = 94

Const SPI_SCREENSAVERRUNNING = 97

' SystemParametersInfo flags

Const SPIF_UPDATEINIFILE = &H1

Const SPIF_SENDWININICHANGE = &H2

Declare PtrSafe Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long ByVal uParam As Long ByRef lpvParam As Any ByVal fuWinIni As Long) As Long

我20多年的VBA实践经验，全部浓缩在下面的各个教程中：

希望有志于学习VBA的职场朋友选择。