Microsoft Visual Basic - Encyclopaedia Gentium Boni

frmBible - 31
End Sub
Private Sub mnuEB1911_Click()
frmBrowser.cboAddress.Text = "http://www.1911encyclopedia.org/"
'
End Sub
Private Sub mnuEBCB_Click()
frmBrowser.cboAddress.Text = "http://www.cwru.edu/UL/preserve/Etana/encyl_biblica_a-d/encyl_biblica
_a-d.html"
End Sub
Public Sub mnuEpsilonn_Click()
Load frmPDF
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bailly\Bailly.pdf")
frmPDF.pdfmain.setCurrentPage (239)
frmPDF.Caption = "Anatole Bailly - Abrégé du Dictionnaire grec-français [984p.]"
frmPDF.Show
End Sub
Public Sub mnuEta_Click()
Load frmPDF
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bailly\Bailly.pdf")
frmPDF.pdfmain.setCurrentPage (398)
frmPDF.Caption = "Anatole Bailly - Abrégé du Dictionnaire grec-français [984p.]"
frmPDF.Show
End Sub
Private Sub mnuEulalie_Click()
Load frmPDF
frmPDF.pdfmain.LoadFile (App.Path & "\ref\grk\Eulalie.pdf")
frmPDF.Caption = "S. Reinach - Eulalie, le grec sans larmes"
frmPDF.Show
End Sub
Public Sub mnuEusebe_Click()
frmBrowser.cboAddress.Text = "http://remacle.org/bloodwolf/historiens/eusebe/index.htm"
'
End Sub
Public Sub mnuFisher_Click()
frmBrowser.cboAddress.Text = "http://www-users.cs.york.ac.uk/~fisher/gnt/chapters.html"
End Sub
Public Sub mnuFrenchOnly_Click()
cboLivre.Text = "Genèse"
txtChapitre.Text = "1"
txtverset.Text = "1"
cboVersion.Clear
cboVersion.AddItem ("LSG")
cboVersion.AddItem ("Darby")
cboVersion.AddItem ("NBS")
cboVersion.Text = "NBS"
btnGo_Click
End Sub
Public Sub mnuFJ_Click()
frmBrowser.cboAddress.Text = "http://remacle.org/bloodwolf/historiens/Flajose/intro.htm"
'
End Sub
Public Sub mnuGeneva_Click()
frmBrowser.cboAddress.Text = "http://bible.crosswalk.com/Commentaries/GenevaStudyBible/"
End Sub
Public Sub mnuGill_Click()
frmBrowser.cboAddress.Text = "http://bible.crosswalk.com/Commentaries/GillsExpositionoftheBible/"
End Sub