Visual Basic 6 innehåller inte ett fönster typ som har en funktionshindrad nära knapp . Du måste inaktivera knappen Stäng om du vill ha en åtgärd dialogruta begära särskild information från användare som inte bör stängas. Observera att du hamnar irriterande dina användare om de inte kan stänga huvudfönstret i ditt program med knappen Stäng eller någon knapp som stänger det . Om du anropar en viss funktion i ditt operativsystem , kan din VB -program bort sina nära knappen
1 .
öppna ditt projekt i Visual Basic.
2 .
Gå till din kod fönster och skriv in följande kod på toppen . Denna kod gör Visual Basic erkänna vissa bibliotek funktioner från Windows nödvändigt att ta bort dina nära knappen :
Privat Declare Function GetSystemMenu Lib " User32 " _
( ByVal hwnd As Long , _
ByVal bRevert As Long ) As Long
Privat Declare Function RemoveMenu Lib " User32 " _
( ByVal hMenu As Long , _
ByVal nPosition As Long , _
ByVal wFlags As Long ) As Long
3 .
Skriv följande uttalande under en privat Windows funktionsdeklarationer du gjort : Privat Const MF_BYPOSITION= H400
4
Skriv upp följande innanför " Form_Load . " funktion av formulär som du vill inaktivera knappen Stäng av :
Dim sysMenu As Long
sysMenu=GetSystemMenu ( Form1. hwnd , 0 )
RemoveMenu ( sysMenu , 6 , MF_BYPOSITION )
RemoveMenu ( sysMenu , 5 , MF_BYPOSITION )
5 .
Bygg ditt projekt och kör den exekverbara .
Previous:nothing Next:hur du inkluderar en fil i en JSP