VB资源宝典(API函数大全)
VBAPI函数摸索
VBAPI函数摸索-72:打开屏幕保护程序Const WM_SYSCOMMAND = &H112&Const WM_SCREENSAVE = &HF140&Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd _As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long'打开屏幕保护程序Private Sub LockComputer()Dim result As Longresult = SendMessage(Form1.hWnd, WM_SYSCOMMAND, WM_SCREENSAVE, 0&)End Sub-71:设置指定矩形的位置SetRectVB声明Declare Function SetRect Lib "user32" Alias "SetRect" (lpRect As RECT, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long说明设置指定矩形的内容返回值Long，非零表示成功，零表示失败。
会设置GetLastError参数表参数类型及说明lpRect RECT，欲设置的矩形X1 Long，左侧区域（Left）的值Y1 Long，顶部区域（Top）的值X2 Long，右侧区域（Right）的值Y2 Long，底部区域（Bottom）的值例子：Private Declare Function SetRect Lib "user32" (lpRect As RECT, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As LongPrivate Declare Function ClipCursor Lib "user32" (lpRect As Any) As LongPrivate Type RECTLeft As LongTop As LongRight As LongBottom As LongEnd TypeDim r As RECTPrivate Sub main()SetRect r, 0, 0, 344, 344ClipCursor rEnd Sub-70:改变指定窗口（包括文本框等）位置和大小改变指定窗口的位置和大小。
VBAPI函数摸索
VBAPI函数摸索-72:打开屏幕保护程序Const WM_SYSCOMMAND = &H112&Const WM_SCREENSAVE = &HF140&Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd _As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long'打开屏幕保护程序Private Sub LockComputer()Dim result As Longresult = SendMessage(Form1.hWnd, WM_SYSCOMMAND, WM_SCREENSAVE, 0&)End Sub-71:设置指定矩形的位置SetRectVB声明Declare Function SetRect Lib "user32" Alias "SetRect" (lpRect As RECT, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long说明设置指定矩形的内容返回值Long，⾮零表⽰成功，零表⽰失败。
会设置GetLastError参数表参数类型及说明lpRect RECT，欲设置的矩形X1 Long，左侧区域（Left）的值Y1 Long，顶部区域（Top）的值X2 Long，右侧区域（Right）的值Y2 Long，底部区域（Bottom）的值例⼦：Private Declare Function SetRect Lib "user32" (lpRect As RECT, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As LongPrivate Declare Function ClipCursor Lib "user32" (lpRect As Any) As LongPrivate Type RECTLeft As LongTop As LongRight As LongBottom As LongEnd TypeDim r As RECTPrivate Sub main()SetRect r, 0, 0, 344, 344ClipCursor rEnd Sub-70:改变指定窗⼝（包括⽂本框等）位置和⼤⼩改变指定窗⼝的位置和⼤⼩。
VB函数大全
VB函数大全Calendar 常数可在代码中的任何地方用下列常数代替实际值：常数值描述vbCalGreg 0 指出使用的是阳历。
vbCalHijri 1 指出使用的是伊斯兰历法。
--------------------------------------------------------------------------------Color 常数可在代码中的任何地方用下列常数代替实际值：常数值描述vbBlack 0x0 黑色vbRed 0xFF 红色vbGreen 0xFF00 绿色vbYellow 0xFFFF 黄色vbBlue 0xFF0000 蓝色vbMagenta 0xFF00FF 紫红色vbCyan 0xFFFF00 青色vbWhite 0xFFFFFF 白色--------------------------------------------------------------------------------Comparison常数下列常数由 Visual Basic for Applications 中的类型库定义，可用来在代码中的任何地方代替实际值：常数值描述VbUseCompareOption -1 使用Option Compare语句的设置进行比较。
VbBinaryCompare 0 进行二进制的比较。
VbTextCompare 1 进行文字的比较。
vbDatabaseCompare 2 用于 Microsoft Access(仅限于Windows)，进行以数据库所含信息为基础的比较。
--------------------------------------------------------------------------------Compiler 常数Visual Basic for Applications 定义了一些不能与 #If...Then...#Else 指令一起使用的常数。
VB与API
功
能
处理操作系统功能的所有核心工作. Windows 管理,菜单,光标,定时器和通信等. 管理系统支持的所有图形设备的函数. MIC 命令字符串和 MIC 命令消息接口.
从Visual Basic应用程序中访问Windows API函数之前,必须在Visual Basic应用程序中用Declare语句将API函数声明为外部过程.
Windows的视频播放器提供了与硬件无关,纯软件压缩与解压缩的 方法让Windows的用户能在不增加硬件设备的条件下处理视频文件.
MMControl控件 控件
工具箱内 MCI 控件 图标形状
画在窗体 上的外观
MMControl控件本质上是一个用户和Windows多媒体系统之间 的接口.通过这个接口用户无须介入实际的设备就可操纵所有 的多媒体设备. 多媒体控件上的9个按钮都响应Click事件,Completed事件, Done事件,GotFocus事件,LostFocБайду номын сангаасs 事件和StatusUpdate事 件等.
多媒体的音频格式 CD 音频 WAV 音频 用 16 位,44.1Hz 的采样频率来记录和播放声音. 一种连续变化的模拟化声音波形信息.可对它进 行读,写,修改和检索操作. 是一种用于计算机,MIDI 键盘和合成器之间的通 MIDI 信协议,通过声卡可播放 MIDI 音乐.MIDI 的优 点在于它节省存储空间.
Declare语句 将API函数声明为外部过程
Visual Basic应用程序
中访问查看API函数 在VB中访问查看 中访问查看 函数
文件/加载文本文件
API文本浏览 器应用程序
选定API函数复制到剪贴板
1.选择信息类型
2.选定
VB常用函数(很全)
Abs 函数返回数的绝对值。
And 运算符执行两个表达式的逻辑连接。
Array 函数返回含一数组的变体。
Asc 函数返回字符串首字母的ANSI 字符代码。
赋值运算符(=) 给变量或属性赋值。
Atn 函数返回数的反正切值。
调用语句将控制移交Sub 或Function 过程。
CBool 函数返回已被转换为Boolean 子类型的变体的表达式。
CByte 函数返回已被转换为字节子类型的变体的表达式。
CCur 函数返回已被转换为货币子类型的变体的表达式。
CDate 函数返回已被转换为日期子类型的变体的表达式。
CDbl 函数返回已被转换为双精度子类型的变体的表达式。
Chr 函数返回指定ANSI 字符码的字符。
CInt 函数返回已被转换为整数子类型的变体的表达式。
Class 对象提供对已创建的类的事件的访问。
Class 语句声明类名Clear 方法清除Err 对象的所有属性设置。
CLng 函数返回已被转换为Long 子类型的变体的表达式。
颜色常数颜色常数列表。
比较常数用于比较运算的常数列表。
连接运算符(&) 强制两个表达式的字符串连接。
Const 语句声明用于字母值的常数。
Cos 函数返回角度的余弦值。
CreateObject 函数创建并返回对“自动”对象的引用。
CSng 函数返回已被转换为单精度子类型的变体的表达式。
CStr 函数返回已被转换为字符串子类型的变体的表达式。
日期和时间常数在日期和时间运算中用来定义星期几和其他常数的常数列表。
日期格式常数用于日期和时间格式的常数列表。
Date 函数返回当前系统日期。
DateAdd 函数返回加上了指定的时间间隔的日期。
DateDiff 函数返回两个日期之间的间隔。
DatePart 函数返回给定日期的指定部分。
DateSerial 函数返回指定年月日的日期子类型的变体。
DateValue 函数返回日期子类型的变体。
Day 函数返回日期，取值范围为1 至31。
API函数
排列一个父窗口的最小化子窗口（在 vb 里使用：用于在桌面排列图标，用 GetDesktopWindow 函数获得 桌面窗口的一个句柄）
返回值
Long，图标行的高度；如失败，则返回零。会设置 GetLastError 参数表
参数
类型及说明
hwnd 注解
Long，父窗口的句柄
也可将该函数用于包含了图标化子窗口的的定制控件
AttachThreadInput
VB 声明
Declare Function AttachThreadInput Lib "user32" Alias "AttachThreadInput" (ByVal idAttach As Long, ByVal idAttachTo As Long, ByVal fAttach As Long) As Long 说明
CascadeWindows,CascadeWindowsBynum
VB 声明
Declare Function CascadeWindows% Lib "user32" (ByVal hwndParent As Long, ByVal wHow As Long, lpRect As RECT, ByVal cKids As Long, lpKids As Long) Declare Function CascadeWindowsBynum% Lib "user32" Alias "CascadeWindows" (ByVal hwndParent As Long, ByVal wHow As Long, ByVal lpRect As Long, ByVal cKids As Long, ByVal lpKids As Long) 说明
VB基本函数大全
VB基本函数大全Abs 函数：返回数的绝对值。
And 运算符：执行两个表达式的逻辑连接。
Array 函数：返回含一数组的变体。
Asc 函数：返回字符串首字母的 ANSI 字符代码。
赋值运算符 (=)：给变量或属性赋值。
Atn 函数：返回数的反正切值。
调用语句将控制移交 Sub 或 Function 过程。
CBool 函数：返回已被转换为 Boolean 子类型的变体的表达式。
CByte 函数：返回已被转换为字节子类型的变体的表达式。
CCur 函数：返回已被转换为货币子类型的变体的表达式。
CDate 函数：返回已被转换为日期子类型的变体的表达式。
CDbl 函数：返回已被转换为双精度子类型的变体的表达式。
Chr 函数：返回指定 ANSI 字符码的字符。
CInt 函数：返回已被转换为整数子类型的变体的表达式。
Class 对象：提供对已创建的类的事件的访问。
Class 语句声明类名Clear 方法：清除 Err 对象的所有属性设置。
CLng 函数：返回已被转换为 Long 子类型的变体的表达式。
颜色常数颜色常数列表。
比较常数用于比较运算的常数列表。
连接运算符 (&) ：强制两个表达式的字符串连接。
Const 语句：声明用于字母值的常数。
Cos 函数：返回角度的余弦值。
CreateObject 函数：创建并返回对“自动”对象的引用。
CSng 函数：返回已被转换为单精度子类型的变体的表达式。
CStr 函数：返回已被转换为字符串子类型的变体的表达式。
日期和时间常数：在日期和时间运算中用来定义星期几和其他常数的常数列表。
日期格式常数用于日期和时间格式的常数列表。
Date 函数：返回当前系统日期。
DateAdd 函数：返回加上了指定的时间间隔的日期。
DateDiff 函数：返回两个日期之间的间隔。
DatePart 函数：返回给定日期的指定部分。
DateSerial 函数：返回指定年月日的日期子类型的变体。
VBA调用Windows API函数的常用示例
VBA调用Windows API函数的常用示例在VBA编程中，调用Windows API函数可以扩展其功能，使得我们能够处理更复杂的任务和操作。
本文将介绍一些常用的VBA调用Windows API函数的示例，帮助您更好地理解和应用这一功能。
1. 调用Message Box函数Message Box函数可以在程序中显示一个消息框，用于向用户显示信息或获取用户的输入。
通过调用Windows API函数可以实现更多定制化的消息框。
示例代码：```Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hWnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal uType As Long) As LongSub ShowMessageBox()Dim result As Longresult = MessageBox(0, "示例消息框内容", "示例消息框标题", 1)MsgBox "用户点击了按钮" & resultEnd Sub```的函数，该函数来自于user32.dll库。
然后，在Sub过程中调用了MessageBox函数，传入消息框的内容、标题和按钮样式，最后将用户的点击结果显示在一个消息框中。
2. 调用ShellExecute函数ShellExecute函数可以在程序中执行其他文件或打开网页链接。
通过调用Windows API函数，我们可以实现在VBA中自动打开文件或链接的功能。
示例代码：```Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongSub OpenFile()ShellExecute 0, "Open", "C:\example.txt", vbNullString, vbNullString, 1End Sub```的函数，该函数来自于shell32.dll库。
VB函数大全
Calendar 常数可在代码中的任何地方用下列常数代替实际值：常数值描述vbCalGreg 0 指出使用的是阳历。
vbCalHijri 1 指出使用的是伊斯兰历法。
--------------------------------------------------------------------------------Color 常数可在代码中的任何地方用下列常数代替实际值：常数值描述vbBlack 0x0 黑色vbRed 0xFF 红色vbGreen 0xFF00 绿色vbYellow 0xFFFF 黄色vbBlue 0xFF0000 蓝色vbMagenta 0xFF00FF 紫红色vbCyan 0xFFFF00 青色vbWhite 0xFFFFFF 白色--------------------------------------------------------------------------------Comparison常数下列常数由 Visual Basic for Applications 中的类型库定义，可用来在代码中的任何地方代替实际值：常数值描述VbUseCompareOption -1 使用Option Compare语句的设置进行比较。
VbBinaryCompare 0 进行二进制的比较。
VbTextCompare 1 进行文字的比较。
vbDatabaseCompare 2 用于 Microsoft Access(仅限于Windows)，进行以数据库所含信息为基础的比较。
--------------------------------------------------------------------------------Compiler 常数Visual Basic for Applications 定义了一些不能与 #If...Then...#Else 指令一起使用的常数。
VB函数大全基本函数大全
语句
声明形成Function过程体的名称、参数和代码
GetObject
函数
从文件返回对“自动”对象的访问
GetRef
函数
返回对可以绑定到事件的过程的引用
Global
属性
设置或返回Boolean值
Hex
函数
返回表示数的十六进制值的字符串
HelpContext
属性
设置或返回帮助文件中某主题的上下文ID
Err
对象
含有关于运行时错误的信息
Eval
函数
计算并返回表达式的值
Execute
方法
根据指定的字符串，执行正则表达式的搜索
Execute
语句
执行单个或更多的指定语句
Exit
语句
退出Do...Loop、For...Next、Function或Sub代码块
Exp
函数
返回e（自然对数的底）的多少次方
False
Public
语句
声明公有变量并分配存储空间
Raise
方法
产生运行时错误
Randomize
语句
初始化随机数发生器
ReDim
语句
声明动态数组变量，并分配或重新分配过程级的存储空间
RegExp
对象
提供简单正则表达式的支持
Rem
语句
包含程序中的注释
Replace
函数
返回一个字符串，其中某个指定的子串被另一个子串替换，替换的次数也有规定
HelpFile
属性
设置或返回帮助文件的全路径
Hour
函数
返回小时数，取值范围为0至23
If...Then...Else
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
一、什么是API函数
API（Application Programming Interface，应用程序编程接口）
函数一般
都是开发好的一些应用程序接口
，使用API函数能够简化程序设计，且开发出
来的程序稳定可靠。
API函数本来是为C和C++程序员写的，是Windows系列软件为程序开发
人员提供的火力强大的“武器库”，在这个武器库中，有很多极具威力的武器。由
于API函数的功能强大，其它的编程语言也都开发利用它。这样编程人员可以
用不同类型的编程语言编制出的运行在Windows操作系统上的应用程序。
API函数包含在Windows系统目录下的附加名为DLL的动态连接库文件
中。如果你打开WINDOWS的SYSTEM文件夹，你可以发现其中有很多附加
名为DLL的文件。一个DLL中包含的API函数并不只是一个，数十个，甚至是
数百个，因此不可能全部掌握。我们只需重点掌握一些就足够了。
二、API 声明：
在Visual Basic中使用API函数，就必须在程序的首部声明API函数，未
经声明的API函数是不能调用的。你可以自己输入API函数的声明，但VB提供
了一种更简单的方法，即使用API Text Viewer。声明API函数的步骤如下：
1、从“开始菜单”起进入Visual Basic程序组，调用其中的“API Text View
er”程序，此时弹出API Viewer对话框。
2、单击菜单“File”“Load Text File”项，打开API文件对话框，选择其中的“W
in32api.txt”项并打开它。
3、回到API Viewer对话框，在“Available Items”框中选择所需的API函数。
4、根据需要选择“Declare”单选框中的“Prblic”或“Private”，然后单击“Add”
按钮，将API函数的声明添加到“Selected Items”。
5、重复3、4，将所有需要的API函数的声明添加到“Selected Items”。
6、单击“Copy”按钮，将选中的API函数声明拷贝到粘贴板。进入Visual B
asic代码窗口用粘贴命令将这些函数声明粘贴到Visual Basic的程序代码中。
控件与消息函数——91个
硬件与系统函数——95个
设备场景函数——72个
绘图函数——104个
菜单函数——37个
文本和字体函数——41个
打印函数——65个
文件处理函数——118个
进程和线程函数——29个
位图、图标和光栅运算函数——39个
Windows消息函数——11个
BroadcastSystem
Message
将一条系统消息广播给系统中所有的顶级窗口
GetMessagePos 取得消息队列中上一条消息处理完毕时的鼠标指针屏幕位
置
GetMessageTime
取得消息队列中上一条消息处理完毕时的时间
PostMessage
将一条消息投递到指定窗口的消息队列
PostThreadMessa
ge 将一条消息投递给应用程序
RegisterWindowM
essage 获取分配给一个字串标识符的消息编号
ReplyMessage
答复一个消息
SendMessage
调用一个窗口的窗口函数，将一条消息发给那个窗口
SendMessageCall
back 将一条消息发给窗口
SendMessageTim向窗口发送一条消息
eout
SendNotifyMessa
ge 向窗口发送一条消息
网络函数——14个
WNetAddConnection 创建同一个网络资源的永久性连接
WNetAddConnecti
on2
创建同一个网络资源的连接
WNetAddConnection3 创建同一个网络资源的连接
WNetCancelConnection 结束一个网络连接
WNetCancelConnection2 结束一个网络连接
WNetCloseEnum
结束一次枚举操作
WNetConnectionDialog 启动一个标准对话框，以便建立同网络资源的连接
WNetDisconnectDialog 启动一个标准对话框，以便断开同网络资源的连接
WNetEnumResource 枚举网络资源
WNetGetConnection 获取本地或已连接的一个资源的网络名称
WNetGetLastError
获取网络错误的扩展错误信息
WNetGetUniversal
Name
获取网络中一个文件的远程名称以及/或者UNC（统一命名
规范）名称
WNetGetUser
获取一个网络资源用以连接的名字
WNetOpenEnum 启动对网络资源进行枚举的过程
同步函数(包括互斥体，信号机和事件函数)——3个
DuplicateHandle
在指出一个现有系统对象当前句柄的情况下，为那个对象创
建一个新句柄。当前句柄可能为于一个不同的进程
GetHandleFormation 获取与一个系统对象句柄有关的信息
MsgWaitForMultipl
eObjects
等侯单个对象或一系列对象发出信号---标志着规定的超时
已经过去，或特定类型的消息已抵达线程的输入队列。如返
回条件已经满足，则立即返回