[جميل علي]

السلام عليكم ورحمة الله وبركاتة
اخوني ابي عند ظغط على تكست بوكس 1 انتر يتم نقل البيانات الى تكست بوكس 2 ويتم نزول سطر الى الاسفل في التكست بوكس 2 ويتم تفريغ البيانات في التكست بوكس 1 استعداد الادخال بيانات جديده بشرط عدم حذف البيانات المنقوله الى تكست بوكس 2
اتمنى ان اكون وفقت في شرح المطلوب

[silverlight]

PHP كود :

 Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown
        If e.KeyCode = Keys.Enter Then
            Dim box As TextBox = CType(sender, TextBox)
            Dim currentString As String = box.Text
            If Not String.IsNullOrEmpty(currentString) Then
                Dim s As String = TextBox2.Text
                If Not String.IsNullOrEmpty(s) Then
                    TextBox2.AppendText(Environment.NewLine)
                    TextBox2.AppendText(currentString)
                Else
                    TextBox2.Text = currentString
                End If
            End If
            box.Text = ""
        End If
    End Sub 


[جميل علي]

الكود يعمل بشكل ممتاز
ابدعت استاذنا
جزاك الله خير

---

استاذي هل من الممكن عمل نفس الطريقة مع كومبو بوكس والداتا جريد
نقل البيانات من الكمبو الى الداتا جريد

[silverlight]

رجاء التوضيح أكثر لأني مش فاهم سؤالك

[جميل علي]

نفس الفكره السابقة

ولكن عند الظغط على اي عنصر في الكمبو بوكس يتم نقل هذا العنصر الى الداتا جريد
وعند اختيار عنصر اخر من الكمبو بوكس يتم نقل هذا العنصر الى الداتا جريد في صف جديد

[جميل علي]

رفع للأهمية

[silverlight]

لنفترض انك لديك كومبوبوكس به بعض البيانات التي هي عبارة عن String مثلا
ولديك DataGridView به عمود واحد

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

PHP كود :

  Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        Dim cb As ComboBox = CType(sender, ComboBox)
        Dim item As Object = cb.SelectedItem
        DataGridView1.Rows.Add(item)
    End Sub 


يمكنك ان تحذف العنصر الذي تم اختياره من الكومبوبوس وذلك بعد اضافته الي الداتجريدفيو بالشكل التالي

PHP كود :

   Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        Dim cb As ComboBox = CType(sender, ComboBox)
        Dim index As Integer = cb.SelectedIndex
        DataGridView1.Rows.Add(cb.Items(index))
        cb.Items.RemoveAt(index)
    End Sub 


[جميل علي]

شكراً أستاذي الكود يعمل بشكل ممتاز