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

نسخة كاملة : ممكن تعديل الكود
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم اخواني 

رايد تعديل هذا الكود 

وجعل الكود عند سحب الاسماء من الموقع وضع امامها 

@yahoo.com

لكي يصبح اميل 

الكود للتعديل علية 

كود :
  Dim name As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("div")
       For Each elem As HtmlElement In name
           If elem.GetAttribute("id") = ("medNameColumns") Then
              listbox1.Text = elem.InnerText
           End If
       Next
وشكرا للجميع
كود :
listbox1.Text = elem.InnerText & "@yahoo.com"
(05-07-17, 06:13 PM)26131 كتب : [ -> ]
كود :
listbox1.Text = elem.InnerText & "@yahoo.com"

جربت  هذا او متصير اني اريد سحب الاسماء وعند سحب الاسماء 

تضهر بهذا الشكل 

مثال 

لو فرضنا سحبنا اسم

king 

تضهر هكذا ======= king@yahoo.com