如何去掉窗体中的关闭按钮

hhench1 · 发表于 2006-12-27 08:46

如何去掉窗体中的关闭按钮，见附件，谢谢！

YxxIJw1k.rar (9.36 KB, 下载次数: 209)

yuanzhuping · 发表于 2006-12-27 08:47

OOfuYf2S.rar (9.92 KB, 下载次数: 530)
试试

hhench1 · 发表于 2006-12-27 10:17

简单一点告诉我加入哪些代码就行吧，太复杂了看不懂哦。

fang5852 · 发表于 2006-12-27 10:47

Private Sub UserForm_Initialize()

Dim hWndForm As Long
Dim iStyle As Long, hMenu As Long
    If Val(Application.Version) < 9 Then
        hWndForm = FindWindow("ThunderXFrame", Me.Caption) 'XL97
    Else
        hWndForm = FindWindow("ThunderDFrame", Me.Caption) 'XL2000
    End If
    iStyle = GetWindowLong(hWndForm, GWL_STYLE)

iStyle = iStyle And Not WS_CAPTION '无边框样式

SetWindowLong hWndForm, GWL_STYLE, iStyle

DrawMenuBar hWndForm

End Sub

这样可以达到同样的效果!

yuanzhuping · 发表于 2006-12-27 10:58

QUOTE:

以下是引用hhench1在2006-12-27 10:17:38的发言：
简单一点告诉我加入哪些代码就行吧，太复杂了看不懂哦。

把代码贴进你的程序中就行了。

hhench1 · 发表于 2006-12-27 11:28

知道把代码放进程序里，就是因为放进去了不行所以才要请教。

fang5852的代码放进去也不行，奇怪。

fang5852 · 发表于 2006-12-27 12:03

Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) 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 FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Const GWL_STYLE As Long = (-16)
Private Const WS_CAPTION As Long = &HC00000

Private Sub UserForm_Initialize()
    Dim hwnd
    Dim rng As Range
    If Val(Application.Version) < 9 Then
        hwnd = FindWindow("ThunderXFrame", Me.Caption)
    Else
        hwnd = FindWindow("ThunderDFrame", Me.Caption)
    End If
    SetWindowLong hwnd, GWL_STYLE, IStyle
    DrawMenuBar hwnd

end

我用的行呀，你在试试这段

hhench1 · 发表于 2006-12-27 13:56

QUOTE:

以下是引用fang5852在2006-12-27 12:03:59的发言：

Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) 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 FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Const GWL_STYLE As Long = (-16)
Private Const WS_CAPTION As Long = &HC00000

Private Sub UserForm_Initialize()
    Dim hwnd
    Dim rng As Range
    If Val(Application.Version) < 9 Then
        hwnd = FindWindow("ThunderXFrame", Me.Caption)
    Else
        hwnd = FindWindow("ThunderDFrame", Me.Caption)
    End If
    SetWindowLong hwnd, GWL_STYLE, IStyle
    DrawMenuBar hwnd

end

我用的行呀，你在试试这段

用以上这个代码的效果如下，我想要的只是去掉关闭按钮，而不是把标题栏也去掉了。

yuanzhuping · 发表于 2006-12-27 16:03

ovl13x03.rar (7.51 KB, 下载次数: 1541)
这个就是你要的效果。

hhzjxss · 发表于 2007-9-8 17:39

谢谢yuanzhuping版主，API好复杂呀！

		自动登录	找回密码
密码			免费注册

如何去掉窗体中的关闭按钮

评分

评分