利用API对VBA窗体设置

很多时候有人问到，怎么样弄使得VBA中的关闭窗口的按钮消失啊。

其实在VBA中，我们可以利用API的SetWindowLong函数来进行对VBA中窗体的设置。

以下代码添加到窗体中，可以隐藏窗体的关闭按钮。

 

'API声明 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 '窗体初始化 Private Sub UserForm_Initialize() '将窗体设置为全部按钮都没有，不能改变大小 SetWindowLong FindWindow(vbNullString, Me.Caption), -16, &H6C10000 End Sub

 

在这个程序中，SetWindowLong的第四个参数其实就是控制窗体格式的，上述代码是初始化窗体的代码，如果要在窗体运行中改变窗体样式，那么第四个参数最前面加一个1。

 

SetWindowLong FindWindow(vbNullString, Me.Caption), -16, &H16C10000

其实通过第四个参数的改变，可以改变窗体的属性。具体的对应关系如下：

&H16C00000	全部按钮都没有、Title消失
&H16C10000	全部按钮都没有、无法改变窗口大小
&H16C50000	全部按钮都没有、可以改变窗口大小
&H16C80000	Max、Min按钮消失、鼠标不能改变Form的大小
&H16C90000	Min按钮消失、鼠标不能改变Form的大小
&H16CA0000	Max按钮消失、鼠标不能改变Form的大小
&H16CB0000	鼠标不能改变Form的大小
&H16CC0000	Min、Max按钮消失，鼠标仍可改变Form的大小
&H16CD0000	Min按钮消失，鼠标仍可改变Form的大小
&H16CE0000	Max按钮消失，鼠标仍可改变Form的大小
&H16CF0000	所有按钮都有，滑数可改变大小、正常窗口
&H16D10000	出现水平滚动条、全部按钮都没有、无法改变窗口大小
&H16D50000	出现水平滚动条、全部按钮都没有、可以改变窗口大小
&H16D80000	出现水平滚动条、Max、Min按钮消失、鼠标不能改变Form的大小
&H16D90000	出现水平滚动条、Min按钮消失、鼠标不能改变Form的大小
&H16DA0000	出现水平滚动条、Max按钮消失、鼠标不能改变Form的大小
&H16DB0000	出现水平滚动条、鼠标不能改变Form的大小
&H16DC0000	出现水平滚动条、Min、Max按钮消失，鼠标仍可改变Form的大小
&H16DD0000	出现水平滚动条、Min按钮消失，鼠标仍可改变Form的大小
&H16DE0000	出现水平滚动条、Max按钮消失，鼠标仍可改变Form的大小
&H16DF0000	出现水平滚动条、所有按钮都有，滑数可改变大小、正常窗口
&H16E10000	出现垂直滚动条、全部按钮都没有、无法改变窗口大小
&H16E50000	出现垂直滚动条、全部按钮都没有、可以改变窗口大小
&H16E80000	出现垂直滚动条、Max、Min按钮消失、鼠标不能改变Form的大小
&H16E90000	出现垂直滚动条、Min按钮消失、鼠标不能改变Form的大小
&H16EA0000	出现垂直滚动条、Max按钮消失、鼠标不能改变Form的大小
&H16EB0000	出现垂直滚动条、鼠标不能改变Form的大小
&H16EC0000	出现垂直滚动条、Min、Max按钮消失，鼠标仍可改变Form的大小
&H16ED0000	出现垂直滚动条、Min按钮消失，鼠标仍可改变Form的大小
&H16EE0000	出现垂直滚动条、Max按钮消失，鼠标仍可改变Form的大小
&H16EF0000	出现垂直滚动条、所有按钮都有，滑数可改变大小、正常窗口
&H16F10000	出现水平滚动条、垂直滚动条、全部按钮都没有、无法改变窗口大小
&H16F50000	出现水平滚动条、垂直滚动条、全部按钮都没有、可以改变窗口大小
&H16F80000	出现水平滚动条、垂直滚动条、Max、Min按钮消失、鼠标不能改变Form的大小
&H16F90000	出现水平滚动条、垂直滚动条、Min按钮消失、鼠标不能改变Form的大小
&H16FA0000	出现水平滚动条、垂直滚动条、Max按钮消失、鼠标不能改变Form的大小
&H16FB0000	出现水平滚动条、垂直滚动条、鼠标不能改变Form的大小
&H16FC0000	出现水平滚动条、垂直滚动条、Min、Max按钮消失，鼠标仍可改变Form的大小
&H16FD0000	出现水平滚动条、垂直滚动条、Min按钮消失，鼠标仍可改变Form的大小
&H16FE0000	出现水平滚动条、垂直滚动条、Max按钮消失，鼠标仍可改变Form的大小
&H16FF0000	出现水平滚动条、垂直滚动条、所有按钮都有，滑数可改变大小、正常窗口