منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] وضع رابط الرفع داخل تكست بوكس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=16985)



وضع رابط الرفع داخل تكست بوكس - ابو روضة - 25-08-16

السلام عليكم اخوتى
انا عامل موقع رفع وعملت برنامج رفع عليه

وكله تمام بس عاوز لما يرفع الصورة يضع رابطها 

داخل التكست بوكس فى مشروعى

ده الكود لكن الناتج مش بيتحط داخل التكست بل لازم انسخة من الموقع





   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       WebBrowser1.Document.GetElementById("file_1_").InvokeMember("click")
   End Sub


   Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

       WebBrowser1.Document.GetElementById("submitr").InvokeMember("click")
   End Sub

   Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
       If e.Url.ToString.ToLower.Contains(".uploads/") Then
           TextBox1.Text = "" & e.Url.ToString
       End If
   End Sub