منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - نقل البيانات من تكست بوكس الى تكست بوكس اخر

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

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 

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

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

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

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

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

رفع للأهمية

لنفترض انك لديك كومبوبوكس به بعض البيانات التي هي عبارة عن 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 

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

جميل علي

silverlight

جميل علي

silverlight

جميل علي

جميل علي

silverlight

جميل علي