五种版本的圣经和NIV版本

Imports System.Data.OleDb

Public Class Form1

    Private rtb As RichTextBox = New RichTextBox()
    Private tlp_hhb As TableLayoutPanel = New TableLayoutPanel()
    Private tlp_xyb As TableLayoutPanel = New TableLayoutPanel()
    Private tlp_lzz As TableLayoutPanel = New TableLayoutPanel()
    Private tlp_xdyb As TableLayoutPanel = New TableLayoutPanel()
    Private tlp_niv As TableLayoutPanel = New TableLayoutPanel()

    Public Sub New()

        ' 此调用是设计器所必需的。
        InitializeComponent()

        ' 在 InitializeComponent() 调用之后添加任何初始化。

        Me.Size = New Size(1024, 768)
        Me.WindowState = FormWindowState.Maximized

        Me.rtb.Dock = DockStyle.Fill
        Me.rtb.Font = New Font("黑体", 70, FontStyle.Bold)
        Me.rtb.BackColor = Color.Black
        Me.rtb.ReadOnly = True
        Me.Controls.Add(Me.rtb)
        Me.ms()

        Me.hhb()
        Me.xyb()
        Me.lzz()
        Me.xdyb()
        Me.niv()

    End Sub

    Private Sub ms()
        Dim tsb_hhb As ToolStripButton = New ToolStripButton("【中文和合本】(Alt+&1)", Nothing, AddressOf tsb_hhb_Click)
        tsb_hhb.Font = New Font("黑体", 12, FontStyle.Bold)
        Dim tsb_xyb As ToolStripButton = New ToolStripButton("【中文新译本】(Alt+&2)", Nothing, AddressOf tsb_xyb_Click)
        tsb_xyb.Font = New Font("黑体", 12, FontStyle.Bold)
        Dim tsb_lzz As ToolStripButton = New ToolStripButton("【吕振中译本】(Alt+&3)", Nothing, AddressOf tsb_lzz_Click)
        tsb_lzz.Font = New Font("黑体", 12, FontStyle.Bold)
        Dim tsb_xdyb As ToolStripButton = New ToolStripButton("【现代中文译本】(Alt+&4)", Nothing, AddressOf tsb_xdyb_Click)
        tsb_xdyb.Font = New Font("黑体", 12, FontStyle.Bold)
        Dim tsb_niv As ToolStripButton = New ToolStripButton("【NIV版】(Alt+&5)", Nothing, AddressOf tsb_niv_Click)
        tsb_niv.Font = New Font("黑体", 12, FontStyle.Bold)
        Dim ms As MenuStrip = New MenuStrip()
        ms.Items.Add(tsb_hhb)
        ms.Items.Add(New ToolStripSeparator())
        ms.Items.Add(tsb_xyb)
        ms.Items.Add(New ToolStripSeparator())
        ms.Items.Add(tsb_lzz)
        ms.Items.Add(New ToolStripSeparator())
        ms.Items.Add(tsb_xdyb)
        ms.Items.Add(New ToolStripSeparator())
        ms.Items.Add(tsb_niv)
        Me.Controls.Add(ms)
    End Sub

    Private Sub hhb()
        tlp_hhb.Dock = DockStyle.Fill
        tlp_hhb.ColumnCount = 4
        tlp_hhb.RowCount = 30

        For i As Integer = 0 To tlp_hhb.ColumnCount - 1
            tlp_hhb.ColumnStyles.Add(New ColumnStyle(SizeType.Percent, 25.0!))
        Next

        For i As Integer = 0 To tlp_hhb.RowCount - 1
            tlp_hhb.RowStyles.Add(New RowStyle(SizeType.Percent, 100 / tlp_hhb.RowCount * 1.0!))
        Next

        Dim mulu As String() = {"旧约", "律法书", "王国前历史书", "王国时期历史书", "被掳后历史书", "诗歌·智慧书", "大先知书", "王国时期小先知书", "被掳后小先知书", "新约", "四福音", "教会历史", "保罗书信", "其他使徒书信", "对约翰的启示"}
        Dim lbl As Label() = New Label(mulu.Length) {}
        For i As Integer = 0 To mulu.Length - 1
            lbl(i) = New Label()
            lbl(i).Anchor = AnchorStyles.None
            lbl(i).AutoSize = True

            If i <> 0 And i <> 9 Then
                lbl(i).BorderStyle = BorderStyle.FixedSingle
                lbl(i).Font = New Font("黑体", 15, FontStyle.Bold)
            Else
                tlp_hhb.SetColumnSpan(lbl(i), 2)
                lbl(i).Font = New Font("黑体", 15, FontStyle.Bold)
            End If

            lbl(i).Dock = DockStyle.Fill

            lbl(i).Text = mulu(i)
            lbl(i).TextAlign = ContentAlignment.MiddleCenter
            lbl(i).ForeColor = Color.Red

        Next

        tlp_hhb.Controls.Add(lbl(0), 0, 0)
        tlp_hhb.Controls.Add(lbl(1), 0, 1)
        tlp_hhb.Controls.Add(lbl(2), 0, 7)
        tlp_hhb.Controls.Add(lbl(3), 0, 13)
        tlp_hhb.Controls.Add(lbl(4), 0, 23)
        tlp_hhb.Controls.Add(lbl(5), 1, 1)
        tlp_hhb.Controls.Add(lbl(6), 1, 7)
        tlp_hhb.Controls.Add(lbl(7), 1, 13)
        tlp_hhb.Controls.Add(lbl(8), 1, 23)
        tlp_hhb.Controls.Add(lbl(9), 2, 0)
        tlp_hhb.Controls.Add(lbl(10), 2, 1)
        tlp_hhb.Controls.Add(lbl(11), 2, 7)
        tlp_hhb.Controls.Add(lbl(12), 2, 13)
        tlp_hhb.Controls.Add(lbl(13), 3, 1)
        tlp_hhb.Controls.Add(lbl(14), 3, 13)

        Dim juan As String() = {"创世记", "出埃及记", "利未记", "民数记", "申命记", "约书亚记", "士师记", "路得记", "撒母耳记上", "撒母耳记下", "列王纪上", "列王纪下", "历代志上", "历代志下", "以斯拉记", "尼希米记", "以斯帖记", "约伯记", "诗篇", "箴言", "传道书", "雅歌", "以赛亚书", "耶利米书", "耶利米哀歌", "以西结书", "但以理书", "何西阿书", "约珥书", "阿摩司书", "俄巴底亚书", "约拿书", "弥迦书", "那鸿书", "哈巴谷书", "西番雅书", "哈该书", "撒迦利亚书", "玛拉基书", "马太福音", "马可福音", "路加福音", "约翰福音", "使徒行传", "罗马书", "哥林多前书", "哥林多后书", "加拉太书", "以弗所书", "腓立比书", "歌罗西书", "帖撒罗尼迦前书", "帖撒罗尼迦后书", "提摩太前书", "提摩太后书", "提多书", "腓利门书", "希伯来书", "雅各书", "彼得前书", "彼得后书", "约翰壹书", "约翰贰书", "约翰叁书", "犹大书", "启示录"}
        Dim lkl As LinkLabel() = New LinkLabel(juan.Length) {}

        For i As Integer = 0 To juan.Length - 1
            lkl(i) = New LinkLabel()
            lkl(i).Anchor = AnchorStyles.None
            lkl(i).AutoSize = True
            lkl(i).Font = New Font("黑体", 15, FontStyle.Bold)
            lkl(i).Text = juan(i)
            lkl(i).TextAlign = ContentAlignment.MiddleCenter
        Next

        For i As Integer = 0 To 4
            tlp_hhb.Controls.Add(lkl(i), 0, i + 2)
        Next

        For i As Integer = 5 To 7
            tlp_hhb.Controls.Add(lkl(i), 0, i + 3)
        Next

        For i As Integer = 8 To 13
            tlp_hhb.Controls.Add(lkl(i), 0, i + 6)
        Next

        For i As Integer = 14 To 16
            tlp_hhb.Controls.Add(lkl(i), 0, i + 10)
        Next

        For i As Integer = 17 To 21
            tlp_hhb.Controls.Add(lkl(i), 1, i - 15)
        Next

        For i As Integer = 22 To 26
            tlp_hhb.Controls.Add(lkl(i), 1, i - 14)
        Next

        For i As Integer = 27 To 35
            tlp_hhb.Controls.Add(lkl(i), 1, i - 13)
        Next

        For i As Integer = 36 To 38
            tlp_hhb.Controls.Add(lkl(i), 1, i - 12)
        Next

        For i As Integer = 39 To 42
            tlp_hhb.Controls.Add(lkl(i), 2, i - 37)
        Next

        For i As Integer = 43 To 43
            tlp_hhb.Controls.Add(lkl(i), 2, i - 35)
        Next

        For i As Integer = 44 To 56
            tlp_hhb.Controls.Add(lkl(i), 2, i - 30)
        Next

        For i As Integer = 57 To 64
            tlp_hhb.Controls.Add(lkl(i), 3, i - 55)
        Next

        For i As Integer = 65 To 65
            tlp_hhb.Controls.Add(lkl(i), 3, i - 51)
        Next

        For i As Integer = 0 To juan.Length - 1
            AddHandler lkl(i).Click, AddressOf lkl_hhb_Click
        Next

        Dim lbl_hhb As Label = New Label()
        lbl_hhb.Anchor = AnchorStyles.None
        lbl_hhb.AutoSize = True
        lbl_hhb.Dock = DockStyle.Fill
        lbl_hhb.Text = "中文和合本"
        lbl_hhb.TextAlign = ContentAlignment.MiddleCenter
        tlp_hhb.SetColumnSpan(lbl_hhb, 4)
        tlp_hhb.SetRowSpan(lbl_hhb, 2)

        lbl_hhb.BorderStyle = BorderStyle.FixedSingle
        lbl_hhb.Font = New Font("黑体", 30, FontStyle.Bold)

        tlp_hhb.Controls.Add(lbl_hhb, 0, 27)

        Me.Controls.Add(tlp_hhb)
        tlp_hhb.BringToFront()
    End Sub

    Private Sub xyb()
        Me.tlp_xyb.Visible = False
        tlp_xyb.Dock = DockStyle.Fill
        tlp_xyb.ColumnCount = 4
        tlp_xyb.RowCount = 30

        For i As Integer = 0 To tlp_xyb.ColumnCount - 1
            tlp_xyb.ColumnStyles.Add(New ColumnStyle(SizeType.Percent, 25.0!))
        Next

        For i As Integer = 0 To tlp_xyb.RowCount - 1
            tlp_xyb.RowStyles.Add(New RowStyle(SizeType.Percent, 100 / tlp_xyb.RowCount * 1.0!))
        Next

        Dim mulu As String() = {"旧约", "律法书", "王国前历史书", "王国时期历史书", "被掳后历史书", "诗歌·智慧书", "大先知书", "王国时期小先知书", "被掳后小先知书", "新约", "四福音", "教会历史", "保罗书信", "其他使徒书信", "对约翰的启示"}
        Dim lbl As Label() = New Label(mulu.Length) {}
        For i As Integer = 0 To mulu.Length - 1
            lbl(i) = New Label()
            lbl(i).Anchor = AnchorStyles.None
            lbl(i).AutoSize = True

            If i <> 0 And i <> 9 Then
                lbl(i).BorderStyle = BorderStyle.FixedSingle
                lbl(i).Font = New Font("黑体", 15, FontStyle.Bold)
            Else
                tlp_xyb.SetColumnSpan(lbl(i), 2)
                lbl(i).Font = New Font("黑体", 15, FontStyle.Bold)
            End If

            lbl(i).Dock = DockStyle.Fill

            lbl(i).Text = mulu(i)
            lbl(i).TextAlign = ContentAlignment.MiddleCenter
            lbl(i).ForeColor = Color.Red

        Next

        tlp_xyb.Controls.Add(lbl(0), 0, 0)
        tlp_xyb.Controls.Add(lbl(1), 0, 1)
        tlp_xyb.Controls.Add(lbl(2), 0, 7)
        tlp_xyb.Controls.Add(lbl(3), 0, 13)
        tlp_xyb.Controls.Add(lbl(4), 0, 23)
        tlp_xyb.Controls.Add(lbl(5), 1, 1)
        tlp_xyb.Controls.Add(lbl(6), 1, 7)
        tlp_xyb.Controls.Add(lbl(7), 1, 13)
        tlp_xyb.Controls.Add(lbl(8), 1, 23)
        tlp_xyb.Controls.Add(lbl(9), 2, 0)
        tlp_xyb.Controls.Add(lbl(10), 2, 1)
        tlp_xyb.Controls.Add(lbl(11), 2, 7)
        tlp_xyb.Controls.Add(lbl(12), 2, 13)
        tlp_xyb.Controls.Add(lbl(13), 3, 1)
        tlp_xyb.Controls.Add(lbl(14), 3, 13)

        Dim juan As String() = {"创世记", "出埃及记", "利未记", "民数记", "申命记", "约书亚记", "士师记", "路得记", "撒母耳记上", "撒母耳记下", "列王纪上", "列王纪下", "历代志上", "历代志下", "以斯拉记", "尼希米记", "以斯帖记", "约伯记", "诗篇", "箴言", "传道书", "雅歌", "以赛亚书", "耶利米书", "耶利米哀歌", "以西结书", "但以理书", "何西阿书", "约珥书", "阿摩司书", "俄巴底亚书", "约拿书", "弥迦书", "那鸿书", "哈巴谷书", "西番雅书", "哈该书", "撒迦利亚书", "玛拉基书", "马太福音", "马可福音", "路加福音", "约翰福音", "使徒行传", "罗马书", "哥林多前书", "哥林多后书", "加拉太书", "以弗所书", "腓立比书", "歌罗西书", "帖撒罗尼迦前书", "帖撒罗尼迦后书", "提摩太前书", "提摩太后书", "提多书", "腓利门书", "希伯来书", "雅各书", "彼得前书", "彼得后书", "约翰壹书", "约翰贰书", "约翰叁书", "犹大书", "启示录"}
        Dim lkl As LinkLabel() = New LinkLabel(juan.Length) {}

        For i As Integer = 0 To juan.Length - 1
            lkl(i) = New LinkLabel()
            lkl(i).Anchor = AnchorStyles.None
            lkl(i).AutoSize = True
            lkl(i).Font = New Font("黑体", 15, FontStyle.Bold)
            lkl(i).Text = juan(i)
            lkl(i).TextAlign = ContentAlignment.MiddleCenter
        Next

        For i As Integer = 0 To 4
            tlp_xyb.Controls.Add(lkl(i), 0, i + 2)
        Next

        For i As Integer = 5 To 7
            tlp_xyb.Controls.Add(lkl(i), 0, i + 3)
        Next

        For i As Integer = 8 To 13
            tlp_xyb.Controls.Add(lkl(i), 0, i + 6)
        Next

        For i As Integer = 14 To 16
            tlp_xyb.Controls.Add(lkl(i), 0, i + 10)
        Next

        For i As Integer = 17 To 21
            tlp_xyb.Controls.Add(lkl(i), 1, i - 15)
        Next

        For i As Integer = 22 To 26
            tlp_xyb.Controls.Add(lkl(i), 1, i - 14)
        Next

        For i As Integer = 27 To 35
            tlp_xyb.Controls.Add(lkl(i), 1, i - 13)
        Next

        For i As Integer = 36 To 38
            tlp_xyb.Controls.Add(lkl(i), 1, i - 12)
        Next

        For i As Integer = 39 To 42
            tlp_xyb.Controls.Add(lkl(i), 2, i - 37)
        Next

        For i As Integer = 43 To 43
            tlp_xyb.Controls.Add(lkl(i), 2, i - 35)
        Next

        For i As Integer = 44 To 56
            tlp_xyb.Controls.Add(lkl(i), 2, i - 30)
        Next

        For i As Integer = 57 To 64
            tlp_xyb.Controls.Add(lkl(i), 3, i - 55)
        Next

        For i As Integer = 65 To 65
            tlp_xyb.Controls.Add(lkl(i), 3, i - 51)
        Next

        For i As Integer = 0 To juan.Length - 1
            AddHandler lkl(i).Click, AddressOf lkl_xyb_Click
        Next

        Dim lbl_xyb As Label = New Label()
        lbl_xyb.Anchor = AnchorStyles.None
        lbl_xyb.AutoSize = True
        lbl_xyb.Dock = DockStyle.Fill
        lbl_xyb.Text = "中文新译本"
        lbl_xyb.TextAlign = ContentAlignment.MiddleCenter
        tlp_hhb.SetColumnSpan(lbl_xyb, 4)
        tlp_hhb.SetRowSpan(lbl_xyb, 2)

        lbl_xyb.BorderStyle = BorderStyle.FixedSingle
        lbl_xyb.Font = New Font("黑体", 30, FontStyle.Bold)

        tlp_xyb.Controls.Add(lbl_xyb, 0, 27)

        Me.Controls.Add(tlp_xyb)
        tlp_xyb.BringToFront()
    End Sub

    Private Sub lzz()
        Me.tlp_lzz.Visible = False
        tlp_lzz.Dock = DockStyle.Fill
        tlp_lzz.ColumnCount = 4
        tlp_lzz.RowCount = 30

        For i As Integer = 0 To tlp_lzz.ColumnCount - 1
            tlp_lzz.ColumnStyles.Add(New ColumnStyle(SizeType.Percent, 25.0!))
        Next

        For i As Integer = 0 To tlp_lzz.RowCount - 1
            tlp_lzz.RowStyles.Add(New RowStyle(SizeType.Percent, 100 / tlp_lzz.RowCount * 1.0!))
        Next

        Dim mulu As String() = {"旧约", "律法书", "王国前历史书", "王国时期历史书", "被掳后历史书", "诗歌·智慧书", "大先知书", "王国时期小先知书", "被掳后小先知书", "新约", "四福音", "教会历史", "保罗书信", "其他使徒书信", "对约翰的启示"}
        Dim lbl As Label() = New Label(mulu.Length) {}
        For i As Integer = 0 To mulu.Length - 1
            lbl(i) = New Label()
            lbl(i).Anchor = AnchorStyles.None
            lbl(i).AutoSize = True

            If i <> 0 And i <> 9 Then
                lbl(i).BorderStyle = BorderStyle.FixedSingle
                lbl(i).Font = New Font("黑体", 15, FontStyle.Bold)
            Else
                tlp_lzz.SetColumnSpan(lbl(i), 2)
                lbl(i).Font = New Font("黑体", 15, FontStyle.Bold)
            End If

            lbl(i).Dock = DockStyle.Fill

            lbl(i).Text = mulu(i)
            lbl(i).TextAlign = ContentAlignment.MiddleCenter
            lbl(i).ForeColor = Color.Red

        Next

        tlp_lzz.Controls.Add(lbl(0), 0, 0)
        tlp_lzz.Controls.Add(lbl(1), 0, 1)
        tlp_lzz.Controls.Add(lbl(2), 0, 7)
        tlp_lzz.Controls.Add(lbl(3), 0, 13)
        tlp_lzz.Controls.Add(lbl(4), 0, 23)
        tlp_lzz.Controls.Add(lbl(5), 1, 1)
        tlp_lzz.Controls.Add(lbl(6), 1, 7)
        tlp_lzz.Controls.Add(lbl(7), 1, 13)
        tlp_lzz.Controls.Add(lbl(8), 1, 23)
        tlp_lzz.Controls.Add(lbl(9), 2, 0)
        tlp_lzz.Controls.Add(lbl(10), 2, 1)
        tlp_lzz.Controls.Add(lbl(11), 2, 7)
        tlp_lzz.Controls.Add(lbl(12), 2, 13)
        tlp_lzz.Controls.Add(lbl(13), 3, 1)
        tlp_lzz.Controls.Add(lbl(14), 3, 13)

        Dim juan As String() = {"创世记", "出埃及记", "利未记", "民数记", "申命记", "约书亚记", "士师记", "路得记", "撒母耳记上", "撒母耳记下", "列王纪上", "列王纪下", "历代志上", "历代志下", "以斯拉记", "尼希米记", "以斯帖记", "约伯记", "诗篇", "箴言", "传道书", "雅歌", "以赛亚书", "耶利米书", "耶利米哀歌", "以西结书", "但以理书", "何西阿书", "约珥书", "阿摩司书", "俄巴底亚书", "约拿书", "弥迦书", "那鸿书", "哈巴谷书", "西番雅书", "哈该书", "撒迦利亚书", "玛拉基书", "马太福音", "马可福音", "路加福音", "约翰福音", "使徒行传", "罗马书", "哥林多前书", "哥林多后书", "加拉太书", "以弗所书", "腓立比书", "歌罗西书", "帖撒罗尼迦前书", "帖撒罗尼迦后书", "提摩太前书", "提摩太后书", "提多书", "腓利门书", "希伯来书", "雅各书", "彼得前书", "彼得后书", "约翰壹书", "约翰贰书", "约翰叁书", "犹大书", "启示录"}
        Dim lkl As LinkLabel() = New LinkLabel(juan.Length) {}

        For i As Integer = 0 To juan.Length - 1
            lkl(i) = New LinkLabel()
            lkl(i).Anchor = AnchorStyles.None
            lkl(i).AutoSize = True
            lkl(i).Font = New Font("黑体", 15, FontStyle.Bold)
            lkl(i).Text = juan(i)
            lkl(i).TextAlign = ContentAlignment.MiddleCenter
        Next

        For i As Integer = 0 To 4
            tlp_lzz.Controls.Add(lkl(i), 0, i + 2)
        Next

        For i As Integer = 5 To 7
            tlp_lzz.Controls.Add(lkl(i), 0, i + 3)
        Next

        For i As Integer = 8 To 13
            tlp_lzz.Controls.Add(lkl(i), 0, i + 6)
        Next

        For i As Integer = 14 To 16
            tlp_lzz.Controls.Add(lkl(i), 0, i + 10)
        Next

        For i As Integer = 17 To 21
            tlp_lzz.Controls.Add(lkl(i), 1, i - 15)
        Next

        For i As Integer = 22 To 26
            tlp_lzz.Controls.Add(lkl(i), 1, i - 14)
        Next

        For i As Integer = 27 To 35
            tlp_lzz.Controls.Add(lkl(i), 1, i - 13)
        Next

        For i As Integer = 36 To 38
            tlp_lzz.Controls.Add(lkl(i), 1, i - 12)
        Next

        For i As Integer = 39 To 42
            tlp_lzz.Controls.Add(lkl(i), 2, i - 37)
        Next

        For i As Integer = 43 To 43
            tlp_lzz.Controls.Add(lkl(i), 2, i - 35)
        Next

        For i As Integer = 44 To 56
            tlp_lzz.Controls.Add(lkl(i), 2, i - 30)
        Next

        For i As Integer = 57 To 64
            tlp_lzz.Controls.Add(lkl(i), 3, i - 55)
        Next

        For i As Integer = 65 To 65
            tlp_lzz.Controls.Add(lkl(i), 3, i - 51)
        Next

        For i As Integer = 0 To juan.Length - 1
            AddHandler lkl(i).Click, AddressOf lkl_lzz_Click
        Next

        Dim lbl_lzz As Label = New Label()
        lbl_lzz.Anchor = AnchorStyles.None
        lbl_lzz.AutoSize = True
        lbl_lzz.Dock = DockStyle.Fill
        lbl_lzz.Text = "吕振中译本"
        lbl_lzz.TextAlign = ContentAlignment.MiddleCenter
        tlp_hhb.SetColumnSpan(lbl_lzz, 4)
        tlp_hhb.SetRowSpan(lbl_lzz, 2)

        lbl_lzz.BorderStyle = BorderStyle.FixedSingle
        lbl_lzz.Font = New Font("黑体", 30, FontStyle.Bold)

        tlp_lzz.Controls.Add(lbl_lzz, 0, 27)

        Me.Controls.Add(tlp_lzz)
        tlp_lzz.BringToFront()
    End Sub

    Private Sub xdyb()
        Me.tlp_xdyb.Visible = False
        tlp_xdyb.Dock = DockStyle.Fill
        tlp_xdyb.ColumnCount = 4
        tlp_xdyb.RowCount = 30

        For i As Integer = 0 To tlp_xdyb.ColumnCount - 1
            tlp_xdyb.ColumnStyles.Add(New ColumnStyle(SizeType.Percent, 25.0!))
        Next

        For i As Integer = 0 To tlp_xdyb.RowCount - 1
            tlp_xdyb.RowStyles.Add(New RowStyle(SizeType.Percent, 100 / tlp_xdyb.RowCount * 1.0!))
        Next

        Dim mulu As String() = {"旧约", "律法书", "王国前历史书", "王国时期历史书", "被掳后历史书", "诗歌·智慧书", "大先知书", "王国时期小先知书", "被掳后小先知书", "新约", "四福音", "教会历史", "保罗书信", "其他使徒书信", "对约翰的启示"}
        Dim lbl As Label() = New Label(mulu.Length) {}
        For i As Integer = 0 To mulu.Length - 1
            lbl(i) = New Label()
            lbl(i).Anchor = AnchorStyles.None
            lbl(i).AutoSize = True

            If i <> 0 And i <> 9 Then
                lbl(i).BorderStyle = BorderStyle.FixedSingle
                lbl(i).Font = New Font("黑体", 15, FontStyle.Bold)
            Else
                tlp_xdyb.SetColumnSpan(lbl(i), 2)
                lbl(i).Font = New Font("黑体", 15, FontStyle.Bold)
            End If

            lbl(i).Dock = DockStyle.Fill

            lbl(i).Text = mulu(i)
            lbl(i).TextAlign = ContentAlignment.MiddleCenter
            lbl(i).ForeColor = Color.Red

        Next

        tlp_xdyb.Controls.Add(lbl(0), 0, 0)
        tlp_xdyb.Controls.Add(lbl(1), 0, 1)
        tlp_xdyb.Controls.Add(lbl(2), 0, 7)
        tlp_xdyb.Controls.Add(lbl(3), 0, 13)
        tlp_xdyb.Controls.Add(lbl(4), 0, 23)
        tlp_xdyb.Controls.Add(lbl(5), 1, 1)
        tlp_xdyb.Controls.Add(lbl(6), 1, 7)
        tlp_xdyb.Controls.Add(lbl(7), 1, 13)
        tlp_xdyb.Controls.Add(lbl(8), 1, 23)
        tlp_xdyb.Controls.Add(lbl(9), 2, 0)
        tlp_xdyb.Controls.Add(lbl(10), 2, 1)
        tlp_xdyb.Controls.Add(lbl(11), 2, 7)
        tlp_xdyb.Controls.Add(lbl(12), 2, 13)
        tlp_xdyb.Controls.Add(lbl(13), 3, 1)
        tlp_xdyb.Controls.Add(lbl(14), 3, 13)

        Dim juan As String() = {"创世记", "出埃及记", "利未记", "民数记", "申命记", "约书亚记", "士师记", "路得记", "撒母耳记上", "撒母耳记下", "列王纪上", "列王纪下", "历代志上", "历代志下", "以斯拉记", "尼希米记", "以斯帖记", "约伯记", "诗篇", "箴言", "传道书", "雅歌", "以赛亚书", "耶利米书", "耶利米哀歌", "以西结书", "但以理书", "何西阿书", "约珥书", "阿摩司书", "俄巴底亚书", "约拿书", "弥迦书", "那鸿书", "哈巴谷书", "西番雅书", "哈该书", "撒迦利亚书", "玛拉基书", "马太福音", "马可福音", "路加福音", "约翰福音", "使徒行传", "罗马书", "哥林多前书", "哥林多后书", "加拉太书", "以弗所书", "腓立比书", "歌罗西书", "帖撒罗尼迦前书", "帖撒罗尼迦后书", "提摩太前书", "提摩太后书", "提多书", "腓利门书", "希伯来书", "雅各书", "彼得前书", "彼得后书", "约翰壹书", "约翰贰书", "约翰叁书", "犹大书", "启示录"}
        Dim lkl As LinkLabel() = New LinkLabel(juan.Length) {}

        For i As Integer = 0 To juan.Length - 1
            lkl(i) = New LinkLabel()
            lkl(i).Anchor = AnchorStyles.None
            lkl(i).AutoSize = True
            lkl(i).Font = New Font("黑体", 15, FontStyle.Bold)
            lkl(i).Text = juan(i)
            lkl(i).TextAlign = ContentAlignment.MiddleCenter
        Next

        For i As Integer = 0 To 4
            tlp_xdyb.Controls.Add(lkl(i), 0, i + 2)
        Next

        For i As Integer = 5 To 7
            tlp_xdyb.Controls.Add(lkl(i), 0, i + 3)
        Next

        For i As Integer = 8 To 13
            tlp_xdyb.Controls.Add(lkl(i), 0, i + 6)
        Next

        For i As Integer = 14 To 16
            tlp_xdyb.Controls.Add(lkl(i), 0, i + 10)
        Next

        For i As Integer = 17 To 21
            tlp_xdyb.Controls.Add(lkl(i), 1, i - 15)
        Next

        For i As Integer = 22 To 26
            tlp_xdyb.Controls.Add(lkl(i), 1, i - 14)
        Next

        For i As Integer = 27 To 35
            tlp_xdyb.Controls.Add(lkl(i), 1, i - 13)
        Next

        For i As Integer = 36 To 38
            tlp_xdyb.Controls.Add(lkl(i), 1, i - 12)
        Next

        For i As Integer = 39 To 42
            tlp_xdyb.Controls.Add(lkl(i), 2, i - 37)
        Next

        For i As Integer = 43 To 43
            tlp_xdyb.Controls.Add(lkl(i), 2, i - 35)
        Next

        For i As Integer = 44 To 56
            tlp_xdyb.Controls.Add(lkl(i), 2, i - 30)
        Next

        For i As Integer = 57 To 64
            tlp_xdyb.Controls.Add(lkl(i), 3, i - 55)
        Next

        For i As Integer = 65 To 65
            tlp_xdyb.Controls.Add(lkl(i), 3, i - 51)
        Next

        For i As Integer = 0 To juan.Length - 1
            AddHandler lkl(i).Click, AddressOf lkl_xdyb_Click
        Next

        Dim lbl_xdyb As Label = New Label()
        lbl_xdyb.Anchor = AnchorStyles.None
        lbl_xdyb.AutoSize = True
        lbl_xdyb.Dock = DockStyle.Fill
        lbl_xdyb.Text = "现代中文译本"
        lbl_xdyb.TextAlign = ContentAlignment.MiddleCenter
        tlp_hhb.SetColumnSpan(lbl_xdyb, 4)
        tlp_hhb.SetRowSpan(lbl_xdyb, 2)

        lbl_xdyb.BorderStyle = BorderStyle.FixedSingle
        lbl_xdyb.Font = New Font("黑体", 30, FontStyle.Bold)

        tlp_xdyb.Controls.Add(lbl_xdyb, 0, 27)

        Me.Controls.Add(tlp_xdyb)
        tlp_xdyb.BringToFront()
    End Sub

    Private Sub niv()
        Me.tlp_niv.Visible = False
        tlp_niv.Dock = DockStyle.Fill
        tlp_niv.ColumnCount = 4
        tlp_niv.RowCount = 30

        For i As Integer = 0 To tlp_niv.ColumnCount - 1
            tlp_niv.ColumnStyles.Add(New ColumnStyle(SizeType.Percent, 25.0!))
        Next

        For i As Integer = 0 To tlp_niv.RowCount - 1
            tlp_niv.RowStyles.Add(New RowStyle(SizeType.Percent, 100 / tlp_niv.RowCount * 1.0!))
        Next

        Dim mulu As String() = {"Old Testament", "律法书", "王国前历史书", "王国时期历史书", "被掳后历史书", "诗歌·智慧书", "大先知书", "王国时期小先知书", "被掳后小先知书", "New Testament", "四福音", "教会历史", "保罗书信", "其他使徒书信", "对约翰的启示"}
        Dim lbl As Label() = New Label(mulu.Length) {}
        For i As Integer = 0 To mulu.Length - 1
            lbl(i) = New Label()
            lbl(i).Anchor = AnchorStyles.None
            lbl(i).AutoSize = True

            If i <> 0 And i <> 9 Then
                lbl(i).BorderStyle = BorderStyle.FixedSingle
                lbl(i).Font = New Font("黑体", 15, FontStyle.Bold)
            Else
                tlp_niv.SetColumnSpan(lbl(i), 2)
                lbl(i).Font = New Font("黑体", 15, FontStyle.Bold)
            End If

            lbl(i).Dock = DockStyle.Fill

            lbl(i).Text = mulu(i)
            lbl(i).TextAlign = ContentAlignment.MiddleCenter
            lbl(i).ForeColor = Color.Red

        Next

        tlp_niv.Controls.Add(lbl(0), 0, 0)
        tlp_niv.Controls.Add(lbl(1), 0, 1)
        tlp_niv.Controls.Add(lbl(2), 0, 7)
        tlp_niv.Controls.Add(lbl(3), 0, 13)
        tlp_niv.Controls.Add(lbl(4), 0, 23)
        tlp_niv.Controls.Add(lbl(5), 1, 1)
        tlp_niv.Controls.Add(lbl(6), 1, 7)
        tlp_niv.Controls.Add(lbl(7), 1, 13)
        tlp_niv.Controls.Add(lbl(8), 1, 23)
        tlp_niv.Controls.Add(lbl(9), 2, 0)
        tlp_niv.Controls.Add(lbl(10), 2, 1)
        tlp_niv.Controls.Add(lbl(11), 2, 7)
        tlp_niv.Controls.Add(lbl(12), 2, 13)
        tlp_niv.Controls.Add(lbl(13), 3, 1)
        tlp_niv.Controls.Add(lbl(14), 3, 13)

        Dim juan As String() = {"创世记", "出埃及记", "利未记", "民数记", "申命记", "约书亚记", "士师记", "路得记", "撒母耳记上", "撒母耳记下", "列王纪上", "列王纪下", "历代志上", "历代志下", "以斯拉记", "尼希米记", "以斯帖记", "约伯记", "诗篇", "箴言", "传道书", "雅歌", "以赛亚书", "耶利米书", "耶利米哀歌", "以西结书", "但以理书", "何西阿书", "约珥书", "阿摩司书", "俄巴底亚书", "约拿书", "弥迦书", "那鸿书", "哈巴谷书", "西番雅书", "哈该书", "撒迦利亚书", "玛拉基书", "马太福音", "马可福音", "路加福音", "约翰福音", "使徒行传", "罗马书", "哥林多前书", "哥林多后书", "加拉太书", "以弗所书", "腓立比书", "歌罗西书", "帖撒罗尼迦前书", "帖撒罗尼迦后书", "提摩太前书", "提摩太后书", "提多书", "腓利门书", "希伯来书", "雅各书", "彼得前书", "彼得后书", "约翰壹书", "约翰贰书", "约翰叁书", "犹大书", "启示录"}
        Dim name As String() = {"Genesis", "Exodus", "Leviticus", "Numbers", "Deuteronomy", "Joshua", "Judges", "Ruth", "1st Samuel", "2nd Samuel", "1st Kings", "2nd Kings", "1st Chronicles", "2nd Chronicles", "Ezra", "Nehemiah", "Esther", "Job", "Psalms", "Proverbs", "Ecclesiastes", "Song of Solomon", "Isaiah", "Jeremiah", "Lamentations", "Ezekiel", "Daniel", "Hosea", "Joel", "Amos", "Obadiah", "Jonah", "Micah", "Nahum", "Habakkuk", "Zephaniah", "Haggai", "Zechariah", "Malachi", "Matthew", "Mark", "Luke", "John", "Acts", "Romans", "1st Corinthians", "2nd Corinthians", "Galatians", "Ephesians", "Philippians", "Colossians", "1st Thessalonians", "2nd Thessalonians", "1st Timothy", "2nd Timothy", "Titus", "Philemon", "Hebrews", "James", "1st Peter", "2nd Peter", "1st John", "2nd John", "3rd John", "Jude", "Revelation"}
        Dim lkl As LinkLabel() = New LinkLabel(juan.Length) {}

        For i As Integer = 0 To juan.Length - 1
            lkl(i) = New LinkLabel()
            lkl(i).Anchor = AnchorStyles.None
            lkl(i).AutoSize = True
            lkl(i).Font = New Font("黑体", 15, FontStyle.Bold)
            lkl(i).Text = name(i)
            lkl(i).Name = juan(i)
            lkl(i).TextAlign = ContentAlignment.MiddleCenter
        Next

        For i As Integer = 0 To 4
            tlp_niv.Controls.Add(lkl(i), 0, i + 2)
        Next

        For i As Integer = 5 To 7
            tlp_niv.Controls.Add(lkl(i), 0, i + 3)
        Next

        For i As Integer = 8 To 13
            tlp_niv.Controls.Add(lkl(i), 0, i + 6)
        Next

        For i As Integer = 14 To 16
            tlp_niv.Controls.Add(lkl(i), 0, i + 10)
        Next

        For i As Integer = 17 To 21
            tlp_niv.Controls.Add(lkl(i), 1, i - 15)
        Next

        For i As Integer = 22 To 26
            tlp_niv.Controls.Add(lkl(i), 1, i - 14)
        Next

        For i As Integer = 27 To 35
            tlp_niv.Controls.Add(lkl(i), 1, i - 13)
        Next

        For i As Integer = 36 To 38
            tlp_niv.Controls.Add(lkl(i), 1, i - 12)
        Next

        For i As Integer = 39 To 42
            tlp_niv.Controls.Add(lkl(i), 2, i - 37)
        Next

        For i As Integer = 43 To 43
            tlp_niv.Controls.Add(lkl(i), 2, i - 35)
        Next

        For i As Integer = 44 To 56
            tlp_niv.Controls.Add(lkl(i), 2, i - 30)
        Next

        For i As Integer = 57 To 64
            tlp_niv.Controls.Add(lkl(i), 3, i - 55)
        Next

        For i As Integer = 65 To 65
            tlp_niv.Controls.Add(lkl(i), 3, i - 51)
        Next

        For i As Integer = 0 To juan.Length - 1
            AddHandler lkl(i).Click, AddressOf lkl_niv_Click
        Next

        Dim lbl_niv As Label = New Label()
        lbl_niv.Anchor = AnchorStyles.None
        lbl_niv.AutoSize = True
        lbl_niv.Dock = DockStyle.Fill
        lbl_niv.Text = "新国际版圣经（New International Version，简称NIV）"
        lbl_niv.TextAlign = ContentAlignment.MiddleCenter
        tlp_hhb.SetColumnSpan(lbl_niv, 4)
        tlp_hhb.SetRowSpan(lbl_niv, 2)

        lbl_niv.BorderStyle = BorderStyle.FixedSingle
        lbl_niv.Font = New Font("黑体", 25, FontStyle.Bold)

        tlp_niv.Controls.Add(lbl_niv, 0, 27)

        Me.Controls.Add(tlp_niv)
        tlp_niv.BringToFront()
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
      
    End Sub

    Private Sub tsb_hhb_Click(sender As Object, e As EventArgs)
        If Me.tlp_hhb.Visible Or Me.tlp_xyb.Visible Or Me.tlp_lzz.Visible Or Me.tlp_xdyb.Visible Or Me.tlp_niv.Visible Then
            Me.tlp_hhb.Visible = False
            Me.tlp_xyb.Visible = False
            Me.tlp_lzz.Visible = False
            Me.tlp_xdyb.Visible = False
            Me.tlp_niv.Visible = False
            Return
        End If
        Me.tlp_hhb.Visible = True
        Me.tlp_xyb.Visible = False
        Me.tlp_lzz.Visible = False
        Me.tlp_xdyb.Visible = False
        Me.tlp_niv.Visible = False
    End Sub

    Private Sub tsb_xyb_Click(sender As Object, e As EventArgs)
        If Me.tlp_hhb.Visible Or Me.tlp_xyb.Visible Or Me.tlp_lzz.Visible Or Me.tlp_xdyb.Visible Or Me.tlp_niv.Visible Then
            Me.tlp_hhb.Visible = False
            Me.tlp_xyb.Visible = False
            Me.tlp_lzz.Visible = False
            Me.tlp_xdyb.Visible = False
            Me.tlp_niv.Visible = False
            Return
        End If
        Me.tlp_hhb.Visible = False
        Me.tlp_xyb.Visible = True
        Me.tlp_lzz.Visible = False
        Me.tlp_xdyb.Visible = False
        Me.tlp_niv.Visible = False
    End Sub

    Private Sub tsb_lzz_Click(sender As Object, e As EventArgs)
        If Me.tlp_hhb.Visible Or Me.tlp_xyb.Visible Or Me.tlp_lzz.Visible Or Me.tlp_xdyb.Visible Or Me.tlp_niv.Visible Then
            Me.tlp_hhb.Visible = False
            Me.tlp_xyb.Visible = False
            Me.tlp_lzz.Visible = False
            Me.tlp_xdyb.Visible = False
            Me.tlp_niv.Visible = False
            Return
        End If
        Me.tlp_hhb.Visible = False
        Me.tlp_xyb.Visible = False
        Me.tlp_lzz.Visible = True
        Me.tlp_xdyb.Visible = False
        Me.tlp_niv.Visible = False
    End Sub

    Private Sub tsb_xdyb_Click(sender As Object, e As EventArgs)
        If Me.tlp_hhb.Visible Or Me.tlp_xyb.Visible Or Me.tlp_lzz.Visible Or Me.tlp_xdyb.Visible Or Me.tlp_niv.Visible Then
            Me.tlp_hhb.Visible = False
            Me.tlp_xyb.Visible = False
            Me.tlp_lzz.Visible = False
            Me.tlp_xdyb.Visible = False
            Me.tlp_niv.Visible = False
            Return
        End If
        Me.tlp_hhb.Visible = False
        Me.tlp_xyb.Visible = False
        Me.tlp_lzz.Visible = False
        Me.tlp_xdyb.Visible = True
        Me.tlp_niv.Visible = False
    End Sub

    Private Sub tsb_niv_Click(sender As Object, e As EventArgs)
        If Me.tlp_hhb.Visible Or Me.tlp_xyb.Visible Or Me.tlp_lzz.Visible Or Me.tlp_xdyb.Visible Or Me.tlp_niv.Visible Then
            Me.tlp_hhb.Visible = False
            Me.tlp_xyb.Visible = False
            Me.tlp_lzz.Visible = False
            Me.tlp_xdyb.Visible = False
            Me.tlp_niv.Visible = False
            Return
        End If
        Me.tlp_hhb.Visible = False
        Me.tlp_xyb.Visible = False
        Me.tlp_lzz.Visible = False
        Me.tlp_xdyb.Visible = False
        Me.tlp_niv.Visible = True
    End Sub

    Private Sub lkl_hhb_Click(sender As Object, e As EventArgs)
        Dim s As String = CType(sender, LinkLabel).Text
        Me.selecthb(s, "strjw")
        Me.tlp_hhb.Visible = False
        Me.tlp_xyb.Visible = False
        Me.tlp_lzz.Visible = False
        Me.tlp_xdyb.Visible = False
        Me.tlp_niv.Visible = False
    End Sub

    Private Sub lkl_xyb_Click(sender As Object, e As EventArgs)
        Dim s As String = CType(sender, LinkLabel).Text
        Me.selecthb(s, "NCB")
        Me.tlp_hhb.Visible = False
        Me.tlp_xyb.Visible = False
        Me.tlp_lzz.Visible = False
        Me.tlp_xdyb.Visible = False
        Me.tlp_niv.Visible = False
    End Sub

    Private Sub lkl_lzz_Click(sender As Object, e As EventArgs)
        Dim s As String = CType(sender, LinkLabel).Text
        Me.selecthb(s, "LCC")
        Me.tlp_hhb.Visible = False
        Me.tlp_xyb.Visible = False
        Me.tlp_lzz.Visible = False
        Me.tlp_xdyb.Visible = False
        Me.tlp_niv.Visible = False
    End Sub

    Private Sub lkl_xdyb_Click(sender As Object, e As EventArgs)
        Dim s As String = CType(sender, LinkLabel).Text
        Me.selecthb(s, "TCB")
        Me.tlp_hhb.Visible = False
        Me.tlp_xyb.Visible = False
        Me.tlp_lzz.Visible = False
        Me.tlp_xdyb.Visible = False
        Me.tlp_niv.Visible = False
    End Sub

    Private Sub lkl_niv_Click(sender As Object, e As EventArgs)
        Dim s As String = CType(sender, LinkLabel).Name
        Me.selecthb(s, "NIV")
        Me.tlp_hhb.Visible = False
        Me.tlp_xyb.Visible = False
        Me.tlp_lzz.Visible = False
        Me.tlp_xdyb.Visible = False
        Me.tlp_niv.Visible = False
    End Sub

    Private Sub selecthb(ShortName As String, version As String)
        Dim ChapterSN As Integer = 0
        Dim VerseSN As Integer = 0

        While ChapterSN = 0                                                                          '条件无限循环
            Dim s As String = InputBox("输入章数", ShortName, "1")                             '定义输入框
            If s = Nothing Or s.Equals("") Or s.Length > 3 Then                                 '判断如果输入的不是空或者不是空字符串或者长度大于三才可以跳出循环
                Continue While
            End If
            ChapterSN = Val(s)                                                                       '章数转换为整数
        End While

        While VerseSN = 0
            Dim s As String = InputBox("输入节数", ShortName & "第" & ChapterSN & "章", "1")
            If s = Nothing Or s.Equals("") Or s.Length > 3 Then
                Continue While
            End If
            VerseSN = Val(s)
        End While

        Me.rtb.Hide()
        Me.rtb.Clear()
        Me.rtb.SelectionColor = Color.OrangeRed
        Me.rtb.AppendText("《" & ShortName & "》" & "第" & ChapterSN & "章" & vbVerticalTab)

        'Using con As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=bibleNosound.dat;Persist Security Info=True;Jet OLEDB:Database Password=pasitoldata")
        Using con As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=bible7.dat;Persist Security Info=True;Jet OLEDB:Database Password=gqrjabcde")
            Using cmd As OleDbCommand = New OleDbCommand("select * from bible, bibleid where bible.VolumeSN = bibleid.SN and FullName = @ShortName and ChapterSN = @ChapterSN and VerseSN >= @VerseSN", con)
                cmd.Parameters.AddWithValue("ShortName", ShortName) : cmd.Parameters.AddWithValue("ChapterSN", ChapterSN) : cmd.Parameters.AddWithValue("VerseSN", VerseSN) : con.Open()
                Using sdr As OleDbDataReader = cmd.ExecuteReader()
                    Dim i As Integer = 0
                    While sdr.Read()
                        Me.rtb.SelectionColor = Color.White : Me.rtb.AppendText("(" & sdr("VerseSN") & ")" & vbTab)
                        If i Mod 3 = 0 Then '隔行变色
                            Me.rtb.SelectionColor = Color.Cyan
                        ElseIf i Mod 3 = 1 Then
                            Me.rtb.SelectionColor = Color.Magenta
                        Else
                            Me.rtb.SelectionColor = Color.Yellow
                        End If
                        Me.rtb.AppendText(sdr(version) & vbVerticalTab)                                             '每次循环追加新内容
                        i += 1
                    End While
                End Using
            End Using
        End Using

        Me.rtb.Select(0, 0)
        Me.rtb.Focus()
        Me.rtb.Show()
        Me.rtb.Focus()
        Me.rtb.Select(0, 0)
    End Sub
End Class