Text around cursor


SUBMITTED BY: farhan411

DATE: Dec. 23, 2015, 8:26 p.m.

FORMAT: Text only

SIZE: 572 Bytes

HITS: 816

  1. Private Sub Enter_Click(ByVal Sender As Object, ByVal k As System.Windows.Forms.KeyEventArgs)
  2. If k.KeyCode = Keys.Return Then
  3. Dim MyTextBox As TextBox = DirectCast(sender, TextBox)
  4. MyTextBox.SelectedText = "<End>"
  5. MyTextBox.SelectionStart = MyTextBox.Text.Length
  6. k.SuppressKeyPress = True
  7. End If
  8. End Sub
  9. Dim myElement as HtmlElement
  10. myElement = Webbrowser1.document.GetElementById("The name of the element here")
  11. Dim Value as String = myElement.GetAttribute("value")
  12. MessageBox.Show("Here is the value: " & Value)

comments powered by Disqus