+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : ظهور صورة بعد الرفع (/showthread.php?tid=18705)
ظهور صورة بعد الرفع - ابو روضة - 06-01-17
السلام عليكم
اقوم بعمل برنامج رفع وكله تمام لكن اريد فقط ان استفسر على شيئين
اول هذا كود الرفع بموقع
كود :
WebBrowser1.Document.GetElementById("file_1_").InvokeMember("click")الناتج عملت له زر به كود نسخ الرابط وزر له كود لصق الرابط فى تيكست بوكس
انا بقى عاوز الغى زر النسخ واللصق واخليه بعد الرفع ينسخ الرابط
داخل التكست بوكس مباشرة...
ده كود لكن نفع لموقع اخر وانا مش عاوز هذا الموقع بل اريد هذا الموقع
كود :
Dim C1 As HtmlElementCollection = Me.WebBrowser1.Document.GetElementsByTagName("input")
For Each X1 As HtmlElement In C1
Dim G1 As String = X1.GetAttribute("tabindex").ToString
If G1 = "2" Then
TextBox6.Text = X1.InnerText
End If
Nextثانيا عاوز الصورة اللى اترفعت تظهر داخلPictureBox...
وجزاكم الله خيرا وياريت تفهمونى اعملها ازاى " اريد ان افهم "
RE: ظهور صورة بعد الرفع - Basil Abdallah - 08-01-17
مشكلة مواقع الرفع هذي انو جميعها تقريبا متشابهات
ولا يوجد صفة او رمز مميز خاص بصناديق الروابط
جرب تقنية اخرى افضل لك
RE: ظهور صورة بعد الرفع - ابو روضة - 09-01-17
(08-01-17, 07:35 PM)Basil Abdallah كتب : مشكلة مواقع الرفع هذي انو جميعها تقريبا متشابهات
ولا يوجد صفة او رمز مميز خاص بصناديق الروابط
جرب تقنية اخرى افضل لك
فعلا اخى وحاضر هاحاول اجرب
RE: ظهور صورة بعد الرفع - LoveVb - 09-01-17
الامر جدا بسيط حتى ولو لم تكن هناك خاصية فريدة
تقوم بجلب جميع الtag input وستجلب لك مصفوفة من عناصر input
فقط تقوم بمعرفة الinput الموجود بداخلة الرابط المباشر للصورة وهو رقم 2
الكود :
كود :
MsgBox(WebBrowser1.Document.GetElementsByTagName("input")(2).GetAttribute("value"))