السلام عليكم
واجهتني مشكلة بسيطة
وع أمل منكم مساعدتي
ولكم جزاء الشكر والعرفان
اريد اضافة مجموعة من الايميلات
من 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
لاقيت مخرج بتوفيق من الله الموضوع اصبح للاستفادة
اخي ولكن ظهرت مشكلة انه عند تحميل الايميلات لا يظهر ععدها الا بضغط بمواس ع صف من ليست بوكس ماالمخرج من هذه المشكلة
TLabel4.Text = ("[" & Me.ListBox2.Items.Count.ToString & "]")
اريد عن وضع الايميلات ان تظهر عددهم مباشرة دون الضغط بالماوس وشكرا
لم تذكر انك تريد عددها في بداية الموضوع، ولكن العدد هو نفس العدد في الحلقة For كما في مثالي 100
وإذت أردت التعديل على كود طلبك الأخير ضعه بعد Next
اخي زبطت ولكن ظهرت اخري هي عند وضعك الاسماء العربية ظهرت كالتالي كما هوا موضح بصورة
كود :
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
مع العلم اني استخدمت هذا الكود
