Microsoft Visual Basic - Encyclopaedia Gentium Boni

frmLexiqueNT - 1
Dim dico As Boolean
Private Sub btnAjouter_Click()
' au cas où
Close
Dim lexique$, lfile, Grec$, prononciation$, francais$, notes$
lexique = App.Path & "\tools\lexiquegr.dic"
lfile = FreeFile
'définitions des variables
Grec = txtHebreu.Text
prononciation = txtPrononciation.Text
francais = txtFrancais.Text
notes = txtNotes.Text
' attention VB ne gère pas les virgules & les guilleemnts
francais = Replace(francais, ",", "~", 1, , vbTextCompare)
notes = Replace(notes, ",", "~", 1, , vbTextCompare)
notes = Replace(notes, Chr$(51), "'", 1)
' ouverture du lexique pour écriture
Open lexique For Append As #lfile
rite #lfile, Grec & " " & francais & " 3/" & notes
lose
tnEffacer_Click
nd Sub
rivate Sub btnEffacer_Click()
ico = True
xtGrec.Text = ""
xtFrancais.Text = ""
xtNotes.Text = ""
xtcode.Text = ""
xtVientde.Text = ""
xtAnalyse.Text = ""
imer1.Enabled = False
nd Sub
rivate Sub btnFermer_Click()
nload Me
nd Sub
rivate Sub btnGo_Click()
im Grec$, prononciation$, francais$, notes$, recherche$, mot$, motdeflechi$
rec = txtGrec.Text
rancais = txtFrancais.Text
otes = txtNotes.Text
gestion erreurs
f txtGrec.Text = "" And _
txtFrancais.Text = "" Then
lfile = MsgBox("Vous n'avez pas saisi votre recherche !", vbExclamation, "Rechercher un mot")
Exit Sub
nd If
il faut DEFLECHIR le mot
commençons par le NT
If frmBible.cboVersion = "NA26+" Then
mot = txtGrec.Text
End If
If Right(mot, 1) = "j" Then
mot = Mid(mot, 1, Len(mot) - 1) & "s"
mot = UCase(mot)
Call LexiqueNT_Morph(mot)
End If
Par défaut la recherche est EXACTE
détermination du mot-clé à chercher dans le lexique
je cherche un mot GREC