《用户窗体添加最大最小化按纽.docx》由会员分享,可在线阅读,更多相关《用户窗体添加最大最小化按纽.docx(2页珍藏版)》请在三一文库上搜索。
1、技巧1用户窗体添加最大最小化按纽VBA中的窗体标题栏上只有关闭按纽,没有最大最小化按纽的,可以使用 API函数在 窗体的标题栏上添加最大最小化按纽,如下面的代码所示.#001 Private Declare Function FindWindow Lib user32 Alias FindWindowA(ByVal IpClassName As String, ByVal lpWindowName As String) As Long# 002PrivateDeclareFunctionGetWindowLongLibuser32AliasGetWindowLongA (ByVal hWnd
2、As Long, ByVal nIndex As Long) As Long# 003PrivateDeclareFunctionSetWindowLongLibuser32AliasSetWindowLongA (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong AsLong) As Long# 004 Private Const WS_MAXIMIZEBOX = &H10000# 005 Private Const WS_MINIMIZEBOX = &H20000# 006 Private Const GWL_STYLE =
3、 (-16)# 007 Private Sub UserForm_Initialize()# 008Dim hWndForm As Long# 009Dim iStyle As Long# 010 hWndForm = FindWindow(ThunderDFrame, Me.Caption)# 011iStyle = GetWindowLong(hWndForm, GWL_STYLE)# 012iStyle = iStyle Or WS_MINIMIZEBOX# 013 iStyle = iStyle Or WS_MAXIMIZEBOX# 014 SetWindowLong hWndForm, GWL_STYLE, iStyle# 015 End Sub代码解析:窗体初始化时使用API函数在标题栏上添加最大最小化按纽.第1行到第6行代码,API函数声明.第10行代码,获取窗口句柄.第11行到第14行代码,在标题栏上添加最大最小化按纽.运行窗体后效果如图1-1所示.图1-1标题栏上添加最大最小化按纽