VB.NET Awesomium target_blank Пример

Question

Хорошо, я попробовал все, что искал в Google, попробовал пример в документах Awesomium, и это не сработало. У меня есть браузер с вкладками. Как я могу сделать для каждого webcontrol обрабатывать событие showcreatedwebview.

Answer 1

это для окна вы создали

Private Sub Mainwindow_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load 
     PictureBox2.Enabled = False 
     TextBox1.Text = Clipboard.GetText 
     WebControl1.Source = New Uri(TextBox1.Text) 
    End Sub 

это для вас браузер

Private Sub WebControl1_ShowCreatedWebView(ByVal sender As Object, ByVal 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) 
     Form1.Tabcontrol1.TabContainer.AddTab(New Mainwindow, True, Form1.Tabcontrol1.TabContainer.TabCount) 
     Dim webControl11 As WebControl = TryCast(sender, WebControl) 
     If webControl Is Nothing Then Return 
     If Not webControl.IsLive Then Return 
     Mainwindow.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 
      Mainwindow.TextBox1.Text = e.TargetURL.ToString 
      ' Show the window. 
      Form1.Tabcontrol1.TabContainer.AddTab(New Mainwindow, True, Form1.Tabcontrol1.TabContainer.TabCount) 
      End If 
    End Sub 
End Class