تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
عمل رسالة استفهامية ب yes/no
#1
في كود الحقظ لدي اريد عمل شرط يحتوي على رسالة استفهامية محتواها مثلا هل تريد الحفظ بنفس البيانات نعم / لا ؟ 

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

  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

وشكرا
الرد }}}
تم الشكر بواسطة:
#2
كود :
               Dim Deletes As DialogResult = MessageBox.Show("سيتم حذف السجل الحالي", "انتبه", MessageBoxButtons.YesNo, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button2, MessageBoxOptions.RightAlign)


               If DeletStud = Windows.Forms.DialogResult.Yes Then
'اكتب ما تريد هنا

               End If
اللهم لك الحمد كما ينبغي لجلال وجهك و عظيم سلطانك
في حل و ترحال
الرد }}}
تم الشكر بواسطة:
#3
(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
سبحان الله وبحمده سبحان الله العظيم 
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم