منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] ترحيل البيانات من textbox الى combo box - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] ترحيل البيانات من textbox الى combo box (/showthread.php?tid=45066)

ترحيل البيانات من textbox الى combo box - abu7shihab - 20-01-23

السلام عليكم اخواني الاعزاء 



ممكن كود نقل جميع البيانات من Multi textbox الى  combo box بنفس الترتيب بضغطت زر واحدة كما في الصورة المرفقة



RE: ترحيل البيانات من textbox الى combo box - asmarsou - 20-01-23

(20-01-23, 11:29 PM)abu7shihab كتب : السلام عليكم اخواني الاعزاء 



ممكن كود نقل جميع البيانات من Multi textbox الى  combo box بنفس الترتيب بضغطت زر واحدة كما في الصورة المرفقة

و عليكم السلام و رحمة الله و بركاته
تفضل
PHP كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim i As Long
        Dim a() As String

        a = Split(TextBox1.Text, vbCrLf)

        For i = LBound(a) To UBound(a)
            ComboBox1.Items.Add(a(i))
            ComboBox1.SelectedIndex = 0
        Next

    End Sub 


RE: ترحيل البيانات من textbox الى combo box - abu7shihab - 20-01-23

(20-01-23, 11:43 PM)asmarsou كتب :
(20-01-23, 11:29 PM)abu7shihab كتب : السلام عليكم اخواني الاعزاء 



ممكن كود نقل جميع البيانات من Multi textbox الى  combo box بنفس الترتيب بضغطت زر واحدة كما في الصورة المرفقة

و عليكم السلام و رحمة الله و بركاته
تفضل
PHP كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim i As Long
        Dim a() As String

        a = Split(TextBox1.Text, vbCrLf)

        For i = LBound(a) To UBound(a)
            ComboBox1.Items.Add(a(i))
            ComboBox1.SelectedIndex = 0
        Next

    End Sub 

هو المطلوب اخي العزيز asmarsou 


جزاك الله كل خير وبارك الله فيك 

RE: ترحيل البيانات من textbox الى combo box - asmarsou - 21-01-23

(20-01-23, 11:58 PM)abu7shihab كتب :
(20-01-23, 11:43 PM)asmarsou كتب :
(20-01-23, 11:29 PM)abu7shihab كتب : السلام عليكم اخواني الاعزاء 



ممكن كود نقل جميع البيانات من Multi textbox الى  combo box بنفس الترتيب بضغطت زر واحدة كما في الصورة المرفقة

و عليكم السلام و رحمة الله و بركاته
تفضل
PHP كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim i As Long
        Dim a() As String

        a = Split(TextBox1.Text, vbCrLf)

        For i = LBound(a) To UBound(a)
            ComboBox1.Items.Add(a(i))
            ComboBox1.SelectedIndex = 0
        Next

    End Sub 

هو المطلوب اخي العزيز asmarsou 


جزاك الله كل خير وبارك الله فيك 
وفيك بارك الله

RE: ترحيل البيانات من textbox الى combo box - abu7shihab - 21-01-23

وهذا كود عكسي ينقل جميع البيانات من combo box الى Multi textbox بنفس الترتيب بضغطت زر واحدة

Dim i As Long
For i = 0 To ComboBox1.Items.Count - 1
TextBox1.Text = TextBox1.Text & ComboBox1.Items(i) & vbNewLine
Next

للفائدة

RE: ترحيل البيانات من textbox الى combo box - سعود - 21-01-23

ممكن كذا ايضا:

PHP كود :
ListBox1.Items.AddRange(TextBox1.Lines) 


RE: ترحيل البيانات من textbox الى combo box - AnyDesk - 01-02-23

(21-01-23, 08:52 AM)سعود كتب : ممكن كذا ايضا:

PHP كود :
ListBox1.Items.AddRange(TextBox1.Lines) 

وهذا عكس الكود لنقل العناصر من ComboBox الى TextBox
PHP كود :
TextBox1.Lines = ListBox1.Items.OfType(Of String).ToArray