44 lines
1.9 KiB
VB.net
44 lines
1.9 KiB
VB.net
Public Class frmPopUp
|
|
|
|
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowserEx1.DocumentCompleted
|
|
Try
|
|
If Me.WebBrowserEx1.Document.Body.ScrollRectangle.Width = 0 Then
|
|
Me.Width = 500
|
|
Else
|
|
Me.Width = Me.WebBrowserEx1.Document.Body.ScrollRectangle.Width + 40
|
|
End If
|
|
|
|
Me.Height = Me.WebBrowserEx1.Document.Body.ScrollRectangle.Height + 40
|
|
If Me.Height + Me.Top > Screen.PrimaryScreen.Bounds.Height Then
|
|
Me.Height = Screen.PrimaryScreen.Bounds.Height - Me.Top
|
|
End If
|
|
If Me.Width + Me.Left > Screen.PrimaryScreen.Bounds.Width Then
|
|
Me.Width = Screen.PrimaryScreen.Bounds.Width ' - Me.Left
|
|
End If
|
|
|
|
If Me.Width < 100 Then
|
|
Me.Width = 500
|
|
End If
|
|
Me.StartPosition = FormStartPosition.CenterScreen
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
AddHandler WebBrowserEx1.WBWantsToClose, Sub() Me.Close()
|
|
' AddHandler WebBrowserEx1.HandleCreated, Sub() MsgBox("3")
|
|
' AddHandler WebBrowserEx1.ControlRemoved, Sub() MsgBox("4")
|
|
'AddHandler WebBrowserEx1., Sub() MsgBox("5")
|
|
'AddHandler WebBrowserEx1.DockChanged, Sub() MsgBox("a")
|
|
' AddHandler WebBrowserEx1.DockChanged, Sub() MsgBox("a")
|
|
' AddHandler WebBrowserEx1.DockChanged, Sub() MsgBox("a")
|
|
'End Sub
|
|
End Sub
|
|
|
|
Private Sub wb_NewWindow2(ByVal sender As Object, ByVal e As Kleinma.Controls.WebBrowserNewWindow2EventArgs) Handles WebBrowserEx1.NewWindow2
|
|
Dim F As New frmPopUp
|
|
F.Show() 'important to call show method before the following lines to ensure
|
|
F.Name = ""
|
|
e.ppDisp = F.WebBrowserEx1.Application
|
|
F.WebBrowserEx1.RegisterAsBrowser = True
|
|
End Sub
|
|
|
|
End Class |