Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- <?xml version="1.0" encoding="utf-8"?>
- <CodeSnippets xmlns="http://schemas.microsoft.com/VisualStudio/2005/CodeSnippet">
- <CodeSnippet Format="1.0.0">
- <Header>
- <SnippetTypes>
- <SnippetType>Module</SnippetType>
- </SnippetTypes>
- <Title>
- [WebBrowser] Click event
- </Title>
- <Author>Elektro H@cker</Author>
- <Description>
- Maneja el evento Click para el documento cargado en el navegador.
- </Description>
- <HelpUrl>
- </HelpUrl>
- <Shortcut>
- </Shortcut>
- </Header>
- <Snippet>
- <Declarations>
- <Literal Editable="true">
- <ID>aaaaaaaaa</ID>
- <ToolTip>sfsdf</ToolTip>
- <Default>
- </Default>
- <Function>sdfsdf</Function>
- </Literal>
- </Declarations>
- <Code Language="vb"><![CDATA[
- Dim Document As HtmlDocument
- Private Sub WebBrowser_DocumentCompleted(ByVal sender As System.Object, ByVal e As WebBrowserDocumentCompletedEventArgs) _
- Handles WebBrowser1.DocumentCompleted
- Document = sender.Document
- AddHandler document.Click, New HtmlElementEventHandler(AddressOf Document_Click)
- End Sub
- Private Sub Document_Click(ByVal sender As Object, ByVal e As HtmlElementEventArgs)
- Select Case Document.ActiveElement.TagName.ToLower
- Case "button" : MsgBox("You've clicked a button")
- Case "input" : MsgBox("You've clicked a input")
- Case Else
- End Select
- End Sub
- ]]></Code>
- </Snippet>
- </CodeSnippet>
- </CodeSnippets>
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement