[3asfa~mdmra]

السلام عليكم

واجهتني مشكلة بسيطة

وع أمل منكم مساعدتي

ولكم جزاء الشكر والعرفان

اريد اضافة مجموعة من الايميلات

من Button1

 الي listbox

وتكون الايميلات بشكل تالي

emad

emad1

emad2

emad3

emad4

...

الخ

كود :

Dim openfile = New OpenFileDialog() With {.Filter = "Text (*.Text)|*.txt"}
If (openfile.ShowDialog() = System.Windows.Forms.DialogResult.OK) Then
   For Each line As String In File.ReadAllLines(openfile.FileName)
       ListBox1.Items.Add(line)
   Next
End If

لاقيت مخرج بتوفيق من الله الموضوع اصبح للاستفادة

[مساعدة]

السلام عليكم

تفضل الكود

كود :

For i = 1 To 100
   ListBox1.Items.Add("emad" & i)
Next

[3asfa~mdmra]

اخي ولكن ظهرت مشكلة انه عند تحميل الايميلات لا يظهر ععدها الا بضغط بمواس ع صف من ليست بوكس ماالمخرج من هذه المشكلة
TLabel4.Text = ("[" & Me.ListBox2.Items.Count.ToString & "]")
اريد عن وضع الايميلات ان تظهر عددهم مباشرة دون الضغط بالماوس وشكرا

[مساعدة]

لم تذكر انك تريد عددها في بداية الموضوع، ولكن العدد هو نفس العدد في الحلقة For كما في مثالي 100

وإذت أردت التعديل على كود طلبك الأخير ضعه بعد Next

[3asfa~mdmra]

اخي زبطت ولكن ظهرت اخري هي عند وضعك الاسماء العربية ظهرت كالتالي كما هوا موضح بصورة

كود :

 Dim openfile = New OpenFileDialog() With {.Filter = "Text (*.Text)|*.txt"}
       If (openfile.ShowDialog() = System.Windows.Forms.DialogResult.OK) Then
           For Each line As String In File.ReadAllLines(openfile.FileName)
               ListBox1.Items.Add(line)
           Next
           Dim i As Int16 = 0
           Dim test As String
           Try
               Do While 1 = 1
                   test = ListBox1.Items(i).ToString
                   i = i + 1
               Loop
           Catch
               Label4.Text = i.ToString

           End Try
       End If

مع العلم اني استخدمت هذا الكود