Estoy haciendo un programa y en dicho programa necesito que al hacer click en un botón, comience a leer un MultiLine y por cada línea ejecute la acción correspondiente a ese botón. Es un botón un poco rebuscado, y así es el código:
Código vb:
Ver original
Private Sub GetDatesBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GetDatesBtn.Click Dim allelements1 As HtmlElementCollection = WebBrowser1.Document.All Dim PageElements As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("div") WebBrowser1.Document.GetElementById("mat").SetAttribute("value", Matnumb.Text) For Each webpageelement1 As HtmlElement In allelements1 If webpageelement1.GetAttribute("value") = "Datar" Then webpageelement1.InvokeMember("click") End If Next For Each CurElement As HtmlElement In PageElements Dim GetDate As String = CurElement.GetAttribute("id") If GetDate.Contains("datacion") = True Then Dim innerText As String = CurElement.InnerHtml 'MessageBox.Show("Fecha:" & innerText) TextBox3.Text = TextBox3.Text & Environment.NewLine & innerText End If Next End Sub
Lo que hace el botón creo que no influye, el problema es que no sé cómo si en el MultiLine tengo 4 líneas, leer una a una metiéndola en el otro TextBox y ejecutando la acción del botón. Estoy automatizando, por así decirlo.
A ver si alguien sabe... Muchas gracias,
Un saludo.