作者:乔山办公网日期:
返回目录:excel表格制作
既然不想显示窗体的标题栏,你可以不要窗体呀,你可以在zhidaoExcel中插入一图片当窗体(背景),然后在其上加按扭什么的,这版样又美观,又看不见所谓的窗体标题栏。权
VBA与VB不同,想要控制窗体的标题栏不显示,我觉得不容易。
是否下图百的度效果:知
在窗体代码道模块回中添加答如下代码:
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
Private Sub CommandButton1_Click()
Unload Me
End Sub
窗体属性里有一项改下就可以了,具体忘记了…明天开电脑给你看
1、可以能过窗体的百QueryClose事件设置,具体代码如下:
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
ThisWorkbook.Close True
End Sub
2、窗体的QueryClose事件可以在点击窗体右上角的关闭按钮时度触发。
3、ThisWorkbook表示当前代回码所在的工作簿。
4、Close是关闭的方法。
5、 True是指关闭时保存答此工作簿,如不想保存可改为FLASE。