الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

رسالة الخروج تثبت الفورم الأصلي

مغلق
بدأه adtd في 14 أبريل 2007 · 6 رد · 616 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

أحبابي

انا عملت فورم لكن الي بدي اياه لما يضغط خروج ولما تطلع الرسالة موافق أو الغاء يتثبت الفورم الأصلي

يعني انا لما اضغط خروج بتطلعلي رسالة موافق أو خروج

بدي لما تطلع هالرسالة يتثبت الفور الأصلي يعني كل ما اضغط عليه ما يتجاوب ولا يتأثر

#2

في الحدث Form_Closing يمكن أن تضع الشيفرة التالية:

Dim dr as DialogResult = MessageBox.Show(>>>>>>>>)
if dr == DialogResult.No Then
	e.Cancel = False ' جرب True في حال لم تنجح
End If
#3

لإلغاء الإغلاق

e.cancel=true

لمتابعة الإغلاق

e.cancel=false

بالمناسبة هذا الموضوع موجود سابقا في المنتدى

يرجى استخدام محرك البحث

تم تعديل هذه المشاركة بواسطة محمد سامر أبو سلو في 15 أبريل 2007 في 10:41

عن عائشة رضي الله عنها أن النبي صلى الله عليه وسلم قال: إن الله يحب إذا عمل أحدكم عملا أن يتقنه

نعيب زماننا والعيب فينا ... وما لزماننا عيب سوانا

ونهجو ذا الزمان بغير ذنب ... ولو نطق الزمان لنا هجانا

محمد سامر أبو سلو

#4

أخي ألف شكر لك

لكن ما زبطت

بيطلعلي تحتها خط أزرق

#5

أخي بحثت في المنتدى لكن ما وجدت شي

ارجو منك ارفاق رابط الموضوع

#6
adtd كتب:
أخي بحثت في المنتدى لكن ما وجدت شي

ارجو منك ارفاق رابط الموضوع

ابحث في المنتدى عن E.cancel وستجد العديد من المواضيع وإليك مثال عن أحد المواضيع

وهذا مثال عن الكود

If MessageBox.Show("Are You sure you want to end?", Application.ProductName, _
	MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.No Then

		' Do Not end
		e.Cancel = True
End If

تم تعديل هذه المشاركة بواسطة محمد سامر أبو سلو في 15 أبريل 2007 في 16:23

عن عائشة رضي الله عنها أن النبي صلى الله عليه وسلم قال: إن الله يحب إذا عمل أحدكم عملا أن يتقنه

نعيب زماننا والعيب فينا ... وما لزماننا عيب سوانا

ونهجو ذا الزمان بغير ذنب ... ولو نطق الزمان لنا هجانا

محمد سامر أبو سلو

#7

لعلي خط أزرق برضه

انا بحثت ووجدت هذا الكود وزبط معي

اشكرك على حهودك معي

Try
			out.ShowDialog(Me)
		Catch
			Dim out As New out
			out.ShowDialog(Me)
		End Try

هذا الموضوع مغلق.

مواضيع مشابهة