Microsoft Visual Basic - Encyclopaedia Gentium Boni

frmRechercheMorphologique - 2
End Sub
Private Sub Command1_Click()
Unload Me
End Sub
Public Sub Command2_Click()
lstPassages.Clear
mot = txtcode.Text
If Mid(mot, 1, 1) = "n" Then
If nveaucodecas = "" Then nveaucodecas = Mid(mot, 2, 1)
If nveaucodegenre = "" Then nveaucodegenre = Mid(mot, 3, 1)
If nveaucodenombre = "" Then nveaucodenombre = Mid(mot, 4, 1)
ElseIf Mid(mot, 1, 1) = "v" Then
If nveaumode = "" Then nveaumode = Mid(mot, 2, 1)
If nveautemps = "" Then nveautemps = Mid(mot, 3, 1)
If nveauvoix = "" Then nveauvoix = Mid(mot, 4, 1)
If nveaupersonne = "" Then nveaupersonne = Mid(mot, 5, 2)
ElseIf mot = "tp" Then
nveaucode = "tp"
GoTo apres:
End If
If Mid(mot, 1, 1) = "n" Then
nveaucode = "n" & nveaucodecas & nveaucodegenre & nveaucodenombre
ElseIf Mid(mot, 1, 1) = "v" Then
nveaucode = "v" & nveaumode & nveautemps & nveauvoix & cboPersonne.Text
End If
apres:
txtNouveauCode.Text = nveaucode
vientde = frmAnalyseMorphologique.lblvientde.Caption
recherche = vientde & " (" & nveaucode & ")"
Call RechercheMorphologique(recherche, nveaucode)
End Sub
Private Sub Form_Load()
mot = frmAnalyseMorphologique.lblanalyse2.Caption
End Sub
Private Sub lstPassages_Click()
passage = Trim(lstPassages.Text)
premierespace = InStr(1, passage, " ")
deuxpoints = InStr(1, passage, ":")
livre = Mid(passage, 1, premierespace - 1)
chapitre = Mid(passage, premierespace + 1, deuxpoints - 1)
chapitre = Mid(chapitre, 1, InStr(1, chapitre, ":") - 1)
verset = Trim(Mid(passage, deuxpoints + 1, 2))
'MsgBox livre & " " & chapitre & " " & verset
If livre = "Mat" Then
chercher = "Matthieu"
ElseIf livre = "Mar" Then
chercher = "Marc"
ElseIf livre = "Luk" Then
chercher = "Luc"
ElseIf livre = "Joh" Then
chercher = "Jean"
ElseIf livre = "Act" Then
chercher = "Actes"
ElseIf livre = "Rom" Then
chercher = "Romains"
ElseIf livre = "1Co" Then