+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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] مشكلة في اضافة ايميلات لـlistbox (/showthread.php?tid=18858)
مشكلة في اضافة ايميلات لـlistbox - 3asfa~mdmra - 18-01-17
السلام عليكم
واجهتني مشكلة بسيطة
وع أمل منكم مساعدتي
ولكم جزاء الشكر والعرفان
اريد اضافة مجموعة من الايميلات
من 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لاقيت مخرج بتوفيق من الله الموضوع اصبح للاستفادة
RE: مشكلة في اضافة ايميلات لـlistbox - مساعدة - 18-01-17
السلام عليكم
تفضل الكود
كود :
For i = 1 To 100
ListBox1.Items.Add("emad" & i)
NextRE: مشكلة في اضافة ايميلات لـlistbox - 3asfa~mdmra - 18-01-17
اخي ولكن ظهرت مشكلة انه عند تحميل الايميلات لا يظهر ععدها الا بضغط بمواس ع صف من ليست بوكس ماالمخرج من هذه المشكلة
TLabel4.Text = ("[" & Me.ListBox2.Items.Count.ToString & "]")
اريد عن وضع الايميلات ان تظهر عددهم مباشرة دون الضغط بالماوس وشكرا
RE: مشكلة في اضافة ايميلات لـlistbox - مساعدة - 18-01-17
لم تذكر انك تريد عددها في بداية الموضوع، ولكن العدد هو نفس العدد في الحلقة For كما في مثالي 100
وإذت أردت التعديل على كود طلبك الأخير ضعه بعد Next
RE: مشكلة في اضافة ايميلات لـlistbox - 3asfa~mdmra - 19-01-17
اخي زبطت ولكن ظهرت اخري هي عند وضعك الاسماء العربية ظهرت كالتالي كما هوا موضح بصورة
كود :
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مع العلم اني استخدمت هذا الكود