颜色稍微加亮一点

关于VB.NET的相关内容
原创 于 2024-05-18 21:00:33 发布 · 152 阅读 · 0 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
文章标签：

#vb.net 

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
                            Me.rtb.SelectionColor = Color.FromArgb(63, 255, 255)
                        ElseIf i Mod 3 = 1 Then
                            'Me.rtb.SelectionColor = Color.Magenta
                            Me.rtb.SelectionColor = Color.FromArgb(255, 63, 255)
                        Else
                            'Me.rtb.SelectionColor = Color.Yellow
                            Me.rtb.SelectionColor = Color.FromArgb(255, 255, 63)
                        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

基于PHP的源代码加亮类 KindSyntax.zip
08-29
源代码加亮是通过识别代码中的语法元素，如关键字、变量、字符串、注释等，并用不同的颜色或样式来突出它们，从而提高代码的可读性。这对于阅读和理解代码至关重要，尤其是当代码较长或者涉及到多种语言结构时。传统...
五种翻译版本加NIV版圣经
www_oracle_com的博客
05-18 195
【代码】五种翻译版本加NIV版圣经。
《Bible》各版本
Eric
11-02 1万+
《Bible》各版本  《圣经》的英文版本很多，包括： 1、KJV(King James Version)，英王钦定版 2、NIV(New International Version)，新国际版 3、NRSV(New Revised Standard Version)，新修订标准版 4、GNT(Good News Translation)，好消息本 5、
Bible NIV version
03-23
NIV版本的英文圣经，PDF文件格式，随身携带方便，五兆左右的大小
RGB颜色空间、色调、饱和度、亮度、HSV颜色空间详解
热门推荐
17岁boy的博客
03-26 11万+
一．概述本文章会详细的介绍RGB颜色空间与RGB三色中色调、饱和度、亮度之间的关系，最后会介绍HSV颜色空间！一．RGB颜色空间1.起源RGB三原色起源于上世纪初1809年ThomasYoung提出视觉的三原色学说，随后Helmholtz在1824年也提出了三原色学说：即：视网膜存在三种视锥细胞，分别含有对红、绿、蓝三种光线敏感的视色素，当一定波长的光线作用于视网膜时，以一定的比例使三种...
css设置背景颜色的亮度
CycleByle的博客
10-11 4069
使用方法： div{ background-color: red; filter:brightness(1);/* 设置亮度值，范围：0-1 */ } 不兼容的话设置： -webkit-filter:brightness(1); -o-filter:brightness(1); -moz-filter:brightness(1);
js根据给定颜色生成更亮/暗/颜色
宏斌的博客
02-10 1607
实现思路： 将形如 #123456 两两分出来 转成10机制 对应rgb格式 根据传入数值调整后再转换回16进制 /** * @description: 调整颜色更亮更暗 * @param {string} color 六位十六禁止颜色 * @param {number} range 正负数决定颜色更改 * @return {string} new color */ function adjustColor(color, range) { let newColor = '#'; fo..
解决利用 opencv 调亮图片时，颜色改变问题
落队的飞行兵
12-10 2487
今天写代码时，需要将图片的亮度进行调整，我是直接在读出来的 R、G、B三个通道上分别增加了一个固定的值。由于颜色值是在[0, 255]区间内的，正常来讲，即使超出了这个范围，利用 opencv 进行展示之前的合并中，也是会自动截断的。但是还是出现了颜色改变的问题。代码如下：
JavaScript获取某个颜色更亮或更暗的颜色
JIZQAQ学习&踩坑笔记本
05-24 1551
业务需求是，有一堆颜色可以供我选择，选了之后加一个边框表示已经被选择上了。边框颜色要比原本颜色更深一些。 开始是参考了下面这篇文章，来获得边框拿圈更深的颜色。 javascript对任意颜色获取更亮或更暗的颜色值 https://segmentfault.com/a/1190000010284529 但是遇到一点问题，大部分颜色看起来效果都挺好的。 但是个别颜色，明显获得到的颜色是有差异的 我打印了一下中间值，发现几个明显颜色不对的，都是r=0，然后转回16进制的时候发生了问题少了2
第一篇 关于亮度与颜色的理解
finger157959的博客
06-11 3742
先来说说图像吧。从专业的角度上来讲，图像是基于时间域在二维平面里的数字信号表现。这里有一个名词叫二维平面，之所以这么说，其实还一种我常见的信息，即音频，是基于时间域在一维数字信号的表现。对于图像，我们常见的表现方式，要么是黑白的，要么彩色的。嗯，像早年70，80年代的时候的照片最流行的就是黑白。到后面技术革新出现了彩色照片，我们可以理解为它们是基于模拟信号的表现。现在我们一般获取到的都是经过光电转换成数字信号后的数字图像。黑白图像，主要是通过不同的亮度对比的强度来表现图像的内容。而彩色图像，则是通过不同的颜
电脑屏幕亮度随背景颜色变化而变化
A Bear的博客
06-09 2万+
问题所在（我的电脑win10 - 教育版）此次主要针对笔记本电脑 我出现这个问题的英文电脑屏幕看到黑色或灰色的图片时，电脑的亮度会逐渐降低，等背景色变白电脑亮度也会逐渐变亮 解答陈列 1：win10系统服务监控问题;链接：https://zhidao.baidu.com/question/499372655.html 1）...
精选资源
LED显示屏亮度和颜色的调整方法
01-19
1引言 　目前，双基色发光二极管（ＬＥＤ）显示屏的生产制造数量比较多，其...经过多点调整的显示屏不仅均匀性比较好，而且显示图像的亮度、颜色效果更好，专用显示扫描电路具有比较好的显示效果，但是价格相对较贵。
精选资源
屏幕取色器，获取电脑屏幕任何一点的RGB颜色及坐标
03-28
RGB是一种加色模型，代表红色（Red）、绿色（Green）和蓝色（Blue）。在电子显示器上，这三种颜色的光以不同比例混合可以产生几乎所有的颜色。每个颜色通道的值通常在0到255之间，其中0表示无该颜色，255表示最大...
显示/光电技术中的LED显示屏亮度和颜色的调整方法
11-18
1引言 　目前，双基色发光二极管（ＬＥＤ）显示屏的生产制造数量比较多，其...经过多点调整的显示屏不仅均匀性比较好，而且显示图像的亮度、颜色效果更好，专用显示扫描电路具有比较好的显示效果，但是价格相对较贵。
ffmpeg滤镜调整颜色明艳和亮度
u010029439的博客
12-03 1万+
1.亮度 eq 设置亮度、对比度、饱和度和近似伽马(gamma)调整 滤镜支持下面选项： contrast 设置contrast表达式，值必须是一个-2.0-2.0间的浮点数，默认为0 brightness 设置brightness表达式.值必须是一个-1.0-1.0间的浮点数，默认为0 saturation 设置saturation表达式. 值必须是一...
前端开发攻略---使用Sass调整颜色亮度，实现Element组件库同款按钮
nibabaoo的博客
05-08 832
使用Sass调整颜色亮度，实现Element同款按钮
粒子群优化与遗传算法的混合体应用于流车间调度.zip
12-01
1.版本：matlab2014a/2019b/2024b 2.附赠案例数据可直接运行。 3.代码特点：参数化编程、参数可方便更改、代码编程思路清晰、注释明细。 4.适用对象：计算机，电子信息工程、数学等专业的大学生课程设计、期末大作业和毕业设计。
Pytorch基于LSTM-KAN、BiLSTM-KAN、GRU-KAN、TCN-KAN、Transformer-KAN(各种KAN修改一行代码搞定)的共享单车租赁预测研究(数据可换)Python
最新发布
12-01
【Pytorch】基于LSTM-KAN、BiLSTM-KAN、GRU-KAN、TCN-KAN、Transformer-KAN(各种KAN修改一行代码搞定)的共享单车租赁预测研究(数据可换)Python
【无线传感器】使用 MATLAB和 XBee连续监控温度传感器无线网络研究（Matlab代码实现）
12-01
【无线传感器】使用 MATLAB和 XBee连续监控温度传感器无线网络研究（Matlab代码实现）内容概要：本文围绕使用MATLAB和XBee技术实现温度传感器无线网络的连续监控展开研究，介绍了如何构建无线传感网络系统，并利用MATLAB进行数据采集、处理与可视化分析。系统通过XBee模块实现传感器节点间的无线通信，实时传输温度数据至主机，MATLAB负责接收并处理数据，实现对环境温度的动态监测。文中详细阐述了硬件连接、通信协议配置、数据解析及软件编程实现过程，并提供了完整的MATLAB代码示例，便于读者复现和应用。该方案具有良好的扩展性和实用性，适用于远程环境监测场景。; 适合人群：具备一定MATLAB编程基础和无线通信基础知识的高校学生、科研人员及工程技术人员，尤其适合从事物联网、传感器网络相关项目开发的初学者与中级开发者。; 使用场景及目标：①实现基于XBee的无线温度传感网络搭建；②掌握MATLAB与无线模块的数据通信方法；③完成实时数据采集、处理与可视化；④为环境监测、工业测控等实际应用场景提供技术参考。; 阅读建议：建议读者结合文中提供的MATLAB代码与硬件连接图进行实践操作，先从简单的点对点通信入手，逐步扩展到多节点网络，同时可进一步探索数据滤波、异常检测、远程报警等功能的集成。
最浅的颜色稍微深一点
09-05
我们之前生成的三色渐变方案中最浅的颜色是`#E6F2F3`，现在用户希望将这个最浅的颜色调整得稍微深一点。 在之前的生成方法中，我们是通过在HSV空间中调整明度V来生成渐变。具体来说，我们生成了三个颜色，其中： ...
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
表情包 代码片
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值