VBA - A piros kereszt eltávolítása a UserFormból

Szükség lehet arra, hogy a felhasználói formátumból való kilépés lehetősége mindaddig, amíg az összes bejegyzés megtörtént, tilos, de még mindig van a piros kereszt, amely lehetővé teszi a felhasználó kilépését.

A kereszt eltávolításához használja a következő kódot.

Az UF nyilatkozatában

 "a kereszt eltávolítása egy felhasználói űrlapon Funkció beolvasása GetWindowLongA Lib" user32 "_ (ByVal hwnd As Long, ByVal nIndex As Long) A LongWeLow funkció beállítása SetWindowLongA Lib" felhasználó32 " ByVal dwNewLong As Long) A Long Declare funkcióval FindWindowA Lib "user32" _ (ByVal lpClassName mint karakterlánc, ByVal lpWindowName mint karakterlánc) 

Az UF inicializálásakor

 Privát Sub UserForm_Initialize () Dim hwnd As Long hwnd = FindWindowA ("Thunder" és IIf (Application.Version Like "8 *", "X", "D") _ & "Frame", Me.Caption) SetWindowLongA hwnd, - 16, GetWindowLongA