Microsoft Visual Basic - Encyclopaedia Gentium Boni

frmBible - 29
Public Sub mnuBurton_Click()
frmBrowser.cboAddress.Text = "http://www.dabar.org/BurtonMoodsTenses/Main-Burton.html"
'
End Sub
Public Sub mnuCBC_Click()
frmBrowser.cboAddress.Text = "http://bible.crosswalk.com/Encyclopedias/CondensedBiblicalCyclopedia/
"
End Sub
Public Sub mnuCBC2_Click()
Load frmDictionnaires
frmDictionnaires.Show
frmDictionnaires.optCBC.Value = True
End Sub
Public Sub mnuCE_Click()
frmBrowser.cboAddress.Text = "http://www.newadvent.org/cathen/"
End Sub
Public Sub mnuDarby_Click()
frmBrowser.cboAddress.Text = "http://bible.crosswalk.com/Commentaries/DarbysSynopsisofNewTestament/
"
End Sub
Public Sub mnuDavid_Click()
frmBrowser.cboAddress.Text = "http://bible.crosswalk.com/Commentaries/TreasuryofDavid/"
End Sub
Public Sub mnuBurton2_Click()
Load frmPDF
frmPDF.pdfmain.LoadFile (App.Path & "\ref\burton\burton.pdf")
frmPDF.pdfmain.setCurrentPage (6)
frmPDF.Caption = "Burton - Moods and Tenses of New Testament Greek"
frmPDF.Show
End Sub
Private Sub mnuCAF_Click()
Load frmPDF
frmPDF.pdfmain.LoadFile (App.Path & "\ref\Dicogr\LMG.pdf")
frmPDF.Caption = "P. Crouzet, P. Andraud, A. Font - Dictionnaire grec-français [Méthode grecque, 19
27]"
frmPDF.Show
End Sub
Private Sub mnuCatenaRC_Click()
livre = frmBible.cboLivre.Text
chapitre = frmBible.txtChapitre.Text
Call eCatena(livre, chapitre)
End Sub
Public Sub mnuCellerier_Click()
Load frmPDF
frmPDF.pdfmain.LoadFile (App.Path & "\ref\cel\cellerier.pdf")
frmPDF.Caption = "Cellerier - Elements de grammaire hébraïque"
frmPDF.Show
End Sub
Public Sub mnuConybeare_Click()
Load frmPDF
frmPDF.pdfmain.LoadFile (App.Path & "\ref\cony\conybeare.pdf")
frmPDF.Caption = "Conybeare - A Grammar of Septuagint Greek"
frmPDF.Show
End Sub
Public Sub mnuDalet_Click()
Load frmPDF
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bdb.pdf")
frmPDF.pdfmain.setCurrentPage (284)
frmPDF.Caption = "The Abridged Brown-Driver-Briggs"