VBA - Odstranjevanje rdečega križa iz uporabniške oblike

Morda je potrebno, da je prepovedana možnost izstopa iz uporabniškega obrazca, dokler se ne vnesejo vsi vnosi, vendar je še vedno prisoten rdeči križ, ki uporabniku omogoča izhod.

Za odstranitev križa uporabite naslednjo kodo.

V deklaraciji del UF

 "za odstranitev križa v uporabniški obliki Objavi funkcijo GetWindowLongA Lib" user32 "_ (ByVal hwnd kot dolg, ByVal nIndex kot dolg) Kot dolg Deklaracija Funkcija SetWindowLongA Lib" user32 "_ (ByVal hwnd As Long, ByVal nIndex Long, ByVal dwNewLong kot dolg) Kot dolga deklaracija Funkcija FindWindowA Lib "user32" _ (ByVal lpClassName kot niz, ByVal lpWindowName kot niz) kot dolg 

V inicializaciji UF

 Private Sub UserForm_Initialize () Dim hwnd Kot dolg hwnd = FindWindowA ("Thunder" & IIf (Application.Version Kot "8 *", "X", "D") _ & "Frame", Me.Caption) SetWindowLongA hwnd, - 16, GetWindowLongA