Lukning af program

Spm 1:



Option Explicit
Private Declare Function GetSystemMenu Lib \"user32\" _
    (ByVal hwnd As Long, _
    ByVal bRevert As Long) As Long
Private Declare Function GetMenuItemCount Lib \"user32\" _
    (ByVal hMenu As Long) _
    As Long
Private Declare Function RemoveMenu Lib \"user32\" _
    (ByVal hMenu As Long, ByVal _
    nPosition As Long, ByVal wFlags As Long) As Long
Private Declare Function DrawMenuBar Lib \"user32\" _
    (ByVal hwnd As Long) As Long
Private Const MF_BYPOSITION = &H400&
Private Const MF_REMOVE = &H1000&


Private Sub DisableX()
    Dim hMenu As Long
    Dim nCount As Long
    hMenu = GetSystemMenu(Me.hwnd, 0)
    nCount = GetMenuItemCount(hMenu)

    Call RemoveMenu(hMenu, nCount - 1, MF_REMOVE Or MF_BYPOSITION)
    Call RemoveMenu(hMenu, nCount - 2, MF_REMOVE Or MF_BYPOSITION)

    DrawMenuBar Me.hwnd
End Sub


Private Sub Form_Load()
    DisableX
End Sub



2: ??????

2: Der menes der dette at :

Når der TRYKKET på X (LUK), så køres Private Sub Form_Unload(Cancel As Integer), jo inde i programmet.
Kan man så ikke lave det sådanne at at der i denne funktion spørges på en variabel :

If (lukikke = 1) Then
<LUK IKKE PROGRAMMET ALLIGEVEL KODE>
End If

lukikke = er en variabel der sættes af andre dele i programmet.

Altså, hvis variablen lukikke = 1, så sker der INTET når man trykker på X\'et !

Ang. 1:

SKAL der SÅ meget kode til for at få det til at virke ?

Spm 1: Ja, det skal der!!! den der kode gør at lukknappen(X) liver grå(ufarvet) og så kan man ikke trykke på den!

Hmmm....Den skal HELT væk :-)

Kan du ikke løse spørgsmål 1 ???

Du kan ikke få den helt væk...
Så skal du ihvertfald vælge dit program type i menuen til højre!!!

Program type ??

\"none\" kunne du jo tage!:-)

Sorry, jeg må være lidt tumpet, NONE i PROGRAMTYPE ???

Ja, det er jo selvfølgelig VIRSUAL BASICS

OKay, det har du vidst ret vildt styr på :-B

??? Hvad mener du ???

Der er ikke noget der hedder none derovre, prøv at forklare det lidt mere så man kan forstå det.

Du klikker på din dialogbox (dit program) så får du til højre en menu hvor du kan vælge baggrundsfarve etc. Der er en der hedder \"BorderStyle\" der kan du vælge nogle forskellige ting. Vælg \"none\"

Det er rigtigt, den kender jeg :-)

Men da du skrev :
>Så skal du ihvertfald vælge dit program type i menuen til højre!!!

Giver jo ikke megen mening :-)

Nå men jeg skal jo have løst det andet spm 1: osse ,så jeg venter og ser om der er andre der kan finde ud af at løse dette.

twister >>

1) For at fjerne X\'et skal du sætte formens ControlBox property til false.

2) Easy !!
Private Sub Form_Unload(Cancel As Integer)
If (lukikke = 1) Then
  Cancel = 1
End If
End Sub

TAAAKK :-)

Jeg VIDSTE der var en nemmere måde :-)

Tak for hjælpen WINKILL !

du kan også bruge formens form_queryunload alt som kommer deri bliver kørt ved tryk på formens X

razersedge>> Takker, det skal jeg huske :-)

point :O))))

winkill :

Du kan nøjes med at skrive Cancel=true ...