用户窗体取消叉号问题

ww87725244

dzsrmyh 发表于 2024-8-21 10:49
提示方法和数据成员未找到

那可能我搞错了

fxl447098457

Setwindowlong(ptr)/GETwindowlong(ptr)配合下就差不多了.

demonimissyou

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = 0 Then ' 用户点击了关闭按钮
        Cancel = True ' 取消关闭
        MsgBox "关闭按钮已禁用", vbInformation
    End If
End Sub

lss001

'以下代码请放置在窗体中

Private Declare PtrSafe Function FindWindow _
    Lib "user32" Alias "FindWindowA" ( _
    ByVal lpClassName As String, _
    ByVal lpWindowName As String) As LongPtr
Private Declare PtrSafe Function GetWindowLong _
    Lib "user32" Alias "GetWindowLongA" ( _
    ByVal hwnd As LongPtr, ByVal nIndex As Long) As LongPtr
Private Declare PtrSafe Function SetWindowLong _
    Lib "user32" Alias "SetWindowLongA" ( _
    ByVal hwnd As LongPtr, ByVal nIndex As Long, _
    ByVal dwNewLong As LongPtr) As LongPtr
Private Declare PtrSafe Function DrawMenuBar _
    Lib "user32" (ByVal hwnd As LongPtr) As Long

Private FHwnd As LongPtr
Private Ft As LongPtr
Private Const GWL_STYLE = (-16)
Private Const WS_SYSMENU= &H80000

Private Sub UserForm_Initialize()
    FHwnd = FindWindow("ThunderDFrame", Me.Caption)
    Ft = GetWindowLong(FHwnd, GWL_STYLE)
   
    'X关闭按钮X
    Ft = Ft And Not WS_SYSMENU
   
    SetWindowLong FHwnd, GWL_STYLE, Ft
    DrawMenuBar FHwnd
End Sub

FXZ2015

谢谢各位老师帮忙。

micch

ww87725244 发表于 2024-8-20 21:51
Me.ShowCloseButton = False

说的那么一本正经，我差点就信了，
是不是还有   me.showmaxButton = true