Microsoft Visual Basic - Encyclopaedia Gentium Boni

frmGrammaire - 3
goodwing = False
goodwins = False
cox = False
gildersleeve = False
burton = False
conybeare = False
Dim abel1
lstGrammaires.Clear
recherche = mot
Call GrammaireAbel(recherche)
If recherche "" Then abel = True
recherche = mot
Call GrammaireBoxus(recherche)
If recherche "" Then boxus = True
recherche = mot
Call GrammaireWallace(recherche)
If recherche "" Then wallace = True
recherche = mot
Call GrammaireSmyth(recherche)
If recherche "" Then smyth = True
recherche = mot
Call GrammaireBurnouf(recherche)
If recherche "" Then burnouf = True
recherche = mot
Call GrammaireCox(recherche)
If recherche "" Then cox = True
recherche = mot
Call GrammaireGildersleeve(recherche)
If recherche "" Then gildersleeve = True
recherche = mot
Call GrammaireBurton(recherche)
If recherche "" Then burton = True
recherche = mot
Call GrammaireConybeare(recherche)
If recherche "" Then conybeare = True
'idem pour toutes les grammaires
If abel = True Then lstGrammaires.AddItem "Abel, Grammaire du grec biblique"
If boxus = True Then lstGrammaires.AddItem "Boxus, Grammaire grecque"
If wallace = True Then lstGrammaires.AddItem "Wallace/Mounce, Greek Grammar Compilation"
If smyth = True Then lstGrammaires.AddItem "Smyth - Greek Grammar for Colleges"
If burnouf = True Then lstGrammaires.AddItem "Burnouf - Méthode pour étudier la langue grecque"
If cox = True Then lstGrammaires.AddItem "Jeffrey A. Rydberg-Cox, Overview of Greek Syntax"
If gildersleeve = True Then lstGrammaires.AddItem "Basil Lanneau Gildersleeve, Syntax of Classical
Greek"
If burton = True Then lstGrammaires.AddItem "Burton - Moods and Tenses of New Testament Greek"
If conybeare = True Then lstGrammaires.AddItem "Conybeare - Grammar of Septuagint Greek"
End Sub
Private Sub lstGrammaires_Click()
'GREC
recherche = List1.Text
'recherche = lstGrammaires.List(lstGrammaires.ListIndex)
If lstGrammaires.Text = "Abel, Grammaire du grec biblique" Then
Call GrammaireAbel(recherche)
If recherche = "" Then Exit Sub
Load frmPDF
frmPDF.pdfmain.LoadFile (App.Path & "\ref\abel\abel.pdf")
frmPDF.Caption = "Abel, Grammaire du grec biblique"
frmPDF.pdfmain.setCurrentPage (recherche)
frmPDF.Show