x
Main Site login Signup

How to make this code open a popup in a new tab with the url in textbox1

 Private Sub Awesomium_Windows_Forms_WebControl_ShowCreatedWebView(sender As Object, e As Awesomium.Core.ShowCreatedWebViewEventArgs) Handles WebControl1.ShowCreatedWebView
     Clipboard.SetText(e.TargetURL.ToString)
     Dim webControl As Awesomium.Windows.Forms.WebControl = TryCast(sender, Awesomium.Windows.Forms.WebControl)
     Dim webControl11 As Awesomium.Windows.Forms.WebControl = TryCast(sender, Awesomium.Windows.Forms.WebControl)
     Dim tpf As New DevExpress.XtraBars.TabFormPage
     Dim tah As New Tab
     If webControl Is Nothing Then Return
     If Not webControl.IsLive Then Return
     'Panel5.Hide()
     'pop_up.Close()
     If e.IsPopup AndAlso (Not e.IsUserSpecsOnly) Then
         ' JSWindowOpenSpecs.InitialPosition indicates screen coordinates
     ElseIf (e.IsWindowOpen OrElse e.IsPost) Then
     Else
         e.Cancel = True
         'TextBox1.Text = e.TargetURL.ToString
         Form1.TabFormControl1.Pages.Add(tpf)
         tah.Show()
         tah.TopLevel = False
         tah.Dock = DockStyle.Fill
         tpf.ContentContainer.Controls.Add(tah)
         Form1.TabFormControl1.SelectedPage = tpf
         Me.TextBox1.Text = e.TargetURL.ToString
     End If
 End Sub
asked Nov 19, 2016 at 03:09 PM avatar image LdaTechnologies 0
more ▼
(comments are locked)
10|1100 characters needed characters left

0 answers: sort voted first
Be the first one to answer this question
toggle preview:

Up to 2 attachments (including images) can be used with a maximum of 524.3 kB each and 1.0 MB total.