طبعنا اكتب كود فوق
Public Class Form1
() Sub EndPEOGRAM
Dim R As String
( "الخروج" , MsgBoxStyle.YesNo,"هل تريد الخروج" )R = MsgBox
If R = 6 Then
End
Else
Exit Sub
End If
End Sub
في Private Sub Button1
() Call EndPEOGRAM
End Sub
End Class
[تنبيه - عدم تكرار المخالفة :][مخالف]زر الخروج من فجيوال
مغلق
الأخ الكريم/الأخت الكريمة
السلام عليكم ورحمة الله وبركاته
مرحباً بكم في منتدى الفريق العربي للبرمجة
تأسف إدارة المنتدى لغلق الموضوع وذلك لمخالفته قوانين المشاركات .
قواعد طرح المشاركات
شاكرين لكم حُسن تعاونكم
{username}
الأخ الكريم/الأخت الكريمة
السلام عليكم ورحمة الله وبركاته.
مرحباً بكم في منتدى الفريق العربي للبرمجة
هذا الموضوع يشتمل على مخالفة أو أكثر لقواعد المشاركة.
الرجاء التنبه وعدم تكرار المخالفة في مواضيعك القادمة، وهذا بمثابة إشعار للأهمية.
وفي حال التكرار سيتعرض موضوعك للإغلاق والحذف!!!
قواعد المشاركة
شاكرين لكم حُسن تعاونكم
الأخ الكريم/الأخت الكريمة
السلام عليكم ورحمة الله وبركاته.
مرحباً بكم في منتدى الفريق العربي للبرمجة
هذا الموضوع يشتمل على مخالفة أو أكثر لقواعد المشاركة.
الرجاء التنبه وعدم تكرار المخالفة في مواضيعك القادمة، وهذا بمثابة إشعار للأهمية.
وفي حال التكرار سيتعرض موضوعك للإغلاق والحذف!!!
قواعد المشاركة
شاكرين لكم حُسن تعاونكم
هذا الموضوع مغلق.