تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] مشكلة في اضافة ايميلات لـlistbox
#1
السلام عليكم
واجهتني مشكلة بسيطة
وع أمل منكم مساعدتي
ولكم جزاء الشكر والعرفان

اريد اضافة مجموعة من الايميلات
من 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
لاقيت مخرج بتوفيق من الله الموضوع اصبح للاستفادة
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم

تفضل الكود
كود :
For i = 1 To 100
   ListBox1.Items.Add("emad" & i)
Next
الرد }}}
تم الشكر بواسطة: 3asfa~mdmra , 3asfa~mdmra
#3
اخي ولكن ظهرت مشكلة انه عند تحميل الايميلات لا يظهر ععدها الا بضغط بمواس ع صف من ليست بوكس ماالمخرج من هذه المشكلة
TLabel4.Text = ("[" & Me.ListBox2.Items.Count.ToString & "]")
اريد عن وضع الايميلات ان تظهر عددهم مباشرة دون الضغط بالماوس وشكرا
الرد }}}
تم الشكر بواسطة:
#4
لم تذكر انك تريد عددها في بداية الموضوع، ولكن العدد هو نفس العدد في الحلقة For كما في مثالي 100

وإذت أردت التعديل على كود طلبك الأخير ضعه بعد Next
الرد }}}
تم الشكر بواسطة: 3asfa~mdmra
#5
اخي زبطت ولكن ظهرت اخري هي عند وضعك الاسماء العربية ظهرت كالتالي كما هوا موضح بصورة
كود :
 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
مع العلم اني استخدمت هذا الكود
الرد }}}
تم الشكر بواسطة:



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


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