Microsoft Visual Basic - Encyclopaedia Gentium Boni

frmBible - 30
frmPDF.Show
End Sub
Private Sub mnuDavis_Click()
frmBrowser.cboAddress.Text = "http://www.earlychristianwritings.com/davis/"
End Sub
Public Sub mnuDelta_Click()
Load frmPDF
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bailly\Bailly.pdf")
frmPDF.pdfmain.setCurrentPage (179)
frmPDF.Caption = "Anatole Bailly - Abrégé du Dictionnaire grec-français [984p.]"
frmPDF.Show
End Sub
Public Sub mnuDicEaston_Click()
Load frmDictionnaires
frmDictionnaires.Show
frmDictionnaires.optEaston.Value = True
frmDictionnaires.cboEncyclo.Text = "Easton"
End Sub
Public Sub mnuDicoLat_Click()
Load frmDicoLatFr
frmDicoLatFr.Show
End Sub
Private Sub mnuDicoLatC_Click()
mot = Trim(txtPassage.SelText)
Load frmDicoLatFr
frmDicoLatFr.Text1.Text = mot
frmDicoLatFr.btnGo_Click
frmDicoLatFr.Show
End Sub
Private Sub mnuDicoST_Click()
Load frmPDF
frmPDF.pdfmain.LoadFile (App.Path & "\ref\ST\ST.pdf")
frmPDF.Caption = "Sander et Trenel - Dictionnaire hébreu-français"
frmPDF.Show
End Sub
Private Sub mnuDictionnairesC_Click()
mot = frmBible.txtPassage.SelText
Load frmDictionnaires
frmDictionnaires.txtRecherche = mot
frmDictionnaires.optEaston.Value = True
frmDictionnaires.btnRechercher_Click
frmDictionnaires.Show
End Sub
Public Sub mnuDictSmith_Click()
Load frmDictionnaires
frmDictionnaires.Show
frmDictionnaires.optSmith.Value = True
frmDictionnaires.cboEncyclo.Text = "Smith"
End Sub
Public Sub mnuEastond_Click()
frmBrowser.cboAddress.Text = "http://bible.crosswalk.com/Dictionaries/EastonBibleDictionary/"
End Sub
Public Sub mnuDzeta_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
Public Sub mnueCatena_Click()
frmBrowser.cboAddress.Text = "http://www.earlychristianwritings.com/e-catena/"