Microsoft Visual Basic - Encyclopaedia Gentium Boni

frmBible - 35
frmPDF.Caption = "Anatole Bailly - Abrégé du Dictionnaire grec-français [984p.]"
frmPDF.Show
End Sub
Private Sub mnuJastrow_Click()
Load frmPDF
frmPDF.pdfmain.LoadFile (App.Path & "\ref\Dicoheb\Jastrow.pdf")
frmPDF.Caption = "Marcus Jastrow - A Dictionary of the Targumim, the Talmud Babli and Yerushalm
i and the Midrashic Literature"
frmPDF.Show
End Sub
Private Sub mnuJE_Click()
frmBrowser.cboAddress.Text = "http://www.jewishencyclopedia.com/index.jsp"
End Sub
Private Sub mnuJO_Click()
mot = Trim(frmBible.txtPassage.SelText)
frmBrowser.cboAddress.Text = "http://collatinus.fltr.ucl.ac.be/jcoll.php?forme=m:" & mot
frmBrowser.Caption = "Analyse Collatinus - Jeanneau"
' *** autres possibilités
' dictionnaire latinogallicum : http://colet.uchicago.edu/cgi-bin/search2e?headword=" & Mot & "&wor
d=" & Mot & "&CONJUNCT=PHRASE&DISTANCE=3&PROXY=or+fewer&OUTPUT=conc&SYSTEM_DIR=%2Fprojects%2Fartflb
%2Fdatabases%2Fartfl%2Fdicos%2Festienne%2Ffulltext%2FIMAGE%2F
End Sub
Private Sub mnuJRCox_Click()
frmBrowser.cboAddress.Text = "http://www.perseus.tufts.edu/hopper/text.jsp?doc=Perseus:text:1999.04
.0052"
End Sub
Public Sub mnuKappa_Click()
Load frmPDF
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bailly\Bailly.pdf")
frmPDF.pdfmain.setCurrentPage (445)
frmPDF.Caption = "Anatole Bailly - Abrégé du Dictionnaire grec-français [984p.]"
frmPDF.Show
End Sub
Public Sub mnuKhi_Click()
Load frmPDF
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bailly\Bailly.pdf")
frmPDF.pdfmain.setCurrentPage (949)
frmPDF.Caption = "Anatole Bailly - Abrégé du Dictionnaire grec-français [984p.]"
frmPDF.Show
End Sub
Public Sub mnuLambda_Click()
Load frmPDF
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bailly\Bailly.pdf")
frmPDF.pdfmain.setCurrentPage (523)
frmPDF.Caption = "Anatole Bailly - Abrégé du Dictionnaire grec-français [984p.]"
frmPDF.Show
End Sub
Public Sub mnuLamed_Click()
Load frmPDF
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bdb.pdf")
frmPDF.pdfmain.setCurrentPage (710)
frmPDF.Caption = "The Abridged Brown-Driver-Briggs"
frmPDF.Show
End Sub
Public Sub mnuLemme_Click()
Dim mot$
mot = frmBible.txtPassage.SelText
If cboVersion.Text = "NA27" Then
RechercheLemmatiqueNA27 (mot)
ElseIf cboVersion.Text = "LXX" Then