formdaki X butonunu disable etmek

[sertac2003]

herhangi bir formda
sağ üst köşedeki X butonunu (formu kapatmayı sağlayan)
nasıl devredışı bırakabilirim.

[sertac2003]

istediğim X butonunun bu şekilde disable olması, yani basılamamasını sağlamak.

[tolga.onder]

hangi proglamlama dilinde bunu yapmak istiyorsunuz ?

[sertac2003]

hangi proglamlama dilinde bunu yapmak istiyorsunuz ?

visual basic 6.0
//----------------------------------
2nci bir sorum aşağıda:



bunu ayrı bir form kullanmadan msgbox ile yapmak istiyorum

[mhk]

Formda x butonunu iptal etmek için , formun properties seçeneklerinden controlbox seçeneği false durumuna getirilir.

[sertac2003]

controlbox false yapılınca minbuttun dahil hepsi gidiyor. minbutton kaybolmadan X şeklindeki kapatma butonunu nasıl disable edebilirim

[mhk]

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& '1024
Private Const MF_REMOVE = &H1000& '4096


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

bunu dene

[sertac2003]

yapmak istediğim tam olarak buydu. tşkler...

[hoguz]

Formun unload kısmına  

Cancel=1

yazarsan x b utonuna basılsada işlem  yapmaz.En kestirme yol bu.

[MuKaN]

İlk soruya cevap verilmiş.Gerçi üstünden çok zaman geçmiş ama buda ikinsisinin cevabı.Belki başkasına da lazım olur.

msgbox "İlk satır" & vbCr & "İkinci Satır" & vbCr & "Üçüncü Satır"

şeklinde messagebox'ta alt alta yazdırma yapılabilir...