تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] ابي كود خاص ب Listbox
#1
السلام عليكم ورحمةة الله وبركاتهه


كيفكم ي اخوان

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

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

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

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

موفقين
متغيب
الرد }}}
تم الشكر بواسطة:
#3
ي اخوي ابي نفس الكود بس ل ال Richtextbox او Textbox
لان ال Listbox
بعد م يضيف ال @hOTMAIL.COM
مقدر انسخهم كلهم مرة وحدة
الرد }}}
تم الشكر بواسطة:
#4
سلام

جرب هذه
كود :
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

موفقين
متغيب
الرد }}}
تم الشكر بواسطة:



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


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