+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] ممكن تعديل الكود (/showthread.php?tid=20936)
ممكن تعديل الكود - D-Z - 05-07-17
السلام عليكم اخواني
رايد تعديل هذا الكود
وجعل الكود عند سحب الاسماء من الموقع وضع امامها
@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
NextRE: ممكن تعديل الكود - 26131 - 05-07-17
كود :
listbox1.Text = elem.InnerText & "@yahoo.com"RE: ممكن تعديل الكود - D-Z - 05-07-17
(05-07-17, 06:13 PM)26131 كتب :كود :
listbox1.Text = elem.InnerText & "@yahoo.com"
جربت هذا او متصير اني اريد سحب الاسماء وعند سحب الاسماء
تضهر بهذا الشكل
مثال
لو فرضنا سحبنا اسم
king
تضهر هكذا ======= king@yahoo.com