Ako zakázať tlačidlo Zavrieť v jazyku Visual Basic 6

Visual Basic 6 neobsahuje typ okna , ktoré má zakázané tlačidlo Zavrieť . Je potrebné zakázať tlačidlo Zavrieť , ak chcete dialógové akcie požadujúce konkrétne informácie od používateľa , ktorý nemal v blízkosti . Všimnite si , že môžete skončiť otravné užívateľom , ak sa nedá zatvoriť hlavné okno programu v úzkej tlačidla alebo nejaké tlačidlo , ktoré ju uzatvára . Ak budete volať určitú funkciu v rámci operačného systému , váš VB program v úzkej tlačidlo odstrániť . Pokyny dovolená 1

Otvorte projekt v jazyku Visual Basic .
2

Prejdite do okna kódu a zadajte nasledujúci kód v hornej časti . Tento kód je Visual Basic rozpoznať niektoré knižničné funkcie z Windows potrebného na odstránenie vášho tlačidlo Zavrieť :

Private Declare Function GetSystemMenu Lib " user32 " _

( ByVal hwnd As Long , _

byVal bRevert As Long ) As Long

Private Declare Function RemoveMenu Lib " user32 " _

( byVal hMenu As Long , _ byVal

nPosition As Long , _

byVal wFlags As Long ) As Long
3

Napíšte nasledovné vyhlásenie pod súkromných deklarácie funkcie Windows , ktoré ste vykonali : Private Const MF_BYPOSITION = & H400 &
. 4

Zadajte do nasledujúceho vnútri funkcie " Form_Load " formulára , ktorý chcete zakázať tlačidlo Zavrieť : Autor

Dim SYSMENU ako dlho

SYSMENU = GetSystemMenu ( Form1. hwnd , 0 )

RemoveMenu ( SYSMENU , 6 , MF_BYPOSITION )

RemoveMenu ( SYSMENU , 5 , MF_BYPOSITION )
5

Zostavte si svoj ​​projekt a spustite spustiteľný súbor .

• Predchádzajúca strana: Ako otvoriť XLS súborov na formulári vo VBA 
• Ďalšia strana: Ako si vyrobiť komentáre v VBS zákonníku