vb检测html事件,VB.NET HtmlWindow.Unload事件代码示例

Private Sub HtmlWindow1_Unload(sender as Object, e as HtmlElementEventArgs) _

Handles HtmlWindow1.Unload

Dim messageBoxVB as New System.Text.StringBuilder()

messageBoxVB.AppendFormat("{0} = {1}", "MouseButtonsPressed", e.MouseButtonsPressed)

messageBoxVB.AppendLine()

messageBoxVB.AppendFormat("{0} = {1}", "ClientMousePosition", e.ClientMousePosition)

messageBoxVB.AppendLine()

messageBoxVB.AppendFormat("{0} = {1}", "OffsetMousePosition", e.OffsetMousePosition)

messageBoxVB.AppendLine()

messageBoxVB.AppendFormat("{0} = {1}", "MousePosition", e.MousePosition)

messageBoxVB.AppendLine()

messageBoxVB.AppendFormat("{0} = {1}", "BubbleEvent", e.BubbleEvent)

messageBoxVB.AppendLine()

messageBoxVB.AppendFormat("{0} = {1}", "KeyPressedCode", e.KeyPressedCode)

messageBoxVB.AppendLine()

messageBoxVB.AppendFormat("{0} = {1}", "AltKeyPressed", e.AltKeyPressed)

messageBoxVB.AppendLine()

messageBoxVB.AppendFormat("{0} = {1}", "CtrlKeyPressed", e.CtrlKeyPressed)

messageBoxVB.AppendLine()

messageBoxVB.AppendFormat("{0} = {1}", "ShiftKeyPressed", e.ShiftKeyPressed)

messageBoxVB.AppendLine()

messageBoxVB.AppendFormat("{0} = {1}", "EventType", e.EventType)

messageBoxVB.AppendLine()

messageBoxVB.AppendFormat("{0} = {1}", "ReturnValue", e.ReturnValue)

messageBoxVB.AppendLine()

messageBoxVB.AppendFormat("{0} = {1}", "FromElement", e.FromElement)

messageBoxVB.AppendLine()

messageBoxVB.AppendFormat("{0} = {1}", "ToElement", e.ToElement)

messageBoxVB.AppendLine()

MessageBox.Show(messageBoxVB.ToString(),"Unload Event")

End Sub