[ramez live vb]

(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