Post by heokhoa78 on Aug 22, 2015 1:15:06 GMT 10
Hi everybody, i have a difficult question
Public Sub AddNewTab() Dim newTab As TabItem = TabControl1.CreateTab("about:blank", TabControl1.Tabs.Count - 1) Dim panel As TabControlPanel = DirectCast(newTab.AttachedControl, TabControlPanel)
' 'TextBoxX1 ' Dim TextBoxX1 As New TextBoxX TextBoxX1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) TextBoxX1.BackColor = System.Drawing.Color.Black ' ' ' TextBoxX1.Border.Class = "TextBoxBorder" TextBoxX1.Border.CornerType = DevComponents.DotNetBar.eCornerType.Square TextBoxX1.ButtonCustom.Tooltip = "" TextBoxX1.ButtonCustom2.Tooltip = "" TextBoxX1.DisabledBackColor = System.Drawing.Color.Black TextBoxX1.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.0!) TextBoxX1.ForeColor = System.Drawing.Color.White TextBoxX1.Location = New System.Drawing.Point(240, 0) TextBoxX1.Name = "TextBoxX1" TextBoxX1.PreventEnterBeep = True TextBoxX1.Size = New System.Drawing.Size(190, 31) TextBoxX1.TabIndex = 2
Dim Browser As New Awesomium.Windows.Forms.WebControl Browser.Dock = DockStyle.None Browser.Size = New Size(200, 60) Browser.Location = New Point(0, 40) Browser.Anchor = AnchorStyles.Top Or AnchorStyles.Left Or AnchorStyles.Right Or AnchorStyles.Bottom 'panel.Controls.Add(Browser) Browser.Source = New Uri("http://tinhte.vn") AddHandler Browser.LoadingFrame, AddressOf Loading AddHandler Browser.LoadingFrameComplete, AddressOf Done TextBoxX1.Text = Browser.Source.ToString panel.Controls.Add(Browser) AddHandler TextBoxX1.KeyDown, AddressOf TextBoxX1_KeyDown TabControl1.SelectedTabIndex = TabControl1.Tabs.Count - 2 End Sub
Public Sub Done(ByVal sender As Object, ByVal e As Awesomium.Core.FrameEventArgs)
TabControl1.SelectedTab.Text = CType(TabControl1.SelectedTab.AttachedControl.Controls.Item(1), Awesomium.Windows.Forms.WebControl).Title.ToString
End Sub
Public Sub Loading(ByVal sender As Object, ByVal e As Awesomium.Core.LoadingFrameEventArgs)
TabControl1.SelectedTab.Text = CType(TabControl1.SelectedTab.AttachedControl.Controls.Item(1), Awesomium.Windows.Forms.WebControl).Title.ToString
End Sub
In Function Done, how to call TextBoxX1 to get url from awesomium LoadingFrameComplete? example: Public Sub Done(ByVal sender As Object, ByVal e As Awesomium.Core.FrameEventArgs)
TextBoxX1.Text = CType(TabControl1.SelectedTab.AttachedControl.Controls.Item(1), Awesomium.Windows.Forms.WebControl).Source.ToString TabControl1.SelectedTab.Text = CType(TabControl1.SelectedTab.AttachedControl.Controls.Item(1), Awesomium.Windows.Forms.WebControl).Title.ToString
End Sub
|
|
Post by Nathan Lecompte on Aug 22, 2015 10:36:01 GMT 10
Soooo....what seems to be the problem....or the question for that matter?
|
|