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
Kaydol:
Kayıt Yorumları (Atom)
Hiç yorum yok:
Yorum Gönder