[已解决]请教各位高手，如何利用代码来限制窗体关闭功能呢？

过江龙

请教各位高手，如何利用代码来限制窗体自带的关闭功能呢？谢谢！

 

请教各位高手，如何利用代码来限制窗体关闭功能呢？

最佳答案

月排行榜 / 总排行榜

amulee

2010-3-26 12:56

简化一下楼上的代码

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

跳转到最佳答案楼层

赵匡胤

我曾经见过怎样使窗体的关闭按钮不可用。貌似要用到复杂的API函数

过江龙

就是楼上将的意思。

蝶·舞

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

过江龙

谢谢蝶.舞，真的能实现。请问又如何设置让那个按钮变成灰色的呢或者说不显示这个按钮？

[此贴子已经被作者于2010-3-26 12:41:35编辑过]

蝶·舞

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 Sub

amulee

简化一下楼上的代码

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

过江龙

蝶.舞，谢谢，好像不行哟，只是取消“关闭”这个按钮，其他的不变。

过江龙

就是amulee老师这个效果，谢谢！

raulerini

学习学习。。。看的晕晕乎乎的~~~~~~~