Microsoft Visual Basic - Encyclopaedia Gentium Boni

frmBible - 41
' Exit Sub
'End If
' prononciation & gestion erreur
'If frmBible.txtPassage.Text "" Then
'robby.Play ("Explain")
'robby.Speak frmBible.txtPassage.Text
'Else
'robby.Play ("Sad")
'robby.Think ("Il n'y a rien à prononcer !")
'End If
End Sub
Public Sub mnuStrong_Click()
chkstrong.Value = True
End Sub
Public Sub mnuThayer_Click()
chkthayer.Value = False
End Sub
Public Sub mnuTLF_Click()
frmBrowser.cboAddress.Text = "http://www.lib.uchicago.edu/efts/ARTFL/projects/dicos/TLF-NICOT/searc
h.form.html"
End Sub
Public Sub mnuTOB_Click()
frmBrowser.cboAddress.Text = "http://www.tradere.com/biblio/tob/index.htm"
End Sub
Public Sub mnuTorrey_Click()
frmBrowser.cboAddress.Text = "http://bible.crosswalk.com/Concordances/TorreysTopicalTextbook/"
End Sub
Public Sub mnuTSK_Click()
frmBrowser.cboAddress.Text = "http://bible.crosswalk.com/Concordances/TreasuryofScriptureKnowledge/
"
End Sub
Public Sub mnuUnbound_Click()
'frmBrowser.cboAddress.Text = "http://www.unboundbible.org/greek_search/index.cfm?lang=french"
End Sub
Private Sub mnuSouter_Click()
Load frmPDF
frmPDF.pdfmain.LoadFile (App.Path & "\ref\Dicogr\Souter.pdf")
frmPDF.Caption = "A. Souter - A Pocket Lexicon to the Greek New Testament"
frmPDF.Show
End Sub
Private Sub mnuStrongD_Click()
mot = frmBible.txtPassage.SelText
Call LireStrongNEG(mot)
End Sub
Public Sub mnuTau_Click()
Load frmPDF
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bailly\Bailly.pdf")
frmPDF.pdfmain.setCurrentPage (852)
frmPDF.Caption = "Anatole Bailly - Abrégé du Dictionnaire grec-français [984p.]"
frmPDF.Show
End Sub
Private Sub mnuTaw_Click()
Load frmPDF
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bdb.pdf")