Microsoft Visual Basic - Encyclopaedia Gentium Boni

frmBible - 38
End Sub
Public Sub mnuOmicronn_Click()
Load frmPDF
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bailly\Bailly.pdf")
frmPDF.pdfmain.setCurrentPage (600)
frmPDF.Caption = "Anatole Bailly - Abrégé du Dictionnaire grec-français [984p.]"
frmPDF.Show
End Sub
Private Sub mnuPé_Click()
Load frmPDF
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bdb.pdf")
frmPDF.pdfmain.setCurrentPage (1265)
frmPDF.Caption = "The Abridged Brown-Driver-Briggs"
frmPDF.Show
End Sub
Private Sub mnuPerseusVulgate_Click()
mot = Trim(frmBible.txtPassage.SelText)
frmBrowser.cboAddress.Text = "http://www.perseus.tufts.edu/hopper/morph.jsp?l=" & mot & "&la=la"
End Sub
Public Sub mnuPhi_Click()
Load frmPDF
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bailly\Bailly.pdf")
frmPDF.pdfmain.setCurrentPage (922)
frmPDF.Caption = "Anatole Bailly - Abrégé du Dictionnaire grec-français [984p.]"
frmPDF.Show
End Sub
Public Sub mnuPi_Click()
Load frmPDF
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bailly\Bailly.pdf")
frmPDF.pdfmain.setCurrentPage (642)
frmPDF.Caption = "Anatole Bailly - Abrégé du Dictionnaire grec-français [984p.]"
frmPDF.Show
End Sub
Public Sub mnuPsi_Click()
Load frmPDF
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bailly\Bailly.pdf")
frmPDF.pdfmain.setCurrentPage (972)
frmPDF.Caption = "Anatole Bailly - Abrégé du Dictionnaire grec-français [984p.]"
frmPDF.Show
End Sub
Private Sub mnuQof_Click()
Load frmPDF
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bdb.pdf")
frmPDF.pdfmain.setCurrentPage (1378)
frmPDF.Caption = "The Abridged Brown-Driver-Briggs"
frmPDF.Show
End Sub
Public Sub mnuQuit_Click()
Unload m_frmSysTray
Set m_frmSysTray = Nothing
End
End Sub
Public Sub mnuRemoveEnglish_Click()
mnuAddEnglish.Checked = False
mnuRemoveEnglish.Checked = True
cboVersion.Clear
cboVersion.AddItem ("BHS")
cboVersion.AddItem ("LXX")