圣经投屏开始菜单版本2024年5月15日版本

Imports System.Data.OleDb

Public Class Form1

    Private ms As MenuStrip = New MenuStrip()
    Private tsb As ToolStripButton = New ToolStripButton("开始")

    Private tlp As TableLayoutPanel = New TableLayoutPanel()
    Private lbl_shengjingmulu As Label = New Label()
    Private lbl_jiuyue As Label = New Label()
    Private lbl_xinyue As Label = New Label()
    Private mulu As String() = {"律法书", "历史书", "诗歌·智慧书", "先知书", "四福音", "教会历史", "书信", "对约翰的启示"}
    Private lbl_mulu As Label() = New Label(8) {}
    Private juan As String() = {"创世记", "出埃及记", "利未记", "民数记", "申命记", "约书亚记", "士师记", "路得记", "撒母耳记上", "撒母耳记下", "列王纪上", "列王纪下", "历代志上", "历代志下", "以斯拉记", "尼希米记", "以斯帖记", "约伯记", "诗篇", "箴言", "传道书", "雅歌", "以赛亚书", "耶利米书", "耶利米哀歌", "以西结书", "但以理书", "何西阿书", "约珥书", "阿摩司书", "俄巴底亚书", "约拿书", "弥迦书", "那鸿书", "哈巴谷书", "西番雅书", "哈该书", "撒迦利亚书", "玛拉基书", "马太福音", "马可福音", "路加福音", "约翰福音", "使徒行传", "罗马书", "哥林多前书", "哥林多后书", "加拉太书", "以弗所书", "腓立比书", "歌罗西书", "帖撒罗尼迦前书", "帖撒罗尼迦后书", "提摩太前书", "提摩太后书", "提多书", "腓利门书", "希伯来书", "雅各书", "彼得前书", "彼得后书", "约翰壹书", "约翰贰书", "约翰叁书", "犹大书", "启示录"}
    Private ll_juan As LinkLabel() = New LinkLabel(66) {}
    Dim rtb As RichTextBox = New RichTextBox()                       '富文本控件

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.WindowState = FormWindowState.Maximized
        ms.Items.Add(tsb)
        AddHandler tsb.Click, AddressOf tsb_Click
        Me.tlp.Visible = False

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





        'Me.tlp.CellBorderStyle = TableLayoutPanelCellBorderStyle.Single
        Me.tlp.Dock = DockStyle.Fill
        Me.tlp.ColumnCount = 4
        Me.tlp.RowCount = 28
        For i As Integer = 0 To 3
            Me.tlp.ColumnStyles.Add(N