منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - كيفية تحويل هذا الكود من textbox الي listbox

سلام عليكم

كيف احول الكود هذا من textbox

الي

listbox

PHP كود :

     Dim num As Integer = (Enumerable.Count(Of String)(Me.TextBox1.Lines) - 1)
        Dim i As Integer = 0
        Do While (i <= num)
            Me.ProgressBar1.Value = CInt(Math.Round(Conversion.Int(CDbl((CDbl((i * 100)) / CDbl(Enumerable.Count(Of String)(Me.TextBox1.Lines)))))))
            emad1.Send(String.Concat(New String() {"<iq to='", Form1.room.Text, "@conference.nimbuzz.com' type='set' id='179'><query xmlns='http://jabber.org/protocol/muc#admin'><item affiliation='owner' jid='", Me.TextBox1.Lines(i), "@nimbuzz.com' /></query></iq>"}))
            ListBox1.Items.Add(Me.TextBox1.Lines(i))
            Threading.Thread.Sleep(1000)
            i += 1

        Loop 

عليك أن تتعامل مع مصفوفة items الخاصة ب الليست بوكس
تقريبا ها يكون نفس الكود لكن بشكل عكسي

مثل هذا الكود تقريبا

PHP كود :

      Dim count As Integer = ListBox1.Items.Count
        Dim i As Integer = 0
        While i < count
            Dim item As String = ListBox1.Items(i).ToString
            TextBox1.AppendText(item + Environment.NewLine)
            ListBox1.SelectedIndex = i
            Threading.Thread.Sleep(100)
            i += 1
        End While 

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

e-coder

silverlight