Microsoft Visual Basic - Encyclopaedia Gentium Boni

frmBible - 33
.0074"
End Sub
Public Sub mnuGim_Click()
Load frmPDF
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bdb.pdf")
frmPDF.pdfmain.setCurrentPage (230)
frmPDF.Caption = "The Abridged Brown-Driver-Briggs"
frmPDF.Show
End Sub
Private Sub mnuGingrich_Click()
Dim adresse$
adresse = App.Path & "\ref\a&g\main.htm"
frmBrowser.cboAddress.Text = adresse
frmBrowser.Show
End Sub
Public Sub mnuGoodwinG_Click()
Load frmPDF
frmPDF.pdfmain.LoadFile (App.Path & "\ref\goodw\GoodwinG.pdf")
frmPDF.Caption = "Goodwin - Greek Grammar"
frmPDF.Show
End Sub
Public Sub mnuGoodwinS_Click()
Load frmPDF
frmPDF.pdfmain.LoadFile (App.Path & "\ref\goodw\GoodwinS.pdf")
frmPDF.Caption = "Goodwin - Syntax of the Moods and Tenses of the Greek Verb"
frmPDF.Show
End Sub
Public Sub mnugrechebreu_Click()
Load frmGrecHebreu
frmGrecHebreu.Show
End Sub
Public Sub mnuGreek_Click()
frmBrowser.cboAddress.Text = "http://bible.crosswalk.com/Lexicons/Greek/"
End Sub
Public Sub mnuGreekOnly_Click()
cboVersion.Clear
cboVersion.AddItem ("LXX")
cboVersion.AddItem ("NA26+")
cboVersion.AddItem ("W/H & Strong")
cboVersion.AddItem ("Stephanus")
cboVersion.AddItem ("Scrivener")
cboVersion.Text = "NA26+"
cboVersion.Text = "NA27"
cboLivre.Text = "Matthieu"
txtChapitre.Text = "1"
txtverset.Text = "1"
btnGo_Click
End Sub
Public Sub mnuGrekkbible_Click()
frmBrowser.cboAddress.Text = "http://www.greekbible.com/"
End Sub
Public Sub mnuHebrewOnly_Click()
cboLivre.Text = "Genèse"
txtChapitre.Text = "1"
txtverset.Text = "1"
cboVersion.Clear
cboVersion.AddItem ("BHS")
cboVersion.Text = "BHS"
btnGo_Click
End Sub