|
Ta funkcja deaktywuje (poszarza) przycisk X w górnym prawym rogu formy.(przysłał SPECtrum) |
|
|
|
Napisał Administrator
|
|
sobota, 21 styczeń 2006 |
'Ta funkcja deaktywuje (poszarza) przycisk X w górnym prawym rogu formy
'Użycie: DeaktywacjaX frmMojaForma
Option Explicit
Public Const MF_BYPOSITION = &H400
Public Const MF_REMOVE = &H1000
Public Declare Function DrawMenuBar Lib "user32" _
(ByVal hwnd As Long) As Long
Public Declare Function GetMenuItemCount Lib "user32" _
(ByVal hMenu As Long) As Long
Public Declare Function GetSystemMenu Lib "user32" _
(ByVal hwnd As Long, ByVal bRevert As Long) As Long
Public Declare Function RemoveMenu Lib "user32" _
(ByVal hMenu As Long, _
ByVal nPosition As Long, _
ByVal wFlags As Long) As Long
Function DektywacjaX(NazwaFormy As Form)
Dim hMenu As Long
Dim menuItemCount As Long
hMenu = GetSystemMenu(formName.hwnd, 0)
If hMenu Then
'Określa liczbę pozycji w menu systemowym programu
menuItemCount = GetMenuItemCount(hMenu)
'Usuwa pozycję "Zamknij Alt+F4" z menu systemowego programu
Call RemoveMenu(hMenu, menuItemCount - 1, _
MF_REMOVE Or MF_BYPOSITION)
'Usuwa separator z menu systemowego programu
Call RemoveMenu(hMenu, menuItemCount - 2, _
MF_REMOVE Or MF_BYPOSITION)
'Deaktywuje przycisk X w prawym górnym rogu formularza
Call DrawMenuBar(formName.hwnd)
End If
End Function
|
Błąd
Dodane przez niklon w dniu - 2011-10-29 16:02:41
w kodzie jest błąd
Function DektywacjaX(NazwaFormy As Form)
powinno być formName, źle nazwane zmienne
pozdrawiam |
Aby dodać komentarz zaloguj się. Jeśli nie masz konta, załóż je sobie.
Tylko zarejestrowani użytkownicy mogą pisać komentarze. Powered by AkoComment 2.0! |
