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

---

(17-07-19, 05:28 PM)bakriano30@yahoo.com كتب : [ -> ]

كود :

Imports System.IO
Imports System.Net
Imports System.Text.RegularExpressions

  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim ww As WebRequest = WebRequest.Create(Me.WebBrowser1.Url.ToString)
        Dim HH As HttpWebResponse = ww.GetResponse
        Dim RDD As Stream = HH.GetResponseStream
        Dim R As New StreamReader(RDD)
        PictureBox1.LoadAsync(Regex.Match(R.ReadToEnd, """(https://encrypted-tbn0.gstatic.com/images[^""]+?)""", RegexOptions.IgnoreCase).Groups(1).Value)
    End Sub

السبب هو انك تركت خانة الـــ Url فارغة ..... قم بوضع رابط بها ، او استخدم هذا الكود في اول زر البحث

(17-07-19, 11:47 PM)سامي محمد كتب : [ -> ]السبب هو انك تركت خانة الـــ Url فارغة ..... قم بوضع رابط بها ، او استخدم هذا الكود في اول زر البحث

كود :

   WebBrowser1.Url = New System.Uri("https://www.google.com/")

شكرا اخي بس ممكن حضرتك تعدل ع الكود علشان افهم

هذا اختصار للكود السابق

 أضف زر و ادات بكتشربكس فقط

وضع هذا الكود في الزر



وان كان هناك اي شي غير مفهوم

(18-07-19, 02:20 AM)سامي محمد كتب : [ -> ]هذا اختصار للكود السابق

 أضف زر و ادات بكتشربكس فقط

وضع هذا الكود في الزر

كود :

 Dim W As String = New WebClient().DownloadString("https://www.google.com/search?tbm=isch&q=" & TextBox1.Text)
        PictureBox1.LoadAsync(Regex.Match(W, """(https://encrypted-tbn0.gstatic.com/images[^""]+?)""", RegexOptions.IgnoreCase).Groups(1).Value)

وان كان هناك اي شي غير مفهوم

ولكن اريد البحث من خلال تكست بوكس اخي الفاضل وشاكر لك اهتمامك

طيب هذا البحث عن طريق التكست بكس

اكتب اي شي في التكست وانقر على زر البحث سيعرض اول صورة في اداة البكتشربكس

(18-07-19, 02:29 AM)سامي محمد كتب : [ -> ]طيب هذا البحث عن طريق التكست بكس

اكتب اي شي في التكست وانقر على زر البحث سيعرض اول صورة في اداة البكتشربكس

شكرا لك اخي الفاضل جزاك الله خير اتمني ان تطلع علي اخر موضوع انشأته منذ دقائق لعلك تفدني كالمعتاد اخي