26 Nisan 2019 Cuma

VB.NET Create Dynamic TabControl and WebBrowser 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 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

Hiç yorum yok:

Yorum Gönder