Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim LoadSettings As New clsIni("C:\settings.ini")
Dim sites As String
Dim url As String
Dim array() As Integer = {1, 2, 3}
Dim tb As TabControl = New TabControl
For i As Integer = 1 To array.Length - 1
sites = LoadSettings.GetString("site" & i, "name", "")
url = LoadSettings.GetString("site" & i, "url", "")
Dim page As TabPage = New TabPage
Dim browser As WebBrowser = New WebBrowser
tb.TabPages.Add(page)
page.Text = sites
Me.Controls.Add(tb)
tb.Dock = DockStyle.Fill
page.Controls.Add(browser)
browser.Navigate(url)
browser.Dock = DockStyle.Fill
Next
End Sub
End Class
26 Nisan 2019 Cuma
VB.NET Create Dynamic TabControl and WebBrowser with ini section names
VB.NET Create Filled Form Dynamic TabControl with ini section names
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim LoadSettings As New clsIni("C:\settings.ini")
Dim sites As String
Dim tb As TabControl = New TabControl
For i As Integer = 1 To array.Length - 1
sites = LoadSettings.GetString("site" & i, "name", "")
Dim page As TabPage = New TabPage
tb.TabPages.Add(page)
page.Text = sites
Me.Controls.Add(tb)
tb.Dock = DockStyle.Fill
Next
End Sub
End Class
VB.NET Create Filled Form Dynamic TabControl
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim tab As TabControl = New TabControl
Dim page1 As TabPage = New TabPage
tab.TabPages.Add(page1)
Me.Controls.Add(tab)
tab.Dock = DockStyle.Fill
End Sub
End Class
Kaydol:
Yorumlar (Atom)