[abu7shihab]

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



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

[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 


[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 


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

[asmarsou]

(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 


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

وفيك بارك الله

[abu7shihab]

وهذا كود عكسي ينقل جميع البيانات من 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

للفائدة

[سعود]

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

PHP كود :

ListBox1.Items.AddRange(TextBox1.Lines) 


[AnyDesk]

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

PHP كود :

ListBox1.Items.AddRange(TextBox1.Lines) 


وهذا عكس الكود لنقل العناصر من ComboBox الى TextBox

PHP كود :

TextBox1.Lines = ListBox1.Items.OfType(Of String).ToArray