Microsoft Visual Basic - Encyclopaedia Gentium Boni

frmBible - 9
frmBible.txtPassage.Text = StrReverse(nveautxt)
Exit Sub
End If
If cboVersion.Text = "W/H & Strong" Then
Exit Sub
End If
'affichage des références du Treasaury of Scripture Knowledge
livre = cboLivre.Text
chapitre = txtChapitre.Text
verset = txtverset.Text
'If chkTSK.Value = 1 Then
'Call LireTSK(livre, chapitre, verset)
'End If
' lecture de la version choisie
Dim lfile As Long 'Lecture
Dim ofile As String 'Fichier à ouvrir
Dim toti$
If Len(fichier) < 30 Then
toti = fichier
ofile = App.Path & toti
Else
ofile = fichier
End If
lfile = FreeFile
If fichier "" Then
Open ofile For Input As #lfile
Do
'lecture
Input #lfile, ligne
If Mid(ligne, 1, Len(chercher)) = chercher And _
IsNumeric(Mid(ligne, Len(chercher) + 1, 1)) = False Then ' pour que le verset reche
rché soit exact
'affectation du verset du fichier à la variable
passage = ligne
End If
Loop Until EOF(lfile)
Close #lfile
End If
'affecter le verset trouvé au textbox
If passage "" Then
txtPassage.Text = Mid(passage, Len(chercher) + 1, Len(passage))
Else
' s'il n'y a pas de verset correspondant, le signaler
txtPassage.Font = "Times New Roman"
txtPassage.Text = "Pas de verset"
End If
'affecter le verset choisi au label au-dessus
lblchapitre.Caption = cboLivre.Text & " " & txtChapitre & " : " & txtverset.Text
lblprecedent.Visible = True
lblsuivant.Visible = True
' affichage des outils d'analyse
If cboVersion.Text = "NA26+" Then
frmBible.optstrongfr.Visible = False
frmBible.lblstrongfr.Visible = False
ElseIf cboVersion.Text = "Vulgate" Then
frmBible.optstrongfr.Visible = False
frmBible.lblstrongfr.Visible = False
End If