تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] كود في MessageBox
#1
Question 
السلام عليكم عند سوال داخل اداة MessageBox

انا عندي برنامج مثلا في اداة RadioButton ورديو بتون اخر

انا لم اجي احد الاتني بينفع عادي ماشي المشكلة دلوخ باطلب من RadioButton
انو يظهري MessageBox ماشي بتلب من اداة RadioButton الاخر اظهار نفس الرسالة بس بخصائص مختلفة ماشي

وياريت الحل بسرعة وشكرا  Smile
الرد }}}}
تم الشكر بواسطة:
#2
Huh
شـــايـفـــك

الرد }}}}
تم الشكر بواسطة:
#3
(03-08-16, 03:31 PM)abulayth كتب : Huh

مثلا انا عايز لما احدد علي اي حاجة من دول مثلا اخذت من قسم الازرار Ok وقسم الايقونات Error واردت ان يظهر الزر والايقونة في رسالة واحدة انا بقي مشكلتي انو بيجيب الايقونات في رسالة واحده والازرار في رسالة واحده Huh Sad

الرد }}}}
تم الشكر بواسطة:
#4
اكتب كودك هنا لربما نحاول الفهم منه لانى بصراحة لم افهم منك اى شئ
الرد }}}}
تم الشكر بواسطة:
#5
(05-08-16, 06:23 AM)الماجيك مسعد كتب : اكتب كودك هنا لربما نحاول الفهم منه لانى بصراحة لم افهم منك اى شئ

اخي العزيز هذ الكود 

كود :
Public Class Form2
   Dim x As String = "MessageBox.Show("
   Dim y As String = """"
   Dim z As String = ","
   Dim s As String = "&"
   Dim r As String = "MessageBoxButtons.OKCancel"
   Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
       If RadioButton11.Checked = True Then
           MessageBox.Show(TextBox1.Text, TextBox2.Text)
       ElseIf RadioButton1.Checked = True Then
           MessageBox.Show(TextBox1.Text, TextBox2.Text, MessageBoxButtons.OKCancel)
       ElseIf RadioButton2.Checked = True Then
           MessageBox.Show(TextBox1.Text, TextBox2.Text, MessageBoxButtons.OK)
       ElseIf RadioButton3.Checked = True Then
           MessageBox.Show(TextBox1.Text, TextBox2.Text, MessageBoxButtons.AbortRetryIgnore)
       ElseIf RadioButton4.Checked = True Then
           MessageBox.Show(TextBox1.Text, TextBox2.Text, MessageBoxButtons.RetryCancel)
       ElseIf RadioButton5.Checked = True Then
           MessageBox.Show(TextBox1.Text, TextBox2.Text, MessageBoxButtons.YesNoCancel)
       Else
           MessageBox.Show("يجب اختيار زر", "error", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button3, MessageBoxOptions.RtlReading)
       End If

       If RadioButton6.Checked = True And RadioButton1.Checked = True Then
           MessageBox.Show(TextBox1.Text, TextBox2.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
       End If

   End Sub

   Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click

       TextBox3.Text = (x & y & (TextBox1.Text) & y & z & y & (TextBox2.Text) & y & ")")

       If TextBox1.Text = "" And TextBox2.Text = "" Then
           TextBox3.Text = "MessageBox.Show("")"
       End If

       If TextBox1.Text = "" Then
           TextBox3.Text = (x & y & (TextBox2.Text) & y & ")")
       End If

       ''''''''''''''''''''''''''''''''''''''''''''''''''''''''

       If TextBox2.Text = "" Then
           TextBox3.Text = (x & y & (TextBox1.Text) & y & ")")
       End If

       '''''''''''''''''''''''''''''''''''''''''''''''''''''''''

       If RadioButton1.Checked = True Then
           TextBox3.Text = (x & y & (TextBox1.Text) & y & z & y & (TextBox2.Text) & y & z & r & ")")
       ElseIf RadioButton2.Checked = True Then
           TextBox3.Text = (x & y & (TextBox1.Text) & y & z & y & (TextBox2.Text) & y & z & "MessageBoxButtons.OK" & ")")
       ElseIf RadioButton2.Checked = True Then
           TextBox3.Text = (x & y & (TextBox1.Text) & y & z & y & (TextBox2.Text) & y & z & "MessageBoxButtons.AbortRetryIgnore" & ")")
       ElseIf RadioButton3.Checked = True Then
           TextBox3.Text = (x & y & (TextBox1.Text) & y & z & y & (TextBox2.Text) & y & z & "MessageBoxButtons.AbortRetryIgnore" & ")")
       ElseIf RadioButton4.Checked = True Then
           TextBox3.Text = (x & y & (TextBox1.Text) & y & z & y & (TextBox2.Text) & y & z & "MessageBoxButtons.RetryCancel" & ")")
       ElseIf RadioButton5.Checked = True Then
           TextBox3.Text = (x & y & (TextBox1.Text) & y & z & y & (TextBox2.Text) & y & z & "MessageBoxButtons.YesNoCancel" & ")")
       End If
   End Sub

   Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

   End Sub
End Class
الرد }}}}
تم الشكر بواسطة:
#6
اذا كنت تريد وضع صور الايقونات
أستخدم الكلاس SystemIcons


الملفات المرفقة
.rar   LoveVbMessageBox.rar (الحجم : 103.13 ك ب / التحميلات : 15)
الْلَّهُم صَلِّ وَسَلِم وَبَارِك عَلَى سَيِّدِنَا مُحَمَّد
الرد }}}}
تم الشكر بواسطة: soper
#7
(06-08-16, 12:44 PM)LoveVb كتب : اذا كنت تريد وضع صور الايقونات
أستخدم الكلاس SystemIcons

انا مش عارف اقول اي ولا اي يا ريت كلمة شكرا تكفي يا احلي LoveVb  Heart Heart Heart  : ) 
الرد }}}}
تم الشكر بواسطة: LoveVb


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  MessageBox Ballon Kian Tech 1 95 26-08-16, 03:25 PM
آخر رد: أبو عمر
Brick [كود] ممكن كود API لعمل TaskDialog (أي عمل MessageBox With Checkbox) b4getws 2 465 27-04-15, 01:34 PM
آخر رد: b4getws

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


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