منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

كيفكم ي اخوان

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

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

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

سلام

كود :

For Each txt As String In ListBox1.Items

    ListBox2.Items.Add(txt & "@hotmail")

Next

موفقين

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

سلام

جرب هذه

كود :

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

موفقين

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

x7rBI

الطالب

x7rBI

الطالب