Microsoft Visual Basic - Encyclopaedia Gentium Boni

frmLexiqueNT - 2
If txtFrancais.Text = "" And txtVientde.Text = "" Then
motr = txtGrec.Text
Call DefinirGrec(motr, mott)
txtFrancais.Text = mott
Exit Sub
' je cherche un mot FRANCAIS
ElseIf txtGrec.Text = "" And txtVientde.Text = "" Then 'And _
'txtPrononciation.Text = "" And _
'txtNotes.Text = "" Then
motr = txtFrancais.Text
Call DefinirGrec(motr, mott)
recherche = motr
Call FrancaisGrec(recherche)
txtGrec.Text = recherche
Exit Sub
' C'est du français que je cherche !
'ElseIf txtVientde.Text "" Then
' recherche = txtVientde.Text
' Call GrecFrancais(recherche)
' Exit Sub
End If
End Sub
Private Sub btnRechercher_Click()
btnGo_Click
End Sub
Private Sub Form_Load()
btnAjouter.Visible = False
mnuConsultation.Checked = True
dico = False
End Sub
Private Sub mnuConsultation_Click()
btnAjouter.Visible = False
mnuEdition.Checked = False
End Sub
Private Sub mnuEdition_Click()
btnAjouter.Visible = True
mnuEdition.Checked = True
End Sub
Private Sub mnuQuit_Click()
Unload Me
End Sub
Private Sub Timer1_Timer()
If mnuEdition.Checked = True Then btnGo_Click
End Sub
Private Sub Timer2_Timer()
If txtGrec.Text = "" Then
Timer1.Enabled = False
End If
End Sub