Microsoft Visual Basic - Encyclopaedia Gentium Boni

frmBible - 11
ElseIf cboVersion.Text = "Homère" Then
cboLivre.Clear
cboLivre.AddItem ("Iliade")
cboLivre.AddItem ("Odyssée")
ElseIf cboVersion.Text = "Flavius Josèphe" Or cboVersion.Text = "Flavius Josèphe - En" Or cboVersio
n.Text = "Flavius Josèphe - Fr" Then
cboLivre.Clear
cboLivre.AddItem ("Antiquités judaïques")
cboLivre.AddItem ("Guerre des Juifs")
cboLivre.AddItem ("Vie de FJ")
cboLivre.AddItem ("Contre Apion")
ElseIf cboVersion.Text = "APF-G" Or cboVersion.Text = "APF-F" Or cboVersion.Text = "APF-E" Or cboVe
rsion.Text = "Lightfoot" Then
cboLivre.Clear
cboLivre.AddItem ("1ère de Clément")
cboLivre.AddItem ("2ème de Clément")
cboLivre.AddItem ("Epître de Barnabé")
cboLivre.AddItem ("Ignace - 1ère Ephésiens")
cboLivre.AddItem ("Ignace - 2ème Ephésiens")
cboLivre.AddItem ("Ignace - aux Magnésiens")
cboLivre.AddItem ("Ignace - aux Tralliens")
cboLivre.AddItem ("Ignace - aux Romains")
cboLivre.AddItem ("Ignace - aux Philadelphiens")
cboLivre.AddItem ("Ignace - aux Smyrniotes")
cboLivre.AddItem ("Ignace - à Polycarpe")
cboLivre.AddItem ("Ignace - aux Philippiens")
cboLivre.AddItem ("Martyr de Polycarpe")
cboLivre.AddItem ("La Didachè")
cboLivre.AddItem ("Hermas - Vision 1")
cboLivre.AddItem ("Hermas - Vision 2")
cboLivre.AddItem ("Hermas - Vision 3")
cboLivre.AddItem ("Hermas - Vision 4")
cboLivre.AddItem ("Hermas - Vision 5")
cboLivre.AddItem ("Hermas - Précepte 1") 'HMA
cboLivre.AddItem ("Hermas - Précepte 2") 'HMB
cboLivre.AddItem ("Hermas - Précepte 3") 'HMC
cboLivre.AddItem ("Hermas - Précepte 4") 'HMD
cboLivre.AddItem ("Hermas - Précepte 5") 'HME
cboLivre.AddItem ("Hermas - Précepte 6") 'HMF
cboLivre.AddItem ("Hermas - Précepte 7") 'HMG
cboLivre.AddItem ("Hermas - Précepte 8") 'HMH
cboLivre.AddItem ("Hermas - Précepte 9") 'HMI
cboLivre.AddItem ("Hermas - Précepte 10") 'HMJ
cboLivre.AddItem ("Hermas - Précepte 11") 'HMK
cboLivre.AddItem ("Hermas - Précepte 12") 'HML
cboLivre.AddItem ("Hermas - Similitudes 1") 'HSA
cboLivre.AddItem ("Hermas - Similitudes 2") 'HSB
cboLivre.AddItem ("Hermas - Similitudes 3") 'HSC
cboLivre.AddItem ("Hermas - Similitudes 4") 'HSD
cboLivre.AddItem ("Hermas - Similitudes 5") 'HSE
cboLivre.AddItem ("Hermas - Similitudes 6") 'HSF
cboLivre.AddItem ("Hermas - Similitudes 7") 'HSG
cboLivre.AddItem ("Hermas - Similitudes 8") 'HSH
cboLivre.AddItem ("Hermas - Similitudes 9") 'HSI
cboLivre.AddItem ("Hermas - Similitudes 10") 'HSJ
ElseIf cboVersion.Text = "ANF" Then
cboLivre.Clear
cboLivre.AddItem ("Justin - Apologie")
cboLivre.AddItem ("Justin - Dialogue avec Tryphon")
cboLivre.AddItem ("Justin - Discours avec les Grecs")
cboLivre.AddItem ("Justin - Adresse aux Grecs")
cboLivre.AddItem ("Justin - Sur le gouvernement de Dieu")
cboLivre.AddItem ("Justin - Fragments sur la Résurrection")
cboLivre.AddItem ("Irénée - Contre les Hérésies Livre 1")
cboLivre.AddItem ("Irénée - Contre les Hérésies Livre 2")
cboLivre.AddItem ("Irénée - Contre les Hérésies Livre 3")
cboLivre.AddItem ("Irénée - Contre les Hérésies Livre 4")
cboLivre.AddItem ("Irénée - Contre les Hérésies Livre 5")
cboLivre.AddItem ("Tatien - Adresse aux Grecs")
cboLivre.AddItem ("Théophile d'Antioche à Autolycus")
cboLivre.AddItem ("Athénagore - Défense des Chrétiens") 'PCA
cboLivre.AddItem ("Athénagore - Sur la Résurrections des morts") 'ARD
cboLivre.AddItem ("Clément d'Alexandrie - Exhoration aux cieux") 'CEH
cboLivre.AddItem ("Clément d'Alexandrie - Pédagogue Livre 1") 'CI1
cboLivre.AddItem ("Clément d'Alexandrie - Pédagogue Livre 2") 'CI2