منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

في كود الحقظ لدي اريد عمل شرط يحتوي على رسالة استفهامية محتواها مثلا هل تريد الحفظ بنفس البيانات نعم / لا ؟

وكتبت الكود كالاتي:

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

وشكرا

كود :

               Dim Deletes As DialogResult = MessageBox.Show("سيتم حذف السجل الحالي", "انتبه", MessageBoxButtons.YesNo, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button2, MessageBoxOptions.RightAlign)

                If DeletStud = Windows.Forms.DialogResult.Yes Then

'اكتب ما تريد هنا 

                End If

(05-06-16, 11:32 AM)نسيم كتب : [ -> ]في كود الحقظ لدي اريد عمل شرط يحتوي على رسالة استفهامية محتواها مثلا هل تريد الحفظ بنفس البيانات نعم / لا ؟

وكتبت الكود كالاتي:

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

وشكرا

Dim ms As Byte
ms = MsgBox
("هل تريد الخروج", MsgBoxStyle.OkCancel + MsgBoxStyle.Question, "رسالة خطأ")
If ms = 1 Then
Me.Close
ElseIf ms = 2 Then
Beep
Exit Sub
End If

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسيم

ابو ليلى

ابراهيم كركوكي