منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - تهنيج البرنامج عند القراءة من ملف استضافة

البرنامج راح يهنج كلما وضعت هذا الكود

فماذا افعل

PHP كود :

Dim req As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("https://dl.dropbox.com/u/90110249/tesr.txt")
                Dim res As System.Net.HttpWebResponse = req.GetResponse
                Dim sr As System.IO.StreamReader = New System.IO.StreamReader(res.GetResponseStream)
                TextBox1.Text = sr.ReadToEnd 

طبيعي التهنيج حتى ينتهي من القراءة ....استخدام backgroundworker لحل الاشكال الخاص بالتهنيج.

السلام عليكم ورحمة الله وبركاته

أضف أداة BackgroundWorker للـ Form واستخدم الكود التالي :

كود :

Imports System.Text

Public Class Form1

    Dim StrHtml As String = ""

    Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork

        Dim req As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("https://dl.dropbox.com/u/90110249/tesr.txt")

        Dim res As System.Net.HttpWebResponse = req.GetResponse

        Dim sr As System.IO.StreamReader = New System.IO.StreamReader(res.GetResponseStream, Encoding.Default)

        StrHtml = sr.ReadToEnd()

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        BackgroundWorker1.RunWorkerAsync()

    End Sub

    Private Sub BackgroundWorker1_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted

        TextBox1.Text = StrHtml

    End Sub

End Class

****
***
**
*

استعمل سيرد

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        On Error Resume Next

        Dim t As Threading.Thread = New Threading.Thread(AddressOf Patch)

        t.Start()

    End Sub

كود :

Private Sub Patch()

        On Error Resume Next

Dim req As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("https://dl.dropbox.com/u/90110249/tesr.txt")

                Dim res As System.Net.HttpWebResponse = req.GetResponse

                Dim sr As System.IO.StreamReader = New System.IO.StreamReader(res.GetResponseStream)

                TextBox1.Text = sr.ReadToEnd  

    End Sub

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

freeviwer

سعود

kslawy

just.coder