VB6'da Form'u çarpıdan kapatmayı engellemek.

[Orion1]

Merhaba.
VB6'da Form'u çarpıdan kapatmayı nasıl engelleriz.
Quryload kısmına yazılan
if closemode=0 then cancel=true işe yaramıyor

 

[Mahmut Bayram]

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Cancel = (CloseMode = 0)
MsgBox "Çarpıdan çıkamazsınız"
End Sub

 

[Orion1]

Merhaba.
Sanırım bu sefer command butona yazdığım unlad me komutu çalışmıyor.
Unload me form1.show yazdığımda
Form2 kapanmadan form1 açılıyor.
Ben form2nin kapanıp form1in açılmasını istiyorum.Ancak form2nin X dan kapanmasınıda istemiyorum.
Command butondan kapanabilsin.

 

[Mahmut Bayram]

Evren bey,

Me.Hide

deneyin.

 

[Orion1]

Mahmut bey çarpıyı nasıl engelleyeceğiz?

 

[Mahmut Bayram]

2.mesajda yanıtlamıştım.
Görmediniz galiba...

 

[Orion1]

Teşekkür bu şekilde oluyor.
Unload me Yapma ihtimalimiz yokmu acaba
Çünkü ben o formun QuryLoad kısmına kod yazmak istiyordum.

 

[Mahmut Bayram]

Evren bey,
Bu şekilde denedim çalışıyor.

Private Sub Command1_Click()
Unload Me
End Sub

Belki de ben yanlış anladım sorunuzu fakat sizin işinizi göreceğine inandığım bir kaç örnek ekliyorum.

 

[Orion1]

Mahmut bey 2 tane formla çalışıyorum.
*ilk formu hide yapıyorum
*2nci formu show ediyorum
*2nci formda quryload olayında X'ten çıkmayı engelliyorum
*Çıkış butonuna
unload me
form1.show
yazıyorum.
form2 kapanmıyor.:agla:

 

[Mahmut Bayram]

Üstadım şu kodları form2 ye yapıştırınız.

Option Explicit
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Const MF_BYPOSITION = &H400&
Private Const MF_BYCOMMAND = &H0&
Private Const SC_CLOSE = &HF060&

Private Sub Command1_Click()
Unload Me
Form1.Show
End Sub

Private Sub Form_Load()
  Dim systemmenu As Long
    systemmenu = GetSystemMenu(Form1.hwnd, False)
    DeleteMenu systemmenu, SC_CLOSE, MF_BYCOMMAND
End Sub

 

[Orion1]

X ten gene kapanıyor.
Üstelik kapandıktan sonra form1'i açmıyor!!

 

[Mahmut Bayram]

Hocam bende x butonunu disable yapıyor ve butona basınca da kapanıyor form1 i açıyor.
Allah Allah aklım ermedi bu işe valla...

 

[Orion1]

Hocam bende x butonunu disable yapıyor ve butona basınca da kapanıyor form1 i açıyor.
Allah Allah aklım ermedi bu işe valla...

Bu şekilde ols bile gene benim sorunumu çözmüyor.
Çünkü bu sferde alt+f4 ile kapatıbilirler.
Olmazsa hide kodunu kullnıp Quaryload yerine kodları formun deactivite olayına yazarım.Ne yapalım.Bakalım sonuca ona göre.

 

[Mahmut Bayram]

Evren bey 8.mesajımdaki eklere bir bakın isterseniz.
Belki orada size göre bir örnek vardır.
Kolay gelsin.

 

[Orion1]

Evren bey 8.mesajımdaki eklere bir bakın isterseniz.
Belki orada size göre bir örnek vardır.
Kolay gelsin.

Onlar olmuyor.Alt+f4 ile ve x den çıkmayı engellemem gerek.

 

[Mahmut Bayram]

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Cancel = True
MsgBox "Çarpıdan çıkamazsınız"
End Sub

bu kod alt+f4 ü engelliyor.

 

[Orion1]

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Cancel = True
MsgBox "Çarpıdan çıkamazsınız"
End Sub

bu kod alt+f4 ü engelliyor.

Hepsini engellemiyormu.
Commandbutonda unload me dediğimiz zaman onuda engellemiyormu?

 

[Mahmut Bayram]

Mazur görün pek anlamadım dediğinizi.
Alt+F4 ve X dan çıkmayı engelliyor.

 

[Orion1]

Mahmut bey.
Ekli dosyaya bakarmısınız?
Unload me yapınca form2 kapanmıyor.
Ekle değşitir butonuna basarak form2 açıyorsunuz.

 

[Mahmut Bayram]

Hocam dışarıdaydım kusura bakmayın.

Bir de şunu deneyin.

Formun yani Form2 'nin keypreview'ini True yapın.

Sonra bir modüle şu kodları yapıştırın.

Option Explicit
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
Public Const MF_BYPOSITION = &H400&


Public Sub DisableCloseWindowButton(frm As Form)
    Dim hSysMenu As Long
    hSysMenu = GetSystemMenu(frm.hwnd, 0)
    RemoveMenu hSysMenu, 6, MF_BYPOSITION
    RemoveMenu hSysMenu, 5, MF_BYPOSITION
End Sub

Form2 deki kodları da şu şekilde değiştirin.

Private Sub Command1_Click()
Unload Me
Form1.Show
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
KeyCode = 0
End Sub

Private Sub Form_Load()
DisableCloseWindowButton Me
End Sub

Kolay gelsin.