تقييم الموضوع :
  • 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
مع العلم اني استخدمت هذا الكود
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  لدي مشكلة فى استخدام اداة Chart nabil.1710 1 44 16-09-20, 01:14 AM
آخر رد: حريف برمجة
  مشكلة كتابة نص في text box kofa 4 1,134 15-09-20, 10:54 PM
آخر رد: معاند الحظ
  [VB.NET] مشكلة تعليق البرنامج عند العمل ميدو الفنان 6 166 11-09-20, 09:00 PM
آخر رد: T 1
Exclamation مشكلة في تثبيت Visual Studio 2013 YousefOkasha 9 2,599 11-09-20, 08:48 PM
آخر رد: حريف برمجة
  التعديل على الكود للتخلص من مشكلة البطىء حيث عدد السجلات كبير momani33 0 84 09-09-20, 01:33 PM
آخر رد: momani33
  مشكلة عند حفظ البيانات في قاعدة بيانات SQL Server momani33 4 171 08-09-20, 03:44 PM
آخر رد: Hasaneen
  [سؤال] مشكلة عرض بيانات الاكسيل في الكريستال الريبورت i1982 3 148 07-09-20, 12:24 PM
آخر رد: Hasaneen
  مشكلة فى اضافة البيانات ممكن المساعدة talatm 7 306 04-09-20, 04:10 PM
آخر رد: عبد العزيز البسكري
  هل يجب اضافة ملف الريبورت فيور مع مشروع الفيجوال ستوديو adnan gharbi 2 153 02-09-20, 09:27 PM
آخر رد: adnan gharbi
Question [سؤال] اضافة ميعاد التسليم للبرنامج maaadooo2001 1 126 01-09-20, 04:37 PM
آخر رد: اسامه الهرماوي

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


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