Microsoft Visual Basic - Encyclopaedia Gentium Boni

frmDicoHebreu - 1
'Private Declare Function HtmlHelp Lib "hhctrl.ocx" Alias "HtmlHelpA" _
'(ByVal hwndCaller As Long, ByVal pszFile As String, _
'ByVal uCommand As Long, ByVal dwData As Long) As Long
'Dim robby As IAgentCtlCharacterEx
'Const DATAPATH = "robby.acs"
Private Sub btnAjouter_Click()
' au cas où
Close
Dim lexique$, lfile, hebreu$, prononciation$, francais$, notes$
lexique = App.Path & "\tools\lexiqueheb.dic"
lfile = FreeFile
'définitions des variables
hebreu = 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, hebreu & "1/" & prononciation & "2/" & francais & "3/" & notes
lose
tnEffacer_Click
nd Sub
rivate Sub btnEscape_Click()
nload Me
nd Sub
rivate Sub btnEffacer_Click()
xtHebreu.Text = ""
xtPrononciation.Text = ""
xtFrancais.Text = ""
xtNotes.Text = ""
imer1.Enabled = False
nd Sub
rivate Sub btnFermer_Click()
robby.Hide 0
nload Me
nd Sub
rivate Sub btnGo_Click()
im hebreu$, prononciation$, francais$, notes$, recherche$, mot$
définitions des variables
ebreu = txtHebreu.Text
rononciation = txtPrononciation.Text
rancais = txtFrancais.Text
otes = txtNotes.Text
gestion erreurs
f txtHebreu.Text = "" And _
xtFrancais.Text = "" Then
file = MsgBox("Vous n'avez pas saisi votre recherche !", vbExclamation, "Rechercher un mot")
xit Sub
nd If
Par défaut la recherche est EXACTE
détermination du mot-clé à chercher dans le lexique
je cherche un mot HEBREU
f txtFrancais.Text = "" Then 'And _
'txtPrononciation.Text = "" And _
'txtNotes.Text = "" Then