Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load WebBrowser1.Navigate("www.google.fr") End Sub Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted TextBox1.Multiline = True TextBox1.Text = WebBrowser1.Document.Body.OuterText End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question' cocher d'abord la référence Microsof winHTTP Services ' à déclarer avant utilisation Set winReq = New WinHttp.WinHttpRequest With winReq .Abort .Open "GET", url, False .Send Do: DoEvents: Loop Until .WaitForResponse = True If .Status = 200 Then strDATA = .ResponseText Else MsgBox winReq.Status End If End With ' dans Unload Set winReq = Nothing
A condition que le TextBox ne soit pas limité à 32 Ko comme en VB6
Dim i As Long, coco As Long, base As String Text1.Text = vbNullString 'on part à vide base = Space$(1000000) ' pour un million de caractères coco = 1 For i = 1 To 100000 Mid$(base, coco) = Format$(i, "00000000") Mid$(base, coco + 8) = vbCrLf coco coco + 10 ' + 10 car vbcrlf 2 caractères Next Text1.SelText base 'et voilà ! 1000000 de caractères stockes --- vbcrlf 2 caractères, hein ...) MsgBox "alors ? on a combien de caractères ? ===>>> " & Len(Text1.Text)
RichTextBox1.Text = New IO.StreamReader(Net.WebRequest.Create("http://www.google.fr").GetResponse.GetResponseStream).ReadToEnd
J'ai bien 'splité' le contenu du TextBox et non la variable String.
Toujours est-il que le contrôle reste limité dans sa capacité d'affichage d'un grand nombre de lignes.