[نسيم]

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

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

  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