Microsoft Visual Basic - Encyclopaedia Gentium Boni

frmGrammaire - 1
Private Sub btnFermer_Click()
If frmAnalyseMorphologique.lblanalyse "" Then
Unload Me
'Me.Hide
frmAnalyseMorphologique.Show
Else
Unload Me
End If
End Sub
Private Sub btnGo_Click()
Dim ofile, lfile, ligne, texte
lstGrammaires.Text = ""
If chkExact.Value = 0 Then
ofile = App.Path & "\tools\temp.txt"
lfile = FreeFile
texte = Replace(txtAnalyse.Text, " ", vbCrLf)
texte = Replace(texte, "1", "")
texte = Replace(texte, "2", "")
texte = Replace(texte, "3", "")
texte = Replace(texte, "personne", "")
texte = Replace(texte, "ème", "")
texte = Replace(texte, "ère", "")
texte = Replace(texte, "(", "")
texte = Replace(texte, ")", "")
List1.Clear
Open ofile For Output As #lfile
Print #lfile, texte
Close
lfile = FreeFile
texte = ""
Open ofile For Input As #lfile
Do
Input #lfile, texte
If texte "" Then
List1.AddItem (texte)
End If
Loop While Not EOF(lfile)
Close
List1.Text = List1.List(1)
'Call GrammaireAbel(recherche)
'If recherche "" Then lstGrammaires.AddItem ("Abel, Grammaire du grec biblique")
'Call GrammaireBoxus(recherche)
'If recherche "" Then lstGrammaires.AddItem ("Boxus, Grammaire grecque")
'Call GrammaireWallace(recherche)
'If recherche "" Then lstGrammaires.AddItem ("Wallace/Mounce, Greek Grammar Compilation")
'List1_Click
Else
'RECHERCHE COMPOSEE, genre: aoriste moyen
List1.Clear
List1.AddItem (txtAnalyse.Text)
'List1.Text = recherche
'Call GrammaireAbel(recherche)
'If recherche "" Then lstGrammaires.AddItem ("Abel, Grammaire du Grec biblique")
'Call GrammaireBoxus(recherche)
'If recherche "" Then lstGrammaires.AddItem ("Boxus, Grammaire grecque")
'Call GrammaireWallace(recherche)
'If recherche "" Then lstGrammaires.AddItem ("Wallace/Mounce, Greek Grammar Compilation")
End If
End Sub
Private Sub lblAbel_Click()
Dim msg$, debloque As Boolean
Dim fichier$
Dim ofile%