Public Class Form1
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate("http://www.google.de/")
 
    End Sub
 
    Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As _
      WebBrowserDocumentCompletedEventArgs) Handles _
      WebBrowser1.DocumentCompleted
 
        If e.Url.ToString() = "http://www.google.de/" Then 'nur bei der 
        ' Google-Startseite
 
            Dim inputElements As HtmlElementCollection = _
              WebBrowser1.Document.GetElementsByTagName("input")
 
            For Each element As HtmlElement In inputElements
 
                If element.Name = "q" Then
                    'Sucheingabefeld gefunden
 
                    element.AttachEventHandler("onfocus", _
                        Sub(sender2 As Object, e2 As EventArgs)
                            MessageBox.Show("Suchfeld Fokus")
                        End Sub)
 
                End If
 
            Next
 
        End If
 
    End Sub
 
End Class

Micke

Beitrag wurde zuletzt am 10.08.12 um 10:11:43 editiert.

Public Class Form1
    ' Eine Liste aus Input-Typen, die nicht auf Fokusänderungen überwacht 
    ' werden sollen
    Private Shared ReadOnly ignoredInputTypes As String() = {"hidden", "color", _
      "checkbox", "radio", "file", "submit", "image", "reset", "button"}
    Shared Sub New()
        Array.Sort(ignoredInputTypes)
    End Sub
 
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate("http://www.vbarchiv.net/forum/search.php?f=")
 
    End Sub
 
    Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As _
      WebBrowserDocumentCompletedEventArgs) Handles _
      WebBrowser1.DocumentCompleted
 
        If e.Url.ToString() <> "about:blank" Then 'bei about:blank ignorieren
 
            Dim inputElements As HtmlElementCollection = _
              WebBrowser1.Document.GetElementsByTagName("input")
 
            For Each element As HtmlElement In inputElements
                Dim addHandlers As Boolean = False
 
                Dim type As String = element.GetAttribute("type")
                If type.Length = 0 OrElse Array.BinarySearch(ignoredInputTypes, _
                  type) < 0 Then
                    addHandlers = True
                End If
 
                If addHandlers Then
                    'Ein Textfeld gefunden
 
                    element.AttachEventHandler("onfocus", AddressOf _
                      InputElementGotFocus)
                    element.AttachEventHandler("onblur", AddressOf _
                    InputElementLostFocus)
 
                End If
 
            Next
 
        End If
 
    End Sub
 
    Private Sub InputElementGotFocus(sender As Object, e As EventArgs)
        MessageBox.Show("Got Focus")
    End Sub
 
    Private Sub InputElementLostFocus(sender As Object, e As EventArgs)
        MessageBox.Show("Lost Focus")
    End Sub
 
End Class

Micke

Beitrag wurde zuletzt am 10.08.12 um 13:41:57 editiert.

Grüße Andi

el.AttachEventHandler("onclick", Sub(sender As Object, e As EventArgs) 
Me.MachWasMitDemElement_Methode(el, EventArgs.Empty)
End Sub)

Grüße Andi