Discussion :

[b0ub0u]

Bonjour je n'arrive pas a trouver l'exeption pour ce genre de code
sont action :
-récupérer dans une source web un mot

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
 Dim nomarticle As HtmlElementCollection = weblbc.Document.GetElementsByTagName("a")
 
                For Each CurElement As HtmlElement In nomarticle
 
                    TextBox10.Text = TextBox10.Text & CurElement.GetAttribute("href") & Environment.NewLine
 
                Next
                Dim txtvalue As String = TextBox10.Lines.GetValue(16)
                TextBox11.Text = txtvalue

[asmduty]

Tu peux essayer de le faire planter et regarder quelle exception tu auras, non ?

[tomlev]

Quel est le message d'erreur ?

[b0ub0u]

excusez moi du retard voila le message d’erreur

L'exception System.IndexOutOfRangeException n'a pas été gérée par le code utilisateur
Message=L'index se trouve en dehors des limites du tableau.
Source=mscorlib
StackTrace:
à System.Array.InternalGetReference(Void* elemRef, Int32 rank, Int32* pIndices)
à System.Array.GetValue(Int32 index)
à SDA.home.Weblbc_DocumentCompleted(Object sender, WebBrowserDocumentCompletedEventArgs e) dans F:\film\salp\salp\home.vb:ligne 134
à System.Windows.Forms.WebBrowser.OnDocumentCompleted(WebBrowserDocumentCompletedEventArgs e)
à System.Windows.Forms.WebBrowser.WebBrowserEvent.DocumentComplete(Object pDisp, Object& urlObject)
InnerException:

[tomlev]

A priori c'est parce que tu essaies d'accéder à l'élément à l'index 16 du tableau (c'est à dire le 17e), alors qu'il y a moins de 17 éléments dans le tableau (ou si tu préfères, il y a moins de 17 lignes dans la TextBox)

[asmduty]

Il faudrait que tu regardes sur quelle ligne ça plante aussi ...

Il est possible que ça plante ici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim txtvalue As String = TextBox10.Lines.GetValue(16)

si tu n'as rien à l'index 16 ...

EDIT : Devancé...

[b0ub0u]

Oui ces justement la que j'était bloquer mais j'ai trouver une solution
j'ai fait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim max As String = TextBox9.Lines.Length
                TextBox8.Text = max
 
                If TextBox8.Text = "9" Then
ma comande
end if

Merci quand même a tous.
bonne journée