第77集 API基础
367、 API概述
API（Application Programming Interface,应用程序编程接口）是一些预先定义的函数,目的是提供应用程序与开发人员基于某软件或硬件的以访问一组例程的能力，而又无需访问源码，或理解内部工作机制的细节。
368、 API函数有什么作用？
Windows的行为是通过API函数的调用完成的，通过它可以控制windows部件的外观和行为。
369、 VBA等编程工具和API有什么关系？
VBA等编程工具是封装好的API函数命令集合，VBA代码运行时会调用API函数来实现需要完成的功能。我们使用编程工具其实是间接调用API函数。而VBA能间接调用只是一部分API函数，要实现一些VBA无法实现的功能，我们需要在VBA中直接调用API，而不是使用API函数封装好的某个函数或命令。
370、 API函数在哪里？
API函数是储存在系统目录下的链接库文件中(dll格式文件)。
371、 API函数怎么在VBA里使用？
1、声明API函数和参数用到的常量。
2、直接象VBA函数一样使用API函数。
372、 API函数声明解释
Public Declare Function GetSystemMetrics Lib “user32” (ByVal nIndex As Long) As Long
Public 把API函数声明为公用
Declare Function 这就是声明API函数的专用结构,没有为什么.用API就得用Declare声明一下.
GetSystemMetrics 函数名子,用函数总得提供函数名子吧.
Lib “user32” 在系统链接库中api函数不是放在固定的一个文件中,而是放在很多文件中.说出
这个API函数在哪个dll文件里,也是很有必要.
(ByVal nIndex As Long) 括号内是参数,函数一般都要有参数.当然也有不带参数的
As Long 是函数就要返回值,这是返回值的数据类型
373、 为什么要声明常量,不知道API函数和常量对应关系
Api函数有参数,那这些参数值我们该怎么设置呢? 这些参数的对应的常量值都是预设好的,而且会对应多个常量.象我们学过的end属性.它的参数XlDirection 可为 XlDirection 常量之一。
’ xlDown
’ xlToRight
’ xlToLeft
’ xlUp
上面这四个常量分别代表着不同的方向,而且他们是预设置的,只要用xlup就表示向上.API中的参数也是这样的道理,每个参数对应很多常量,不同的常量实现不同的功能.和API函数必须声明才可以用一样.这些常量也需要声明才可以用.
至于API函数和常量的对应关系,这个可以在微软MSDN站点和很多网站或API帮助里都可以查找API函数的相应帮助中查找到每个函数对应的常量有哪些.
百度搜索window api
或https://msdn.microsoft.com/zh-cn/library/windows/desktop/ff818516(v=vs.85).aspx右上角搜索
或下载MSDN安装到电脑上，在本地搜索
374、 完成一个功能需要很多个API函数,怎么知道要用哪些函数?
经常看到实现一个功能,需要使用到很多API函数。这个和EXCEL中使用函数一样，也经常要使用多个EXCEL函数才能实现想要的效果，至于一个功能要用到哪些API函数，一是要了解你要实现的功能需要哪些步骤，可能每个步骤都需要一个单独的API函数来实现，二是经验,用多了就熟悉了。
375、 句柄是什么?
我们可能会用API操作EXCEL窗口,VBA窗体等部件,在操作之前我们得先取得被操作对象的操作权。让API分辩出我们要操作的对象,可以用这个对象的一个ID来表示。在WINDOWS中每一个窗体和部件都分配有一个数字ID，它就是句柄。
知道操作对象的句柄就可以利用句柄来定位这个被操作的对象。
有的函数是指定了被操作的对象，就是为这个操作对象服务的，所以它不需要句柄这个参数，而有的函数是为更多操作对象服务的，所以为了区分是哪个，就需要给这个函数提供句柄。
376、 API声明从哪复制
在VB6.0企业版里面，有一个API文本浏览器，文件-加载文本文件-WIN32API。
377、 句柄操作
1 获得句柄的方法
用spy 软件直接获取
2 用Findwindow函数获得顶级句柄
Public Declare Function FindWindow Lib “user32” Alias “FindWindowA” (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
函数名; Findwindow
来自: user32.dll链接库
别名: FindWindowA
参数:
lpClassName 窗口的类名
lpWindowName 窗体标题
FindWindow(“XLMAIN”, Application.Caption) 返回excel程序的句柄
XLMAIN，excel程序的类名
Application.Caption excel程序的标题
常用的类：
XLMAIN Excel程序类
ThunderXFrame 插入的窗体类
Excel7 工作簿窗口类
Commbobox 组合框类
Edit 编辑框类
Button 按钮类
如果不知道类名，可以用vbNullString来表示忽略此选项，但要知道准确的窗口标题
3 用FindWindowEx获得子窗口句柄
Declare Function FindWindowEx Lib “user32” Alias “FindWindowExA” (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
hWnd1父窗口句柄
hWnd2从这个子窗体后开始查找符合条件的
4 利用属性获得
Application.hwnd 可以获得当前excel程序的句柄
378、 API区分64位和32位的office版本
对于要在 64 位 Microsoft Office 版本中运行的代码，所有 Declare 语句都必须包括 PtrSafe 关键字，并且将 Declare 语句中所有需要存储 64 位数的数据类型（参数和返回值）更新为使用 LongLong（对于 64 位整数）或 LongPtr（对于指针和句柄）。
带有 PtrSafe 关键字的 Declare 语句为建议的语法。要使包括 PtrSafe 的 Declare 语句能同时在 32 位和 64 位平台上的 VBA7 开发环境中正确运行，必须先将 Declare 语句中所有需要存储 64 位数的数据类型（参数和返回值）更新为使用 LongLong（对于 64 位整数）或 LongPtr（对于指针和句柄）。为确保与 VBA 版本 6 和更早版本的向后兼容性，请使用下面的构造：
#If Vba7 Then
Declare PtrSafe Sub…
#Else
Declare Sub…
#EndIf
示例：
#If VBA7 Then
'定义窗体样式64位office中
Private Declare PtrSafe Function FindWindow Lib “user32” Alias _
“FindWindowA” (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare PtrSafe Function SetWindowLong Lib “user32” Alias _
“SetWindowLongA” (ByVal Hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
#Else
'定义窗体样式32位office中
Private Declare Function FindWindow Lib “user32” Alias _
“FindWindowA” (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowLong Lib “user32” Alias _
“SetWindowLongA” (ByVal Hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
#End If
379、 示例1：Excel换图标
Option Explicit
Public Declare PtrSafe Function ExtractIcon Lib “shell32.dll” Alias “ExtractIconA” (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long
Public Declare PtrSafe Function SendMessage Lib “user32” Alias “SendMessageA” (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long
Public Declare PtrSafe Function FindWindow Lib “user32” Alias “FindWindowA” (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Const WM_SETICON = &H80
Public Const WM_SETTEXT = &HC
Sub Excel换图标()
Dim IconPath As Variant
Dim hIcon As Long, sr As String, k
IconPath = “D:\Program Files\Tencent\QQ\Bin\QQ.exe” 'ThisWorkbook.Path & “\MSN.ICO”
hIcon = ExtractIcon(0, IconPath, 0)
'SendMessage FindWindow(“XLMAIN”, Application.Caption), WM_SETICON, 1, hIcon
'SendMessage Application.hWnd, WM_SETICON, 1, hIcon 'excel程序的hWnd属性可以直接返回excel程序的句柄
SendMessage FindWindow(vbNullString, “计算器”), WM_SETICON, 1, hIcon
MsgBox k
End Sub
Sub Excel除去图标()
Dim IconPath As Variant
Dim hIcon As Long
IconPath = ThisWorkbook.Path & “\MSN.ICO”
hIcon = 0 'ExtractIcon(0, IconPath, 0)
SendMessage FindWindow(“XLMAIN”, Application.Caption), WM_SETICON, 1, hIcon
End Sub
分析：
1 因为我们要操作excel程序窗口图标，所以第一步就必须知道excel程序的句柄。用findwindow函数可以获得指定顶级窗口的句柄。
Public Declare Function FindWindow Lib “user32” Alias “FindWindowA” (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
函数名; Findwindow
来自: user32.dll链接库
别名: FindWindowA
参数:
lpClassName 窗口的类名
lpWindowName 窗体标题
FindWindow("XLMAIN", Application.Caption) 返回excel程序的句柄XLMAIN，excel程序的类名Application.Caption excel程序的标题
常用的类
XLMAIN Excel程序类
ThunderDFrame 插入的窗体类
Excel7 工作簿窗口类
Commbobox 组合框类
Edit 编辑框类
Button 按钮类
另外也可以用spy++软件来获取某个窗口的类名，如果不知道类名，可以用vbNullString来表示忽略此选项，但要知道准确的窗口标题
2 取得了excel程序窗口的操作权，接下来还要取得图片的操作权，返回指定图标的句柄。ExtractIcon函数可以做到这一点，它可以从指定执行程序中提取图片，当然也可以直接从图片文件中提取。
Declare Function ExtractIcon Lib “shell32.dll” Alias “ExtractIconA” (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long
作用：判断一个可执行文件或DLL中是否有图标存在，并将其提取出来
返回值：Long，如成功，返回指向图标的句柄；如文件中不存在图标，则返回零。如果nIconIndex设为-1，就返回文件中的图标总数
参数:
hInst Long，当前应用程序的实例句柄。也可用GetWindowWord函数取得拥有一个窗体或控件的实例的句柄
lpszExeFileName String，在其中提取图标的那个程序的全名
nIconIndex Long，欲获取的图标的索引。如果为-1，表示取得文件中的图标总数
hIcon = ExtractIcon(0, IconPath, 0) 返回指定路径程序或图标文件的图片句柄,在具体使用时，只需要设置第二个参数，第1和第3个参数设置为0即可
3 Excel句柄有了，图标句柄有了，最后一步就是执行修改图标操作了，怎么操作？就是给excel窗口发布信息了。
Public Declare Function SendMessage Lib “user32” Alias “SendMessageA” (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long
作用: 调用窗口并给这个窗口发送消息和指令
返回值: True表示发送成功 , False表示发送失败
参数：
hwnd Long，用于接收消息的一个窗口的句柄
wMsg Long，消息的标识符
wParam Long，具体由消息决定
lParam Long，具体由消息决定
SendMessage FindWindow("XLMAIN", Application.Caption), WM_SETICON, 1, hIconFindWindow("XLMAIN", Application.Caption) excel程序窗口句柄WM_SETICON的标识符，告诉窗口要执行什么动作.SETICON能看出是设置图标
1是附加消息
hIcon 把图片句柄作为附加消息发送给窗口?
可以发送的window消息WM_CREATE = $0001;应用程序创建一个窗口WM_DESTROY = $0002;一个窗口被销毁WM_MOVE = $0003;移动一个窗口WM_SIZE = $0005;改变一个窗口的大小WM_ACTIVATE = $0006;一个窗口被激活或失去激活状态；WM_SETFOCUS = $0007;获得焦点后WM_KILLFOCUS = $0008;失去焦点WM_ENABLE = $000A;改变enable状态WM_SETREDRAW = $000B;设置窗口是否能重画WM_SETTEXT = $000C;应用程序发送此消息来设置一个窗口的文本WM_GETTEXT = $000D;应用程序发送此消息来复制对应窗口的文本到缓冲区WM_GETTEXTLENGTH = $000E;得到与一个窗口有关的文本的长度 (不包含空字符)WM_PAINT = $000F;要求一个窗口重画自己WM_CLOSE = $0010;当一个窗口或应用程序要关闭时发送一个信号WM_QUERYENDSESSION = $0011;当用户选择结束对话框或程序自己调用ExitWindows函数WM_QUIT = $0012;用来结束程序运行或当程序调用postquitmessage函数WM_QUERYOPEN = $0013;当用户窗口恢复以前的大小位置时，把此消息发送给某个图标WM_ERASEBKGND = $0014;当窗口背景必须被擦除时 (例在窗口改变大小时)WM_SYSCOLORCHANGE = $0015;当系统颜色改变时，发送此消息给所有顶级窗口WM_ENDSESSION = $0016;当系统进程发出WM_QUERYENDSESSION消息后，此消息发送给应用程序，通知它对话是否结束WM_SYSTEMERROR = $0017;WM_SHOWWINDOW = $0018;当隐藏或显示窗口是发送此消息给这个窗口WM_ACTIVATEAPP = $001C;发此消息给应用程序哪个窗口是激活的，哪个是非激活的；WM_FONTCHANGE = $001D;当系统的字体资源库变化时发送此消息给所有顶级窗口WM_TIMECHANGE = $001E;当系统的时间变化时发送此消息给所有顶级窗口WM_CANCELMODE = $001F;发送此消息来取消某种正在进行的摸态 (操作)WM_SETCURSOR = $0020;如果鼠标引起光标在某个窗口中移动且鼠标输入没有被捕获时，就发消息给某个窗口WM_MOUSEACTIVATE = $0021;当光标在某个非激活的窗口中而用户正按着鼠标的某个键发送此消息给当前窗口WM_CHILDACTIVATE = $0022;发送此消息给MDI子窗口当用户点击此窗口的标题栏，或当窗口被激活，移动，改变大小WM_QUEUESYNC = $0023;此消息由基于计算机的训练程序发送，通过WH_JOURNALPALYBACK的hook程序分离出用户输入消息WM_GETMINMAXINFO = $0024;此消息发送给窗口当它将要改变大小或位置；WM_PAINTICON = $0026;发送给最小化窗口当它图标将要被重画WM_ICONERASEBKGND = $0027;此消息发送给某个最小化窗口，仅当它在画图标前它的背景必须被重画WM_NEXTDLGCTL = $0028;发送此消息给一个对话框程序去更改焦点位置WM_SPOOLERSTATUS = $002A;每当打印管理列队增加或减少一条作业时发出此消息WM_DRAWITEM = $002B;当button，combobox，listbox，menu的可视外观改变时发送此消息给这些空件的所有者WM_MEASUREITEM = $002C;当button, combo box, list box, list view control, or menu item 被创建时发送此消息给控件的所有者WM_DELETEITEM = $002D;当the list box 或 combo box 被销毁 或 当 某些项被删除通过LB_DELETESTRING, LB_RESETCONTENT, CB_DELETESTRING, or CB_RESETCONTENT 消息WM_VKEYTOITEM = $002E;此消息有一个LBS_WANTKEYBOARDINPUT风格的发出给它的所有者来响应WM_KEYDOWN消息WM_CHARTOITEM = $002F;此消息由一个LBS_WANTKEYBOARDINPUT风格的列表框发送给他的所有者来响应WM_CHAR消息WM_SETFONT = $0030;当绘制文本时程序发送此消息得到控件要用的颜色WM_GETFONT = $0031;应用程序发送此消息得到当前控件绘制文本的字体WM_SETHOTKEY = $0032;应用程序发送此消息让一个窗口与一个热键相关连WM_GETHOTKEY = $0033;应用程序发送此消息来判断热键与某个窗口是否有关联WM_QUERYDRAGICON = $0037;此消息发送给最小化窗口，当此窗口将要被拖放而它的类中没有定义图标，应用程序能返回一个图标或光标的句柄，当用户拖放图标时系统显示这个图标或光标WM_COMPAREITEM = $0039;发送此消息来判定combobox或listbox新增加的项的相对位置WM_GETOBJECT = $003D;WM_COMPACTING = $0041;显示内存已经很少了WM_WINDOWPOSCHANGING = $0046;发送此消息给那个窗口的大小和位置将要被改变时，来调用setwindowpos函数或其它窗口管理函数WM_WINDOWPOSCHANGED = $0047;发送此消息给那个窗口的大小和位置已经被改变时，来调用setwindowpos函数或其它窗口管理函数WM_POWER = $0048;（适用于16位的windows）当系统将要进入暂停状态时发送此消息WM_COPYDATA = $004A;当一个应用程序传递数据给另一个应用程序时发送此消息WM_CANCELJOURNAL = $004B;当某个用户取消程序日志激活状态，提交此消息给程序WM_NOTIFY = $004E;当某个控件的某个事件已经发生或这个控件需要得到一些信息时，发送此消息给它的父窗口WM_INPUTLANGCHANGEREQUEST = $0050;当用户选择某种输入语言，或输入语言的热键改变WM_INPUTLANGCHANGE = $0051;当平台现场已经被改变后发送此消息给受影响的最顶级窗口WM_TCARD = $0052;当程序已经初始化windows帮助例程时发送此消息给应用程序WM_HELP = $0053;此消息显示用户按下了F1，如果某个菜单是激活的，就发送此消息个此窗口关联的菜单，否则就发送给有焦点的窗口，如果当前都没有焦点，就把此消息发送给当前激活的窗口WM_USERCHANGED = $0054;当用户已经登入或退出后发送此消息给所有的窗口，当用户登入或退出时系统更新用户的具体设置信息，在用户更新设置时系统马上发送此消息；WM_NOTIFYFORMAT = $0055;公用控件，自定义控件和他们的父窗口通过此消息来判断控件是使用ANSI还是UNICODE结构在WM_NOTIFY消息，使用此控件能使某个控件与它的父控件之间进行相互通信WM_CONTEXTMENU = $007B;当用户某个窗口中点击了一下右键就发送此消息给这个窗口WM_STYLECHANGING = $007C;当调用SETWINDOWLONG函数将要改变一个或多个 窗口的风格时发送此消息给那个窗口WM_STYLECHANGED = $007D;当调用SETWINDOWLONG函数一个或多个 窗口的风格后发送此消息给那个窗口WM_DISPLAYCHANGE = $007E;当显示器的分辨率改变后发送此消息给所有的窗口WM_GETICON = $007F;此消息发送给某个窗口来返回与某个窗口有关连的大图标或小图标的句柄；WM_SETICON = $0080;程序发送此消息让一个新的大图标或小图标与某个窗口关联；WM_NCCREATE = $0081;当某个窗口第一次被创建时，此消息在WM_CREATE消息发送前发送；WM_NCDESTROY = $0082;此消息通知某个窗口，非客户区正在销毁WM_NCCALCSIZE = $0083;当某个窗口的客户区域必须被核算时发送此消息WM_NCHITTEST = $0084;//移动鼠标，按住或释放鼠标时发生WM_NCPAINT = $0085;程序发送此消息给某个窗口当它（窗口）的框架必须被绘制时；WM_NCACTIVATE = $0086;此消息发送给某个窗口 仅当它的非客户区需要被改变来显示是激活还是非激活状态；WM_GETDLGCODE = $0087;发送此消息给某个与对话框程序关联的控件，widdows控制方位键和TAB键使输入进入此控件通过响应WM_GETDLGCODE消息，应用程序可以把他当成一个特殊的输入控件并能处理它WM_NCMOUSEMOVE = $00A0;当光标在一个窗口的非客户区内移动时发送此消息给这个窗口 //非客户区为：窗体的标题栏及窗的边框体WM_NCLBUTTONDOWN = $00A1;当光标在一个窗口的非客户区同时按下鼠标左键时提交此消息WM_NCLBUTTONUP = $00A2;当用户释放鼠标左键同时光标某个窗口在非客户区十发送此消息；WM_NCLBUTTONDBLCLK = $00A3;当用户双击鼠标左键同时光标某个窗口在非客户区十发送此消息WM_NCRBUTTONDOWN = $00A4;当用户按下鼠标右键同时光标又在窗口的非客户区时发送此消息WM_NCRBUTTONUP = $00A5;当用户释放鼠标右键同时光标又在窗口的非客户区时发送此消息WM_NCRBUTTONDBLCLK = $00A6;当用户双击鼠标右键同时光标某个窗口在非客户区十发送此消息WM_NCMBUTTONDOWN = $00A7;当用户按下鼠标中键同时光标又在窗口的非客户区时发送此消息WM_NCMBUTTONUP = $00A8;当用户释放鼠标中键同时光标又在窗口的非客户区时发送此消息WM_NCMBUTTONDBLCLK = $00A9;当用户双击鼠标中键同时光标又在窗口的非客户区时发送此消息WM_KEYFIRST = $0100;WM_KEYDOWN = $0100;//按下一个键WM_KEYUP = $0101;//释放一个键WM_CHAR = $0102;//按下某键，并已发出WM_KEYDOWN， WM_KEYUP消息WM_DEADCHAR = $0103;当用translatemessage函数翻译WM_KEYUP消息时发送此消息给拥有焦点的窗口WM_SYSKEYDOWN = $0104;当用户按住ALT键同时按下其它键时提交此消息给拥有焦点的窗口；WM_SYSKEYUP = $0105;当用户释放一个键同时ALT 键还按着时提交此消息给拥有焦点的窗口WM_SYSCHAR = $0106;当WM_SYSKEYDOWN消息被TRANSLATEMESSAGE函数翻译后提交此消息给拥有焦点的窗口WM_SYSDEADCHAR = $0107;当WM_SYSKEYDOWN消息被TRANSLATEMESSAGE函数翻译后发送此消息给拥有焦点的窗口WM_KEYLAST = $0108;WM_INITDIALOG = $0110;在一个对话框程序被显示前发送此消息给它，通常用此消息初始化控件和执行其它任务WM_COMMAND = $0111;当用户选择一条菜单命令项或当某个控件发送一条消息给它的父窗口，一个快捷键被翻译WM_SYSCOMMAND = $0112;当用户选择窗口菜单的一条命令或当用户选择最大化或最小化时那个窗口会收到此消息WM_TIMER = $0113; //发生了定时器事件WM_HSCROLL = $0114;当一个窗口标准水平滚动条产生一个滚动事件时发送此消息给那个窗口，也发送给拥有它的控件WM_VSCROLL = $0115;当一个窗口标准垂直滚动条产生一个滚动事件时发送此消息给那个窗口也，发送给拥有它的控件 WM_INITMENU = $0116;当一个菜单将要被激活时发送此消息，它发生在用户菜单条中的某项或按下某个菜单键，它允许程序在显示前更改菜单WM_INITMENUPOPUP = $0117;当一个下拉菜单或子菜单将要被激活时发送此消息，它允许程序在它显示前更改菜单，而不要改变全部WM_MENUSELECT = $011F;当用户选择一条菜单项时发送此消息给菜单的所有者 (一般是窗口)WM_MENUCHAR = $0120;当菜单已被激活用户按下了某个键（不同于加速键），发送此消息给菜单的所有者；WM_ENTERIDLE = $0121;当一个模态对话框或菜单进入空载状态时发送此消息给它的所有者，一个模态对话框或菜单进入空载状态就是在处理完一条或几条先前的消息后没有消息它的列队中等待WM_MENURBUTTONUP = $0122;WM_MENUDRAG = $0123;WM_MENUGETOBJECT = $0124;WM_UNINITMENUPOPUP = $0125;WM_MENUCOMMAND = $0126;WM_CHANGEUISTATE = $0127;WM_UPDATEUISTATE = $0128;WM_QUERYUISTATE = $0129;WM_CTLCOLORMSGBOX = $0132;在windows绘制消息框前发送此消息给消息框的所有者窗口，通过响应这条消息，所有者窗口可以通过使用给定的相关显示设备的句柄来设置消息框的文本和背景颜色WM_CTLCOLOREDIT = $0133;当一个编辑型控件将要被绘制时发送此消息给它的父窗口；通过响应这条消息，所有者窗口可以通过使用给定的相关显示设备的句柄来设置编辑框的文本和背景颜色WM_CTLCOLORLISTBOX = $0134;当一个列表框控件将要被绘制前发送此消息给它的父窗口；通过响应这条消息，所有者窗口可以通过使用给定的相关显示设备的句柄来设置列表框的文本和背景颜色WM_CTLCOLORBTN = $0135;当一个按钮控件将要被绘制时发送此消息给它的父窗口；通过响应这条消息，所有者窗口可以通过使用给定的相关显示设备的句柄来设置按纽的文本和背景颜色WM_CTLCOLORDLG = $0136;当一个对话框控件将要被绘制前发送此消息给它的父窗口；通过响应这条消息，所有者窗口可以通过使用给定的相关显示设备的句柄来设置对话框的文本背景颜色WM_CTLCOLORSCROLLBAR= $0137;当一个滚动条控件将要被绘制时发送此消息给它的父窗口；通过响应这条消息，所有者窗口可以通过使用给定的相关显示设备的句柄来设置滚动条的背景颜色WM_CTLCOLORSTATIC = $0138;当一个静态控件将要被绘制时发送此消息给它的父窗口；通过响应这条消息，所有者窗口可以通过使用给定的相关显示设备的句柄来设置静态控件的文本和背景颜色WM_MOUSEFIRST = $0200;WM_MOUSEMOVE = $0200;// 移动鼠标WM_LBUTTONDOWN = $0201;//按下鼠标左键WM_LBUTTONUP = $0202;//释放鼠标左键WM_LBUTTONDBLCLK = $0203;//双击鼠标左键WM_RBUTTONDOWN = $0204;//按下鼠标右键WM_RBUTTONUP = $0205;//释放鼠标右键WM_RBUTTONDBLCLK = $0206;//双击鼠标右键WM_MBUTTONDOWN = $0207;//按下鼠标中键WM_MBUTTONUP = $0208;//释放鼠标中键WM_MBUTTONDBLCLK = $0209;//双击鼠标中键WM_MOUSEWHEEL = $020A;当鼠标轮子转动时发送此消息个当前有焦点的控件WM_MOUSELAST = $020A;WM_PARENTNOTIFY = $0210;当MDI子窗口被创建或被销毁，或用户按了一下鼠标键而光标在子窗口上时发送此消息给它的父窗口WM_ENTERMENULOOP = $0211;发送此消息通知应用程序的主窗口that已经进入了菜单循环模式WM_EXITMENULOOP = $0212;发送此消息通知应用程序的主窗口that已退出了菜单循环模式WM_NEXTMENU = $0213;WM_SIZING = 532;当用户正在调整窗口大小时发送此消息给窗口；通过此消息应用程序可以监视窗口大小和位置也可以修改他们WM_CAPTURECHANGED = 533;发送此消息 给窗口当它失去捕获的鼠标时；WM_MOVING = 534;当用户在移动窗口时发送此消息，通过此消息应用程序可以监视窗口大小和位置也可以修改他们；WM_POWERBROADCAST = 536;此消息发送给应用程序来通知它有关电源管理事件；WM_DEVICECHANGE = 537;当设备的硬件配置改变时发送此消息给应用程序或设备驱动程序WM_IME_STARTCOMPOSITION = $010D;WM_IME_ENDCOMPOSITION = $010E;WM_IME_COMPOSITION = $010F;WM_IME_KEYLAST = $010F;WM_IME_SETCONTEXT = $0281;WM_IME_NOTIFY = $0282;WM_IME_CONTROL = $0283;WM_IME_COMPOSITIONFULL = $0284;WM_IME_SELECT = $0285;WM_IME_CHAR = $0286;WM_IME_REQUEST = $0288;WM_IME_KEYDOWN = $0290;WM_IME_KEYUP = $0291;WM_MDICREATE = $0220;应用程序发送此消息给多文档的客户窗口来创建一个MDI 子窗口WM_MDIDESTROY = $0221;应用程序发送此消息给多文档的客户窗口来关闭一个MDI 子窗口WM_MDIACTIVATE = $0222;应用程序发送此消息给多文档的客户窗口通知客户窗口激活另一个MDI子窗口，当客户窗口收到此消息后，它发出WM_MDIACTIVE消息给MDI子窗口（未激活）激活它；WM_MDIRESTORE = $0223;程序 发送此消息给MDI客户窗口让子窗口从最大最小化恢复到原来大小WM_MDINEXT = $0224;程序 发送此消息给MDI客户窗口激活下一个或前一个窗口WM_MDIMAXIMIZE = $0225;程序发送此消息给MDI客户窗口来最大化一个MDI子窗口；WM_MDITILE = $0226;程序 发送此消息给MDI客户窗口以平铺方式重新排列所有MDI子窗口WM_MDICASCADE = $0227;程序 发送此消息给MDI客户窗口以层叠方式重新排列所有MDI子窗口WM_MDIICONARRANGE = $0228;程序 发送此消息给MDI客户窗口重新排列所有最小化的MDI子窗口WM_MDIGETACTIVE = $0229;程序 发送此消息给MDI客户窗口来找到激活的子窗口的句柄WM_MDISETMENU = $0230;程序 发送此消息给MDI客户窗口用MDI菜单代替子窗口的菜单WM_ENTERSIZEMOVE = $0231;WM_EXITSIZEMOVE = $0232;WM_DROPFILES = $0233;WM_MDIREFRESHMENU = $0234;WM_MOUSEHOVER = $02A1;WM_MOUSELEAVE = $02A3;WM_CUT = $0300;程序发送此消息给一个编辑框或combobox来删除当前选择的文本WM_COPY = $0301;程序发送此消息给一个编辑框或combobox来复制当前选择的文本到剪贴板WM_PASTE = $0302;程序发送此消息给editcontrol或combobox从剪贴板中得到数据WM_CLEAR = $0303;程序发送此消息给editcontrol或combobox清除当前选择的内容；WM_UNDO = $0304;程序发送此消息给editcontrol或combobox撤消最后一次操作WM_RENDERFORMAT = $0305；WM_RENDERALLFORMATS = $0306;WM_DESTROYCLIPBOARD = $0307;当调用ENPTYCLIPBOARD函数时 发送此消息给剪贴板的所有者WM_DRAWCLIPBOARD = $0308;当剪贴板的内容变化时发送此消息给剪贴板观察链的第一个窗口；它允许用剪贴板观察窗口来显示剪贴板的新内容；WM_PAINTCLIPBOARD = $0309;当剪贴板包含CF_OWNERDIPLAY格式的数据并且剪贴板观察窗口的客户区需要重画；WM_VSCROLLCLIPBOARD = $030A;WM_SIZECLIPBOARD = $030B;当剪贴板包含CF_OWNERDIPLAY格式的数据并且剪贴板观察窗口的客户区域的大小已经改变是此消息通过剪贴板观察窗口发送给剪贴板的所有者；WM_ASKCBFORMATNAME = $030C;通过剪贴板观察窗口发送此消息给剪贴板的所有者来请求一个CF_OWNERDISPLAY格式的剪贴板的名字WM_CHANGECBCHAIN = $030D;当一个窗口从剪贴板观察链中移去时发送此消息给剪贴板观察链的第一个窗口；WM_HSCROLLCLIPBOARD = $030E;此消息通过一个剪贴板观察窗口发送给剪贴板的所有者 ；它发生在当剪贴板包含CFOWNERDISPALY格式的数据并且有个事件在剪贴板观察窗的水平滚动条上；所有者应滚动剪贴板图象并更新滚动条的值；WM_QUERYNEWPALETTE = $030F;此消息发送给将要收到焦点的窗口，此消息能使窗口在收到焦点时同时有机会实现他的逻辑调色板WM_PALETTEISCHANGING= $0310;当一个应用程序正要实现它的逻辑调色板时发此消息通知所有的应用程序WM_PALETTECHANGED = $0311;此消息在一个拥有焦点的窗口实现它的逻辑调色板后发送此消息给所有顶级并重叠的窗口，以此来改变系统调色板WM_HOTKEY = $0312;当用户按下由REGISTERHOTKEY函数注册的热键时提交此消息WM_PRINT = 791;应用程序发送此消息仅当WINDOWS或其它应用程序发出一个请求要求绘制一个应用程序的一部分；WM_PRINTCLIENT = 792;WM_HANDHELDFIRST = 856;WM_HANDHELDLAST = 863;WM_PENWINFIRST = $0380;WM_PENWINLAST = $038F;WM_COALESCE_FIRST = $0390;WM_COALESCE_LAST = $039F;WM_DDE_FIRST = $03E0;WM_DDE_INITIATE = WM_DDE_FIRST + 0;一个DDE客户程序提交此消息开始一个与服务器程序的会话来响应那个指定的程序和主题名；WM_DDE_TERMINATE = WM_DDE_FIRST + 1;一个DDE应用程序（无论是客户还是服务器）提交此消息来终止一个会话；WM_DDE_ADVISE = WM_DDE_FIRST + 2;一个DDE客户程序提交此消息给一个DDE服务程序来请求服务器每当数据项改变时更新它WM_DDE_UNADVISE = WM_DDE_FIRST + 3;一个DDE客户程序通过此消息通知一个DDE服务程序不更新指定的项或一个特殊的剪贴板格式的项WM_DDE_ACK = WM_DDE_FIRST + 4;此消息通知一个DDE（动态数据交换）程序已收到并正在处理WM_DDE_POKE, WM_DDE_EXECUTE, WM_DDE_DATA, WM_DDE_ADVISE, WM_DDE_UNADVISE, or WM_DDE_INITIAT消息WM_DDE_DATA = WM_DDE_FIRST + 5;一个DDE服务程序提交此消息给DDE客户程序来传递个一数据项给客户或通知客户的一条可用数据项WM_DDE_REQUEST = WM_DDE_FIRST + 6;一个DDE客户程序提交此消息给一个DDE服务程序来请求一个数据项的值；WM_DDE_POKE = WM_DDE_FIRST + 7;一个DDE客户程序提交此消息给一个DDE服务程序，客户使用此消息来请求服务器接收一个未经同意的数据项；服务器通过答复WM_DDE_ACK消息提示是否它接收这个数据项；WM_DDE_EXECUTE = WM_DDE_FIRST + 8;一个DDE客户程序提交此消息给一个DDE服务程序来发送一个字符串给服务器让它象串行命令一样被处理，服务器通过提交WM_DDE_ACK消息来作回应；WM_DDE_LAST = WM_DDE_FIRST + 8;WM_APP = $8000;WM_USER = $0400;
380、 示例2：计算器自动输入计算
Option Explicit
Declare PtrSafe Function FindWindowEx Lib “user32” Alias “FindWindowExA” (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Public Const BM_CLICK = &HF5
Private Sub Command2_Click() '自动在计算器中计算结果
Dim t As Long, b As String, c As String, d As String, e As String
t = FindWindow(vbNullString, “计算器”)
b = FindWindowEx(t, 0, vbNullString, “1”)
c = FindWindowEx(t, 0, vbNullString, “+”)
d = FindWindowEx(t, 0, vbNullString, “2”)
e = FindWindowEx(t, 0, vbNullString, “=”)
SendMessage b, BM_CLICK, 0, 0
SendMessage c, BM_CLICK, 0, 0
SendMessage d, BM_CLICK, 0, 0
SendMessage e, BM_CLICK, 0, 0
End Sub
381、 示例3：取得屏幕分辨率
Option Explicit
Public Declare PtrSafe Function GetSystemMetrics Lib “user32” (ByVal nIndex As Long) As Long
Public Const SM_CXSCREEN = 0 '屏幕宽度
Public Const SM_CYSCREEN = 1 '屏幕高度
Sub 取分辨率()
Dim x As Long, y As Long
x = GetSystemMetrics(SM_CXSCREEN)
y = GetSystemMetrics(SM_CYSCREEN)
Debug.Print “您的屏幕分辨率为：” & x & “*” & y
End Sub
参数表
参数 类型及说明
nIndex Long 常数，指定欲获取的信息；如下表所示
nIndex常数设置
382、 用户自定义类型
1 什么是用户自定义类型
'用于定义包含一个或多个元素的用户自定义的数据类型
2 自定义类型的结构
Type 自定类型名称的名称
变量1 As 数据类型1
变量2 As 数据类型2
变量3 As 数据类型3
…
End Type
例:定义一个短形的数据类型
Type 矩形
长 As Integer
宽 As Integer
面积 As Long
名称 As String
End Type
3 自定义数据类型的使用
自定义数据类型定义后,就可以直接在声明变量时声明该类型，并且在输入该"变量.“后可以列出所有自定义类型中的变量名称
Sub dd()
Dim j As 矩形 '声明变量类型为“短形类型”
Dim j2 As 矩形
j.长 = 3 ‘给变量赋值
j.宽 = 2
j.名称 = "矩形1’"
j.面积 = j.长 * j.宽 '利用变量值进行计算
Debug.Print j.面积 '显示计算的结果
j2 = j '自定义变量类型可以打包传递，本句把j1的所有变量的值传递给相同类型的j2
MsgBox j2.面积 '显示j2的面积
End Sub
383、 网络资料
API常量申明的问题，谢谢！ https://bbs.csdn.net/topics/390135564
在VBA中使用Windows API https://www.cnblogs.com/isunlitao/p/6189067.html
VBA中API函数集锦 http://www.360doc.com/content/11/0320/14/251367_102870100.shtml
[VBA教程] 含API引用的VBA作品兼容64位系统的方法
https://blog.csdn.net/zengcong2013/article/details/38825819
