VBA的窗体缺少一般窗体的很多属性,不想许多语言窗体那样可以自由的设置窗体的样式,就连其默认的关闭按钮也不能设置为不显示,一般的处理方法是在窗体的关闭事件中添加代码来阻止窗体的关闭。那还不如就直接运用代码来把他去除掉(如图)。
附件下载:
点击链接从百度网盘下载
操作如下:
◾在Excel的VBE窗口中插入一个用户窗体,将其命名为frmNoCloseIcon。然后再添加一个模块。在窗体和模块中添加后面所列代码。
◾在工作薄中的任意工作表中添加一窗体按钮控件,将指定其设置宏为btnShowfrmMaxMin_Click。其供示范之用。
具体代码:
"mdClose"模块代码
由WPS之家(wps.qiangguoshuo.com)收集的该篇文章内容来源于网络,希望能为您提供帮助。
Sub btnShowfrmMaxMin_Click()frmNoCloseIcon.ShowEnd Sub
"frmNoCloseIcon" 窗体代码
'****************************************'---此模块演示了去除窗体关闭按钮---'****************************************Option Explicit'以下声明API函数#If Win64 Then '64位Private Declare PtrSafe Function FindWindow _Lib "user32" _Alias "FindWindowA" ( _ByVal lpClassName As String, _ByVal lpWindowName As String) _As LongPtrPrivate Declare PtrSafe Function GetWindowLong _Lib "user32" _Alias "GetWindowLongPtrA" ( _ByVal hwnd As LongPtr, _ByVal nIndex As Long) _As LongPtrPrivate Declare PtrSafe Function SetWindowLong _Lib "user32" _Alias "SetWindowLongPtrA" ( _ByVal hwnd As LongPtr, _ByVal nIndex As Long, _ByVal dwNewLong As LongPtr) _As LongPtrPrivate Declare PtrSafe Function DrawMenuBar _Lib "user32"( _ByVal hwnd As LongPtr) _As Long#Else '32位'查找窗口Private Declare Function FindWindow _Lib "User32" _Alias "FindWindowA" ( _ByVal lpClassName As String, _ByVal lpWindowName As String) _As Long'取得窗口样式位Private Declare Function GetWindowLong _Lib "User32" _Alias "GetWindowLongA" ( _ByVal Hwnd As Long, _ByVal nIndex As Long) _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 Declare Function DrawMenuBar _Lib "User32" ( _ByVal Hwnd As Long) _As Long#End If#If Win64 Then '64位Private FHwnd As LongPtrPrivate FIstype As LongPtr#ElsePrivate FHwnd As LongPrivate FIstype As Long#End If'以下定义常数Private Const GWL_STYLE = (-16) '窗口样式Private Const WS_SYSMENU = &H80000 '系统菜单Private Sub btnClose_Click()Unload MeEnd SubPrivate Sub btnReset_Click()'取得窗口样式位FIstype = GetWindowLong(FHwnd, GWL_STYLE)'窗体样式位: 原样式和系统菜单FIstype = FIstype Or WS_SYSMENU'重设窗体样式位SetWindowLong FHwnd, GWL_STYLE, FIstype'重绘窗体标题栏DrawMenuBar FHwndEnd Sub'**************************************'---------------主程序-----------------'**************************************Private Sub UserForm_Initialize()'查找窗口句柄FHwnd = FindWindow("ThunderDFrame", Me.Caption)'取得窗口样式位FIstype = GetWindowLong(FHwnd, GWL_STYLE)'窗体样式位: 原样式和无系统菜单FIstype = FIstype And Not WS_SYSMENU'重设窗体样式位SetWindowLong FHwnd, GWL_STYLE, FIstype'重绘窗体标题栏DrawMenuBar FHwndEnd Sub
转载声明:本站发布文章及版权归原作者所有,转载本站文章请注明文章来源!