Deaktivieren VBA-UserForm 'x', aber immer noch erlauben, Mich Entladen

Ich habe eine user-form, die, wenn geschlossen, muss zum ausführen von cleanup-Schritte. Ich möchte für das X - Taste deaktiviert werden und/oder nicht sichtbar ist, aber ich muss immer noch in der Lage sein, um das Formular zu entladen. Ich habe code wie unten, aber es blockiert auch Unload Me.

'Disables closing via x button
Sub UserForm_QueryClose(Cancel As Integer, ClsoeMode As Integer)
    If CloseMode = vbFormControlMenu Then
        MsgBox ("BLOCKED")
        Cancel = True
    End If
End Sub

InformationsquelleAutor steventnorris | 2013-04-04

6

Verwenden Sie nicht die UserForm_QueryClose in einem solchen Fall. Verwenden Sie die API RemoveMenu, GetSystemMenu und FindWindow

Diese ist mein fav-Website für APIs

RemoveMenu : http://allapi.mentalis.org/apilist/RemoveMenu.shtml

GetSystemMenu : http://allapi.mentalis.org/apilist/GetSystemMenu.shtml

FindWindow : http://allapi.mentalis.org/apilist/FindWindow.shtml

Diesem Beispiel sehen
```
Option Explicit

Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, _
ByVal wFlags As Long) As Long

Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long

Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long

Private Const MF_BYPOSITION = &H400&

Private Sub UserForm_Initialize()
    Dim Ret As Long

    '~~> Change UserForm1 to match your userform's caption
    Ret = FindWindow("ThunderDFrame", "UserForm1")

    Do While Ret = 0
        '~~> Change UserForm1 to match your userform's caption
        Ret = FindWindow("ThunderDFrame", "UserForm1")
        DoEvents
    Loop

    RemoveMenu GetSystemMenu(Ret, 0), 6, MF_BYPOSITION
End Sub

Private Sub CommandButton1_Click()
    Unload Me
End Sub
```
Screenshot:

Welche Bibliothek ist dies mit, und kann es als Referenz Hinzugefügt, anstatt die Verwendung der Declare-Referenzen an der Spitze?
Der name der Bibliothek ist bereits in der declare-Funktion. Nein. Sie haben zu erklären, dass diese an der Spitze.
Danke. Ich habe recherchiert, dieser Methode und etwas gefunden, das besser für meinen Fall. Anstatt deaktivieren, werde ich mit einem boolean, um zu bestimmen, ob die X-Taste angenommen wird oder nicht, in der UserForm_QueryClose. Ich bin der Annahme Ihrer Antwort, aber als es beantwortet die OP. Nochmals vielen Dank!
Ich habe nicht downvote Sie, aber ich weiß, es gibt eine Menge Leute, die glauben, in messing mit einer bereits bestehenden Benutzeroberfläche für eine Anwendung, die nicht Sie benutzerdefinierte gebaut wurde, ist ein großes no-no. Wahrscheinlich jemand mit dieser Einstellung würde ich davon ausgehen.
Danke. 🙂 Gut, ich habe viele von Ihnen. Sie wirklich unterschätzen die macht von APIs. Ich weiß schon, wer downvoted mich. Ich wollte sehen, ob diese person war anständig genug, um einen Kommentar zu hinterlassen. Ich wirklich kümmern sich nicht über die Punkte. All diese Punkte können nicht kaufen, mir eine Harley 😉

InformationsquelleAutor Siddharth Rout

Statt, sodass der Benutzer eine Meldung, er kann nicht klicken Sie auf das rote x, Falle es, wie Sie getan, und das tun die Bereinigung vor dem entladen der form:

Sub UserForm_QueryClose(Cancel As Integer, ClsoeMode As Integer)
    If CloseMode = vbFormControlMenu Then
        ' run cleanup code here
    End If
End Sub

Wenn das Formular über eine Schaltfläche schließen, dass nicht die Bereinigung, dann verwenden Sie etwas wie dieses:

Sub UserForm_QueryClose(Cancel As Integer, ClsoeMode As Integer)
    If CloseMode = vbFormControlMenu Then
        ' click event code for Close button:
        btnClose_Click 
        Cancel = True
    End If
End Sub

Keine Notwendigkeit, über Bord gehen mit Windows-APIs, da diese alle eingebaut.

InformationsquelleAutor Jon Peltier

1

Ich weiß, das ist ein altes Futter, aber Sie Dinkel ClsoeMode falsch. Ändern Sie einfach, dass zu CloseMode - und dies sollte Ihr Problem beheben.

InformationsquelleAutor Scott M

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.