Microsoft Visual Basic - Encyclopaedia Gentium Boni

frmBible - 15
cboLivre.AddItem ("2 Pierre")
cboLivre.AddItem ("1 Jean")
cboLivre.AddItem ("2 Jean")
cboLivre.AddItem ("3 Jean")
cboLivre.AddItem ("Jude")
cboLivre.AddItem ("Révélation")
sortievocale.Visible = False
ElseIf cboVersion.Text = "BHS" Or cboVersion.Text = "TM" Then
txtPassage.RightToLeft = True
sortievocale.Visible = False
'
cboLivre.Clear
cboLivre.AddItem ("Genèse")
cboLivre.AddItem ("Exode")
cboLivre.AddItem ("Lévitique")
cboLivre.AddItem ("Nombres")
cboLivre.AddItem ("Deutéronome")
cboLivre.AddItem ("Josué")
cboLivre.AddItem ("Juges")
cboLivre.AddItem ("Ruth")
cboLivre.AddItem ("1 Samuel")
cboLivre.AddItem ("2 Samuel")
cboLivre.AddItem ("1 Rois")
cboLivre.AddItem ("2 Rois")
cboLivre.AddItem ("1 Chroniques")
cboLivre.AddItem ("2 Chroniques")
cboLivre.AddItem ("Esdras")
cboLivre.AddItem ("Néhémie")
cboLivre.AddItem ("Esther")
cboLivre.AddItem ("Job")
cboLivre.AddItem ("Psaumes")
cboLivre.AddItem ("Proverbes")
cboLivre.AddItem ("Ecclésiaste")
cboLivre.AddItem ("Cantique des cantiques")
cboLivre.AddItem ("Esaïe")
cboLivre.AddItem ("Jérémie")
cboLivre.AddItem ("Lamentations")
cboLivre.AddItem ("Ezéchiel")
cboLivre.AddItem ("Daniel")
cboLivre.AddItem ("Osée")
cboLivre.AddItem ("Joël")
cboLivre.AddItem ("Amos")
cboLivre.AddItem ("Abdias")
cboLivre.AddItem ("Jonas")
cboLivre.AddItem ("Michée")
cboLivre.AddItem ("Nahoum")
cboLivre.AddItem ("Habaquq")
cboLivre.AddItem ("Sophonie")
cboLivre.AddItem ("Aggée")
cboLivre.AddItem ("Zacharie")
cboLivre.AddItem ("Malachie")
ElseIf cboVersion.Text = "NT Annoté" Then
cboLivre.Clear
cboLivre.AddItem ("Tite")
cboLivre.AddItem ("Philémon")
cboLivre.AddItem ("Jacques")
cboLivre.AddItem ("1 Jean")
cboLivre.AddItem ("2 Jean")
cboLivre.AddItem ("3 Jean")
cboLivre.AddItem ("Jude")
sortievocale.Visible = False
ElseIf cboVersion.Text = "NA27" Or cboVersion.Text = "WH+" Or cboVersion.Text = "SG" Or cboVersion.
Text = "Tischendorf+" Or cboVersion.Text = "DIAGLOTT" Then
cboLivre.Clear
cboLivre.AddItem ("Matthieu")
cboLivre.AddItem ("Marc")
cboLivre.AddItem ("Luc")
cboLivre.AddItem ("Jean")
cboLivre.AddItem ("Actes")
cboLivre.AddItem ("Romains")
cboLivre.AddItem ("1 Corinthiens")
cboLivre.AddItem ("2 Corinthiens")
cboLivre.AddItem ("Galates")
cboLivre.AddItem ("Ephésiens")