(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
وسأقوم الآن بتجربة هذا الكود أيضاً بأمر الله..
أشكرك شكراً كثيراً أخى وربنا يسعدك.