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

于 2024-05-15 00:55:09 发布
阅读量171 收藏
点赞数 3
文章标签： vb.net
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/www_oracle_com/article/details/138877397
版权 
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(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 25.0!))
        Next



        For i As Integer = 0 To 27
            Me.tlp.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 3.0!))
        Next

        Me.lbl_shengjingmulu.Anchor = AnchorStyles.None
        Me.lbl_shengjingmulu.AutoSize = True
        Me.lbl_shengjingmulu.Font = New System.Drawing.Font("黑体", 30.0!, System.Drawing.FontStyle.Bold)
        Me.lbl_shengjingmulu.Text = "圣经目录"
        Me.lbl_shengjingmulu.TextAlign = ContentAlignment.MiddleCenter
        Me.tlp.SetColumnSpan(Me.lbl_shengjingmulu, 4)
        Me.tlp.SetRowSpan(Me.lbl_shengjingmulu, 2)
        Me.tlp.Controls.Add(Me.lbl_shengjingmulu, 0, 0)

        Me.lbl_jiuyue.Anchor = AnchorStyles.None
        Me.lbl_jiuyue.AutoSize = True
        Me.lbl_jiuyue.Font = New System.Drawing.Font("黑体", 30.0!, System.Drawing.FontStyle.Bold)
        Me.lbl_jiuyue.Text = "旧约"
        Me.lbl_jiuyue.TextAlign = ContentAlignment.MiddleCenter
        Me.tlp.SetColumnSpan(Me.lbl_jiuyue, 2)
        Me.tlp.SetRowSpan(Me.lbl_jiuyue, 2)
        Me.tlp.Controls.Add(Me.lbl_jiuyue, 0, 2)

        Me.lbl_xinyue.Anchor = AnchorStyles.None
        Me.lbl_xinyue.AutoSize = True
        Me.lbl_xinyue.Font = New System.Drawing.Font("黑体", 30.0!, System.Drawing.FontStyle.Bold)
        Me.lbl_xinyue.Text = "新约"
        Me.lbl_xinyue.TextAlign = ContentAlignment.MiddleCenter
        Me.tlp.SetColumnSpan(Me.lbl_xinyue, 2)
        Me.tlp.SetRowSpan(Me.lbl_xinyue, 2)
        Me.tlp.Controls.Add(Me.lbl_xinyue, 2, 2)

        For i As Integer = 0 To mulu.Length - 1
            lbl_mulu(i) = New Label()
            lbl_mulu(i).Anchor = AnchorStyles.None
            lbl_mulu(i).AutoSize = True
            lbl_mulu(i).Font = New Font("黑体", 30, FontStyle.Bold)
            lbl_mulu(i).Text = mulu(i)
            lbl_mulu(i).TextAlign = ContentAlignment.MiddleCenter
            Me.tlp.SetRowSpan(Me.lbl_mulu(i), 2)
            If i = 0 Then
                Me.tlp.Controls.Add(Me.lbl_mulu(i), 0, 4)
            ElseIf i = 1 Then
                Me.tlp.Controls.Add(Me.lbl_mulu(i), 0, 11)
            ElseIf i = 2 Then
                Me.tlp.Controls.Add(Me.lbl_mulu(i), 0, 25)
            ElseIf i = 3 Then
                Me.tlp.Controls.Add(Me.lbl_mulu(i), 1, 8)
            ElseIf i = 4 Then
                Me.tlp.Controls.Add(Me.lbl_mulu(i), 2, 4)
            ElseIf i = 5 Then
                Me.tlp.Controls.Add(Me.lbl_mulu(i), 2, 10)
            ElseIf i = 6 Then
                Me.tlp.Controls.Add(Me.lbl_mulu(i), 2, 13)
            ElseIf i = 7 Then
                Me.tlp.Controls.Add(Me.lbl_mulu(i), 3, 18)
            End If

        Next i


        For i As Integer = 0 To juan.Length - 1
            Me.ll_juan(i) = New LinkLabel()
            Me.ll_juan(i).Anchor = AnchorStyles.None
            Me.ll_juan(i).AutoSize = True
            Me.ll_juan(i).Font = New System.Drawing.Font("宋体", 15.0!, System.Drawing.FontStyle.Bold)
            Me.ll_juan(i).Text = juan(i)
            Me.ll_juan(i).TextAlign = ContentAlignment.MiddleCenter
            If i < 5 Then
                Me.tlp.Controls.Add(Me.ll_juan(i), 0, i + 6)
            ElseIf i < 17 Then
                Me.tlp.Controls.Add(Me.ll_juan(i), 0, i + 8)
            ElseIf i < 18 Then
                Me.tlp.Controls.Add(Me.ll_juan(i), 0, i + 10)
            ElseIf i < 22 Then
                Me.tlp.Controls.Add(Me.ll_juan(i), 1, i - 14)
            ElseIf i < 39 Then
                Me.tlp.Controls.Add(Me.ll_juan(i), 1, i - 12)
            ElseIf i < 43 Then
                Me.tlp.Controls.Add(Me.ll_juan(i), 2, i - 33)
            ElseIf i < 44 Then
                Me.tlp.Controls.Add(Me.ll_juan(i), 2, i - 31)
            ElseIf i < 51 Then
                Me.tlp.Controls.Add(Me.ll_juan(i), 2, i - 29)
            ElseIf i < 65 Then
                Me.tlp.Controls.Add(Me.ll_juan(i), 3, i - 47)
            ElseIf i < 66 Then
                Me.tlp.Controls.Add(Me.ll_juan(i), 3, i - 45)
            End If

            AddHandler ll_juan(i).Click, AddressOf ll_juan_Click '声明一个事件委托
        Next i
        Me.Controls.Add(rtb)   '把控件加到form里面
        Me.Controls.Add(ms)

        Me.Controls.Add(Me.tlp)
    End Sub


    Private Sub ll_juan_Click(sender As Object, e As EventArgs)
        Me.tlp.Visible = False
        Dim s As String = CType(sender, LinkLabel).Text
        Me.selecthb(s)
    End Sub
    Private Sub selecthb(ShortName 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 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("strjw") & vbVerticalTab)                                             '每次循环追加新内容
                        i += 1
                    End While
                End Using
            End Using
        End Using

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

    Private Sub tsb_Click(sender As Object, e As EventArgs)
        Me.tlp.BringToFront()
        If Me.tlp.Visible = False Then
            Me.tlp.Visible = True
        Else
            Me.tlp.Visible = False
        End If
    End Sub

End Class

甲骨文数据库
关注
  • 3
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
语音投影圣经无声版.rar
05-15
语音投影圣经无声版功能强大、操作简单、一款多媒体圣经软件!本软件采用的是中文和合本圣经,适用个人学习、查经、聚会投影使用。
圣经投屏软件（5种语言版本）
05-18
圣经投屏软件（5种语言版本）
最新投影圣经投影赞美诗歌圣经诗歌2020
zggm0577的博客
01-16 6518
最新更新圣经诗歌2020版的投影圣使用说明： 主要用于教会和小组聚会查经和摘录讲章使用。可以同步扩展或锁定扩展的功能； 使用简单，显示清晰方便阅读。 您当前使用的是《圣经诗歌2020》版的赞美诗歌： 主要用于教会和小组聚会敬拜时使用。可以同步扩展或锁定扩展；使用简单（了解一下后面的快捷键就能够很快上手操作），功能丰富。 程序使用4个诗歌库，及一个预选库...
左旧约，右新约（未检查bug）
www_oracle_com的博客
11-29 23
【代码】左旧约，右新约（未检查bug）
圣经旧约朗读器（电脑版）
09-29
本想在2345软件站发布下，鸟站不喜欢我这个软件，没办法只好再这里和大家见面 本【圣经旧约朗读器】只能在电脑中运行不能再手机中运行，本软件中只能收听圣经旧约。 软件工作时会读取远程服务器中音频文件，所以启动软件时会被防火墙拦截，请准予读取就可以。
可以让你在mac上学习圣经的软件：Bible for Mac
weixin_49864678的博客
05-11 2577
想要在Mac电脑上学习圣经的朋友可以试试这款Bible for Mac！这是基督徒必备的圣经学习软件，Bible mac版包含完整的圣经内容，提供了说话模式和演示模式，想看就看，想听就听，bible for mac版还支持搜索功能，快速帮你找到需要的圣经章节，Bible mac版让你阅读圣经更加便捷，欢迎各位来体验哦！ Bible for mac软件介绍 Bible for mac是一个易于导航的离线圣经应用程序，适用于Mac，具有智能UI和许多有用的功能。它将允许您潜入神圣的经文，而不是互联网的混
深度学习 AI圣经 中文版pdf下载 最新版本
02-25
深度学习 AI圣经 中文最新修正版本 不是样章，就对可以查看完整章节，下载后好用给好评呀，谢了
The Classic Scriptures:经典圣经包含国王詹姆斯版本的圣经-开源
06-29
由“圣人访谈”（现可在 SaintBook.org 上获得）的作者撰写，这款免费的圣经搜索和阅读工具专为那些想要阅读经典经文的人而设计。 作者的五星级书：...
iphone象棋圣经4.0版本
05-12
iphone象棋圣经4.0
Go语言圣经中文版
12-26
Go 语言由来自 Google 公司的 Robert Griesemer，Rob Pike 和 Ken Thompson 三位大牛于 2007 年 9 月开始设计和实现，然后于 2009 年的 11 月对外正式发布(译注:关于 Go 语言 的创世纪过程请参考 http://talks.golang.org/2015/how-go-was-made.slide )。语言及其配套 工具的设计目标是具有表达力，高效的编译和执行效率，有效地编写高效和健壮的程序。
多媒体圣经
10-08
实用的多媒体圣经，可以搜索、查考，中英文双语，按章节书目。方便实用。
桌面圣经良言
09-16
程序实现在桌面显示圣经名言，每天一句，还可设置灵修经文，也可以设置提醒事项。
圣经投屏Java+sqlite3极速版
www_oracle_com的博客
11-05 384
String[] lss = { "约书亚记", "士师记", "路得记", "撒母耳记上", "撒母耳记下", "列王纪上", "列王纪下", "历代志上", "历代志下", "以斯拉记", "尼希米记", "以斯帖记" };String[] xzs = { "以赛亚书", "耶利米书", "耶利米哀歌", "以西结书", "但以理书", "何西阿书", "约珥书", "阿摩司书", "俄巴底亚书", "约拿书", "弥迦书", "那鸿书",开发者：丁林弟兄", "版权声明", 1);
圣经投影demo
SieSteven
07-12 2099
Steven 圣经展示软件 目前没有自己的网站。计划今年12月份自己注册域名购买服务器空间，届时请多多支持。 Steven工作室，专门建站，目前主营门户类网站 原本是一个朋友发起的开源项目，后来由于收回版权，现自己准备重新弄一下。 a 主窗体： b 展示窗体 winform制作。
圣经投屏C#版
www_oracle_com的博客
11-03 89
MessageBox.Show("可供青岛市各大教会免费使用，禁止用作商业用途。namespace 圣经投屏。
chromedriver-mac-arm64_126.0.6474.0.zip
最新发布
07-31
chromedriver-mac-arm64_126.0.6474.0.zip
go语言圣经 pdf
11-06
《Go语言圣经》是一本广受好评的教材，旨在帮助读者系统地学习和掌握Go语言。这本书以简明清晰的方式介绍了Go语言的各种特性、语法和用法，是入门和进阶者的理想选择。 首先，该书提供了对Go语言基础知识的全面介绍...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值