[freeviwer]

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

فماذا افعل

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 لحل الاشكال الخاص بالتهنيج.

[kslawy]

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

أضف أداة 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

****
***
**
*

[just.coder]

استعمل سيرد

كود :

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