+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : عمل رسالة استفهامية ب yes/no (/showthread.php?tid=16049)
عمل رسالة استفهامية ب yes/no - نسيم - 05-06-16
في كود الحقظ لدي اريد عمل شرط يحتوي على رسالة استفهامية محتواها مثلا هل تريد الحفظ بنفس البيانات نعم / لا ؟
وكتبت الكود كالاتي:
If MsgBox("يوجد بيانات باسم السيد" & vbCrLf & vbCrLf & Space(4) & TextBox1.Text & Space(4) & "هل تريد الاستمرار ؟", MsgBoxStyle.YesNo, ) = MsgBoxResult.No Then
e.no= True
Else
ولكنها تعطي خطأ : 'no is not a member of 'system.eventarges
فكيف لي عمل رسالة باستخدام yes/no
وشكرا
RE: عمل رسالة استفهامية ب yes/no - ابو ليلى - 05-06-16
كود :
Dim Deletes As DialogResult = MessageBox.Show("سيتم حذف السجل الحالي", "انتبه", MessageBoxButtons.YesNo, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button2, MessageBoxOptions.RightAlign)
If DeletStud = Windows.Forms.DialogResult.Yes Then
'اكتب ما تريد هنا
End IfRE: عمل رسالة استفهامية ب yes/no - ابراهيم كركوكي - 05-06-16
(05-06-16, 11:32 AM)نسيم كتب : في كود الحقظ لدي اريد عمل شرط يحتوي على رسالة استفهامية محتواها مثلا هل تريد الحفظ بنفس البيانات نعم / لا ؟Dim ms As Byte
وكتبت الكود كالاتي:
If MsgBox("يوجد بيانات باسم السيد" & vbCrLf & vbCrLf & Space(4) & TextBox1.Text & Space(4) & "هل تريد الاستمرار ؟", MsgBoxStyle.YesNo, ) = MsgBoxResult.No Then
e.no= True
Else
ولكنها تعطي خطأ : 'no is not a member of 'system.eventarges
فكيف لي عمل رسالة باستخدام yes/no
وشكرا
ms = MsgBox
("هل تريد الخروج", MsgBoxStyle.OkCancel + MsgBoxStyle.Question, "رسالة خطأ")
If ms = 1 Then
Me.Close
ElseIf ms = 2 Then
Beep
Exit Sub
End If