乔山办公网我们一直在努力
您的位置:乔山办公网 > excel表格制作 > <em>vba</em>,<em>excel</em>想创建一个没有右上

<em>vba</em>,<em>excel</em>想创建一个没有右上

作者:乔山办公网日期:

返回目录: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。

相关阅读

关键词不能为空
极力推荐

ppt怎么做_excel表格制作_office365_word文档_365办公网