Microsoft Visual Basic - Encyclopaedia Gentium Boni

frmBible - 39
cboVersion.AddItem ("NA26+")
cboVersion.AddItem ("W/H & Strong")
cboVersion.AddItem ("Stephanus")
cboVersion.AddItem ("Scrivener")
cboVersion.AddItem ("Vulgate")
cboVersion.AddItem ("LSG")
cboVersion.AddItem ("Darby")
cboVersion.AddItem ("NBS")
cboLivre.Text = "Genèse"
txtChapitre.Text = "1"
txtverset.Text = "1"
cboVersion.Text = "BHS"
End Sub
Public Sub mnuRJ_Click()
frmBrowser.cboAddress.Text = "http://bible.crosswalk.com/Dictionaries/KingJamesDictionary/"
End Sub
Private Sub mnuRech_Click()
Load frmPDF
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bdb.pdf")
frmPDF.pdfmain.setCurrentPage (1436)
frmPDF.Caption = "The Abridged Brown-Driver-Briggs"
frmPDF.Show
End Sub
Public Sub mnuRecherche_Click()
'Dim i
'i = toto
'msg toto
End Sub
Private Sub mnuRechercheMorphoC_Click()
Dim mot$, vientde$, code$
mot = Trim(txtPassage.SelText)
Call MorphContextuelle(mot, code, vientde)
Unload frmAnalyseMorphologique
Load frmAssistant
frmAssistant.txtMot.Text = mot
frmAssistant.txtcode.Text = code
frmAssistant.txtRecherche.Text = vientde
'frmAssistant.Command2_Click
recherche = vientde & " (" & code & ")"
nveaucode = code
Call RechercheMorphologique(recherche, nveaucode)
frmAssistant.lstPassages.Text = frmAssistant.lstPassages.List(0)
frmAssistant.lstPassages_Click
frmAssistant.Show
End Sub
Public Sub mnuRho_Click()
Load frmPDF
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bailly\Bailly.pdf")
frmPDF.pdfmain.setCurrentPage (773)
frmPDF.Caption = "Anatole Bailly - Abrégé du Dictionnaire grec-français [984p.]"
frmPDF.Show
End Sub
Private Sub mnuRosetta_Click()
Load frmPDF
frmPDF.pdfmain.LoadFile (App.Path & "\ref\Dicoheb\ROS.pdf")
frmPDF.pdfmain.setCurrentPage (1)
frmPDF.Caption = "The Rosetta Stone Hebrew Lexicon"
frmPDF.Show
End Sub
'MsgBox clique
'End Sub
Public Sub mnuRWP_Click()