Private Sub UserForm_Initialize() Dim myh As Long, Mystyle As Long myh = FindWindow("ThunderDFrame", Me.Caption) Mystyle = GetWindowLong(myh, GWL_STYLE) '取得原来窗体的一般样式 Mystyle = Mystyle Or WS_MAXIMIZEBOX '原样式+最大化按钮 Mystyle = Mystyle Or WS_MINIMIZEBOX '原样式+最小化...
'MsgBox hwndMe &":"& hwndDesktop'设置userform的owner为桌面,使userform不随excel主窗口最小化而最小化 SetWindowLong hwndMe, GWL_HWNDPARENT, hwndDesktop '让userform显示最大化、最小化按钮 lStyle = GetWindowLong(hwndMe, GWL_STYLE)'Or WS_MAXIMIZEBOX Or WS_MINIMIZEBOX SetWindowLong hwndMe, GWL_STYLE,...
在VBE中插入一个标准模块,输入下面使用Windows API的代码来隐藏用户窗体的标题栏: Public Const GWL_STYLE = -16Public Const WS_CAPTION = &HC00000#If VBA7 ThenPublicDeclarePtrSafeFunctionGetWindowLong _Lib"user32"Alias"GetWindowLongA"( _ByVal hWndAsLong,_...
图1默认情况下,VBA用户窗体没有删除标题栏的选项,但可以使用Windows API实现。在VBE中,插入一个标准模块,输入下面的代码: Private Const GWL_STYLE = -16Private Const WS_CAPTION = &HC00000#If VBA7 Then Private Declare PtrSafe Function FindWindow Lib "user32" Alias...
Public ConstGWL_STYLE=-16Public ConstWS_CAPTION=&HC00000#IfVBA7Then Public Declare PtrSafe Function GetWindowLong _ Lib"user32"Alias"GetWindowLongA"(_ ByVal hWnd As Long,_ ByVal nIndex As Long)As Long Public Declare PtrSafe Function SetWindowLong _ ...
在VBA中去除窗体标题栏,可以通过调用Windows API函数来实现。以下是具体的步骤和代码示例: 1. 插入标准模块并声明API函数 首先,在VBA编辑器中插入一个标准模块,并声明所需的Windows API函数。这些函数用于获取和设置窗口的样式,以及重绘菜单栏。 vba Private Const GWL_STYLE = -16 Private Const WS_CAPTION = &...
SetWindowLong hWndForm, GWL_STYLE, FIstype '取得窗体拓展样式 FIstype = GetWindowLong(hWndForm, GWL_EXSTYLE) '窗体拓展样式:无边框,分层 FIstype = FIstype And Not WS_EX_DLGMODALFRAME Or WS_EX_LAYERED '重设窗体拓展样式位 SetWindowLong hWndForm, GWL_EXSTYLE, FIstype ...
Public ConstGWL_STYLE=-16Public ConstWS_CAPTION=&HC00000#IfVBA7Then Public Declare PtrSafe Function GetWindowLong _ Lib"user32"Alias"GetWindowLongA"(_ ByVal hWnd As Long,_ ByVal nIndex As Long)As Long Public Declare PtrSafe Function SetWindowLong _ ...
Private Const GWL_STYLE As Long = -16Private Const WS_SYSMENU As Long = &H80000#If VBA7 ThenPrivateDeclarePtrSafeFunctionFindWindow Lib"user32"Alias"FindWindowA"(ByVal lpClassNameAsString, ByVal lpWindowNameAsString)AsLongPtr#If Win64 ThenPrivateDec...
Private Const GWL_STYLE = (-16) '设置窗口样式 Private Const WS_MINIMIZEBOX As Long = &H20000 '最小化 '=== '窗体UserForm的初始化 Private Sub UserForm_Initialize() Dim hWndForm As Long Dim IStyle As Long hWndForm = FindWindow("ThunderDFrame",...