vb.net圣经带快捷键，用原装的数据库

'Imports System.Data.SqlServerCe
Imports System.Text.RegularExpressions
Imports System.Data.OleDbPublic Class Form1Dim jiuyue As String() = {"创", "出", "利", "民", "申", "书", "士", "得", "撒上", "撒下", "王上", "王下", "代上", "代下", "拉", "尼", "斯", "伯", "诗", "箴", "传", "歌", "赛", "耶", "哀", "结", "但", "何", "珥", "摩", "俄", "拿", "弥", "鸿", "哈", "番", "该", "亚", "玛"}Dim xinyue As String() = {"太", "可", "路", "约", "徒", "罗", "林前", "林后", "加", "弗", "腓", "西", "帖前", "帖后", "提前", "提后", "多", "门", "来", "雅", "彼前", "彼后", "约壹", "约贰", "约叁", "犹", "启"}Dim tsl As ToolStripLabel = New ToolStripLabel("按f5全屏，esc退出全屏")Dim msjiuyue As MenuStrip = New MenuStrip()Dim msxinyue As MenuStrip = New MenuStrip()Dim rtb As RichTextBox = New RichTextBox()Dim rtb2 As RichTextBox = New RichTextBox()Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Loadrtb.Dock = DockStyle.Fillrtb.Font = New Font("黑体", 70, FontStyle.Bold)rtb.BackColor = Color.Blackrtb.ReadOnly = TrueFor i As Integer = 0 To jiuyue.Length - 1Dim tsb As ToolStripButton = New ToolStripButton(jiuyue(i))AddHandler tsb.Click, AddressOf tsbClickIf i < 5 Thentsb.BackColor = Color.CyanElseIf i < 17 Thentsb.BackColor = Color.MagentaElseIf i < 22 Thentsb.BackColor = Color.YellowElseIf i < 39 Thentsb.BackColor = Color.PinkEnd Ifmsjiuyue.Items.Add(tsb)Next iFor i As Integer = 0 To xinyue.Length - 1Dim tsb As ToolStripButton = New ToolStripButton(xinyue(i))AddHandler tsb.Click, AddressOf tsbClickIf i < 4 Thentsb.BackColor = Color.CyanElseIf i < 5 Thentsb.BackColor = Color.MagentaElseIf i < 26 Thentsb.BackColor = Color.YellowElseIf i < 27 Thentsb.BackColor = Color.PinkEnd Ifmsxinyue.Items.Add(tsb)Next imsxinyue.Items.Add(tsl)Me.WindowState = FormWindowState.MaximizedMe.Controls.Add(msxinyue)Me.Controls.Add(msjiuyue)Me.Controls.Add(rtb)Me.KeyPreview = True '开启键盘监听AddHandler Me.KeyDown, AddressOf f5escClickEnd SubPrivate Sub tsbClick(sender As Object, e As EventArgs)Dim s As String = CType(sender, ToolStripButton).Textselecthb(s)End SubPrivate Sub selecthb(ShortName As String)Dim s As String = InputBox("输入章数，开始小节,中间用空格分开", "输入章节数，中间用空格间隔", "1 1")If s = Nothing ThenReturnElseIf s.Equals("") ThenReturnEnd IfDim fenge As String() = s.Split(" ")If fenge.Length < 2 ThenReturnEnd IfIf Not IsNumeric(fenge(0).Trim()) Or Not IsNumeric(fenge(1).Trim()) ThenReturnEnd IfMe.rtb.Text = ""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 ShortName = @ShortName and ChapterSN = @ChapterSN and VerseSN >= @VerseSN", con)cmd.Parameters.AddWithValue("ShortName", ShortName)cmd.Parameters.AddWithValue("ChapterSN", fenge(0))cmd.Parameters.AddWithValue("VerseSN", fenge(1))con.Open()Using sdr As OleDbDataReader = cmd.ExecuteReader()Dim i As Integer = 0While sdr.Read()If i Mod 3 = 0 ThenMe.rtb.SelectionColor = Color.CyanElseIf i Mod 3 = 1 ThenMe.rtb.SelectionColor = Color.MagentaElseMe.rtb.SelectionColor = Color.YellowEnd IfMe.rtb.AppendText(Chr(13) & sdr("ShortName") & ":" & sdr("ChapterSN") & ":" & sdr("VerseSN") & sdr("strjw"))i += 1End WhileEnd UsingEnd UsingEnd UsingMe.rtb.Select(0, 0)Me.rtb.Focus()End SubPublic Sub sql()Using con As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=bibleNosound.mdb;Persist Security Info=True")Using cmd As OleDbCommand = New OleDbCommand("select fullname,shortname,chapterSn,versesn,strjw from bible, bibleid where volumesn = sn", con)Using oda As OleDbDataAdapter = New OleDbDataAdapter(cmd)Using dt As DataTable = New DataTable()oda.Fill(dt)Dim dgv As DataGridView = New DataGridView()dgv.Dock = DockStyle.Filldgv.DataSource = dtMe.Controls.Add(dgv)End UsingEnd UsingEnd UsingEnd UsingEnd SubPrivate Sub f5escClick(sender As Object, e As KeyEventArgs) '实现监听键盘事件Dim kc As Keys = e.KeyCodeIf kc = Keys.F5 ThenMe.msjiuyue.Visible = FalseMe.msxinyue.Visible = FalseElseIf kc = Keys.Escape ThenMe.msjiuyue.Visible = TrueMe.msxinyue.Visible = TrueEnd IfEnd SubEnd Class