منع المستخدم من اغلاق الفورم

[اسلام الكبابى]

فى لغة الvb6
كيف أمنع المستخدم من اغلاق الفورم

سواء بالضغط على علامة x أو بالضغط على مفتاح Alt+F4 أو بأى طريقة أخرى

أريد ألا يسنطيع المستخدم غلقها الا بالضغط على زر الغلق الذى أضعه فى الفورم وأكتب طبعآ كود الغلق فى حدث الضغط عليه و أظهره وقتما أشاء و أخفيه وقتما أشاء

ولكم ألف شكر

مشاركة هذا الرد في Google Facebook Twitter Digg

أنت معجب بهذا.

[volvo2008]

PrivateSub Form_Load()
EnableCloseButton me.hWnd, false
End Sub
And to re-enable it later:

private Sub Command1_Click()
EnableCloseButton me.hWnd, true
End Sub

مشاركة هذا الرد في Google Facebook Twitter Digg

أنت معجب بهذا.

[volvo2008]

شووف المثال

مشاركة هذا الرد في Google Facebook Twitter Digg

أنت معجب بهذا.

[اسلام الكبابى]

لم ينفع هذا الكود
هل أنت متأكد أن هذا الكود للغة vb6

مشاركة هذا الرد في Google Facebook Twitter Digg

أنت معجب بهذا.

[ahmedqatar]

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode = vbFormControlMenu Then
Ret = MsgBox("Do You want to Exit?", vbOKCancel)
'~~> If user decides against it...
If Ret = vbCancel Then Cancel = 1
End If
End Sub

مشاركة هذا الرد في Google Facebook Twitter Digg

أنت معجب بهذا.

[اسلام الكبابى]

شكرآ لك
وبارك الله فيك

مشاركة هذا الرد في Google Facebook Twitter Digg

أنت معجب بهذا.

[ahmedqatar]

العفو

مشاركة هذا الرد في Google Facebook Twitter Digg

أنت معجب بهذا.