تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] كيفية تحويل هذا الكود من textbox الي listbox
#1
سلام عليكم

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

PHP كود :
     Dim num As Integer = (Enumerable.Count(Of String)(Me.TextBox1.Lines) - 1)
 
       Dim i As Integer 0
        Do 
While (<= num)
 
           Me.ProgressBar1.Value CInt(Math.Round(Conversion.Int(CDbl((CDbl((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 
الرد
تم الشكر بواسطة:
#2
عليك أن تتعامل مع مصفوفة 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 
Retired
الرد
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم