17-10-12, 09:02 PM
كاتب الموضوع : أنس محمود
أخواني الأعزاء أقدم لكم كود لمنع المستخدم من أغلاق الفورم عن طريق(×)وأغلاقه بطريقة جميلة
في حدث ال FormClosing ضع هذا الكود
كود :
[color=#000000][COLOR=#007700][[/color][color=#0000bb]Dim close_form [/color][color=#007700]As [/color][COLOR=#0000bb]DialogResult
close_form [/COLOR][color=#007700]= [/color][color=#0000bb]MsgBox[/color][color=#007700]([/color][color=#dd0000]"هل تريد الخروج"[/color][color=#007700], [/color][color=#0000bb]MessageBoxButtons[/color][color=#007700].[/color][color=#0000bb]YesNo [/color][color=#007700]+ [/color][color=#0000bb]MessageBoxIcon[/color][color=#007700].[/color][color=#0000bb]Question[/color][color=#007700], [/color][color=#dd0000]"الخروج"[/color][COLOR=#007700])
If [/COLOR][color=#0000bb]close_form [/color][color=#007700]= [/color][color=#0000bb]Windows[/color][color=#007700].[/color][color=#0000bb]Forms[/color][color=#007700].[/color][color=#0000bb]DialogResult[/color][color=#007700].[/color][COLOR=#0000bb]Yes Then
MsgBox[/COLOR][color=#007700]([/color][color=#dd0000]"شكراً مع تحيات أنس محمود"[/color][color=#007700], [/color][color=#0000bb]MsgBoxStyle[/color][color=#007700].[/color][color=#0000bb]Information[/color][COLOR=#007700])
[/COLOR][color=#0000bb]Dim iCount [/color][color=#007700]As [/color][COLOR=#0000bb]Integer
[/COLOR][color=#007700]For [/color][color=#0000bb]iCount [/color][color=#007700]= [/color][color=#0000bb]90 To 10 Step [/color][color=#007700]-[/color][COLOR=#0000bb]3
Me[/COLOR][color=#007700].[/color][color=#0000bb]Opacity [/color][color=#007700]= [/color][color=#0000bb]iCount [/color][color=#007700]/ [/color][COLOR=#0000bb]100
Me[/COLOR][color=#007700].[/color][color=#0000bb]Refresh[/color][COLOR=#007700]()
[/COLOR][color=#0000bb]Threading[/color][color=#007700].[/color][color=#0000bb]Thread[/color][color=#007700].[/color][color=#0000bb]Sleep[/color][color=#007700]([/color][color=#0000bb]50[/color][COLOR=#007700])
[/COLOR][COLOR=#0000bb]Next
[/COLOR][COLOR=#007700]Else
[/COLOR][color=#0000bb]e[/color][color=#007700].[/color][color=#0000bb]Cancel [/color][color=#007700]= [/color][COLOR=#0000bb]True
End [/COLOR][COLOR=#007700]If
[/COLOR][/COLOR]
شغل الفورم وأضغط على (×) ولاحظ النتيجة
لا تنسونا من صالح دعائكم