+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] كيفية تحويل هذا الكود من textbox الي listbox (/showthread.php?tid=23992)
كيفية تحويل هذا الكود من textbox الي listbox - e-coder - 26-02-18
سلام عليكم
كيف احول الكود هذا من 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
RE: كيفية تحويل هذا الكود من textbox الي listbox - silverlight - 26-02-18
عليك أن تتعامل مع مصفوفة 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