[alsalamoni]

(18-02-20, 12:27 PM)ابو روضة كتب :

(18-02-20, 12:19 PM)alsalamoni كتب :

كود :

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
   Control.CheckForIllegalCrossThreadCalls = False
   BackgroundWorker1.RunWorkerAsync()
End Sub

Private Sub BackgroundWorker1_DoWork(sender As Object, e As DoWorkEventArgs) Handles BackgroundWorker1.DoWork
   Try
       Dim ox As New WebClient
       ox.Encoding = Encoding.UTF8
       Dim txt As String = ox.DownloadString(Uri)
       Label1.Text = txt
   Catch ex As WebException
       Label1.Text = "?"
   End Try
End Sub

الله يبارك بعمرك أخى الكريم فنان ماشاء الله...

جربت فكرتك الأولى ونفعت فعلا بأن أضع الكود الثانى داخل الزر وفعلا نجحت

ووضعت هذا فقط داخل اللود

..

Control.CheckForIllegalCrossThreadCalls = False

وسأقوم الآن بتجربة هذا الكود أيضاً بأمر الله..

أشكرك شكراً كثيراً أخى وربنا يسعدك.

العفو اخي