![]() |
|
[سؤال] وضع رابط الرفع داخل تكست بوكس - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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 |