Microsoft Visual Basic - Encyclopaedia Gentium Boni

frmBible - 26
Public Sub mnuA_Click()
Load frmPDF
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bdb.pdf")
frmPDF.Caption = "The Abridged Brown-Driver-Briggs"
frmPDF.Show
End Sub
Public Sub mnuAbel_Click()
Load frmPDF
frmPDF.pdfmain.LoadFile (App.Path & "\ref\abel\abel.pdf")
frmPDF.Caption = "Abel, Grammaire de grec biblique"
frmPDF.Show
End Sub
Public Sub mnuAG_Click()
Load frmGrammaire
ssaidegr = False
frmGrammaire.Show
End Sub
Public Sub mnuAlpha_Click()
Load frmPDF
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bailly\Bailly.pdf")
frmPDF.pdfmain.setCurrentPage (2)
frmPDF.Caption = "Anatole Bailly - Abrégé du Dictionnaire grec-français [984p.]"
frmPDF.Show
End Sub
Private Sub mnuAntiquites_Click()
Load frmPDF
frmPDF.pdfmain.LoadFile (App.Path & "\ref\grk\AGrecques.pdf")
frmPDF.Caption = "P. Paris/G. Roques, Lexique des Antiquités grecques et latines (1909)"
frmPDF.Show
'AGrecques.pdf
End Sub
Private Sub mnuApparatCritique_Click()
livre = cboLivre.Text
chapitre = txtChapitre.Text
verset = txtverset.Text
If livre = "Matthieu" Then
chercher = "47"
ElseIf livre = "Marc" Then
chercher = "48"
ElseIf livre = "Luc" Then
chercher = "49"
ElseIf livre = "Jean" Then
chercher = "50"
ElseIf livre = "Actes" Then
chercher = "51"
ElseIf livre = "Romains" Then
chercher = "52"
ElseIf livre = "1 Corinthiens" Then
chercher = "53"
ElseIf livre = "2 Corinthiens" Then
chercher = "54"
ElseIf livre = "Galates" Then
chercher = "55"
ElseIf livre = "Ephésiens" Then
chercher = "56"
ElseIf livre = "Philippiens" Then
chercher = "57"
ElseIf livre = "Colossiens" Then
chercher = "58"
ElseIf livre = "1 Thessaloniciens" Then
chercher = "59"
ElseIf livre = "2 Thessaloniciens" Then
chercher = "60"
ElseIf livre = "1 Timothée" Then
chercher = "61"
ElseIf livre = "2 Timothée" Then
chercher = "62"