Microsoft Visual Basic - Encyclopaedia Gentium Boni

frmBible - 34
Public Sub mnuHe_Click()
Load frmPDF
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bdb.pdf")
frmPDF.pdfmain.setCurrentPage (319)
frmPDF.Caption = "The Abridged Brown-Driver-Briggs"
frmPDF.Show
End Sub
Private Sub mnuHebrewChaldee_Click()
Dim adresse$
adresse = "http://books.google.fr/books?ie=UTF-8&id=dxCBQLh9-9kC&pg=PP3&printsec=2&lpg=PP3"
frmBrowser.cboAddress.Text = adresse
frmBrowser.Show
End Sub
Public Sub mnuHeth_Click()
Load frmPDF
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bdb.pdf")
frmPDF.pdfmain.setCurrentPage (392)
frmPDF.Caption = "The Abridged Brown-Driver-Briggs"
frmPDF.Show
End Sub
Public Sub mnuHitch_Click()
Load frmDictionnaires
frmDictionnaires.Show
frmDictionnaires.cboEncyclo.Text = "Hitchcock"
End Sub
Private Sub mnuHolman_Click()
frmBrowser.cboAddress.Text = "http://www.studylight.org/dic/hbd/"
'
End Sub
Public Sub mnuIBE_Click()
Load frmDictionnaires
frmDictionnaires.Show
frmDictionnaires.optEncyclopaedia.Value = True
frmDictionnaires.cboEncyclo.Text = "ISBE"
End Sub
Public Sub mnuJER_Click()
frmBrowser.cboAddress.Text = "http://www.tradere.com/biblio/bdj/index.htm"
End Sub
Public Sub mnuJFB_Click()
frmBrowser.cboAddress.Text = "http://bible.crosswalk.com/Commentaries/JamiesonFaussetBrown/"
End Sub
Public Sub mnuJVI_Click()
frmBrowser.cboAddress.Text = "http://bible.crosswalk.com/Dictionaries/JVIProphecyDictionary/"
End Sub
Public Sub mnuKJVDic_Click()
Load frmDictionnaires
frmDictionnaires.Show
frmDictionnaires.optKJVD.Value = True
End Sub
Public Sub mnuKof_Click()
Load frmPDF
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bdb.pdf")
frmPDF.pdfmain.setCurrentPage (639)
frmPDF.Caption = "The Abridged Brown-Driver-Briggs"
frmPDF.Show
End Sub
Public Sub mnuIota_Click()
Load frmPDF
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bailly\Bailly.pdf")
frmPDF.pdfmain.setCurrentPage (429)