请问:怎样去掉窗体由上角的关闭按钮(就是那个叉叉)?

onERR

在PhotoShop\3D max 中存在很多这样的窗体,窗体右上角很干净一个按钮都没有.这是怎样做的?需要用API?

[此贴子已经被作者于2006-4-20 21:43:13编辑过]

来生缘

要用API,其实你可以禁止它就行了

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode <> 1 Then Cancel = 1
End Sub

onERR

以下是引用[I]来生缘[/I]在2006-4-20 21:56:02的发言：[BR]

要用API,其实你可以禁止它就行了

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode <> 1 Then Cancel = 1
End Sub

这只是让那个"叉"不起作用啊,可我不想看到它啊.能不能告诉我用哪个API啊?

来生缘

http://club.excelhome.net/viewthread.php?tid=57342&replyID=266061&skin=1

kgdss

这句代码是通用的吗? 应该写在哪里呢？

来生缘

用在窗体里

qy8866

把下面加在窗体代码中
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
Private Const GWL_STYLE = (-16)
Private Const WS_SYSMENU = &H80000

Private Sub UserForm_Initialize()
    Dim Istype As Long
    Hwnd = FindWindow("ThunderDFrame", Me.Caption)
    Istype = GetWindowLong(Hwnd, GWL_STYLE)
    Istype = Istype And Not WS_SYSMENU
    SetWindowLong Hwnd, GWL_STYLE, Istype
    DrawMenuBar Hwnd
End Sub
Private Sub 退出_Click()
    Unload Me
End Sub