منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[كود] ابي كود خاص ب Listbox - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [كود] ابي كود خاص ب Listbox (/showthread.php?tid=12563)

ابي كود خاص ب Listbox - x7rBI - 22-06-15

السلام عليكم ورحمةة الله وبركاتهه


كيفكم ي اخوان

ي اخوان
ابي كود ل ل الListbox

الحين مثلا انا عندي اثنين Listbox
و واحد بوتن

ابي اكتب في الlistbox1
aaq
sse
ddd
ccc
واضغط ع البوتن
تروح ل الlistbox2
+ @hotmail.com
يعني
aaq@Hotmail.com
sse@hotmail.com
ddd@hotmail.com
ccc@hotmail.com
ملاحظة : ابي احط حروف كثيرى مثل كذا و تتنقل في نفس الوقت
يعني مو وحدة وحدة

RE: ابي كود خاص ب Listbox - الطالب - 22-06-15

سلام

كود :
For Each txt As String In ListBox1.Items
    ListBox2.Items.Add(txt & "@hotmail")
Next

موفقين

RE: ابي كود خاص ب Listbox - x7rBI - 25-06-15

ي اخوي ابي نفس الكود بس ل ال Richtextbox او Textbox
لان ال Listbox
بعد م يضيف ال @hOTMAIL.COM
مقدر انسخهم كلهم مرة وحدة

RE: ابي كود خاص ب Listbox - الطالب - 26-06-15

سلام

جرب هذه
كود :
Dim txt As String = String.Join(vbNewLine, ListBox2.Items.Cast(Of String)().ToList)

'TextBox1.Text = txt

If txt <> "" Then
    Clipboard.SetText(txt)
    MsgBox("تم النسخ في الحافظة")
Else
    MsgBox("لا يوجد نص لنسخه")
End If

موفقين