Microsoft Visual Basic - Encyclopaedia Gentium Boni

frmDicoHebreu - 2
recherche = txtHebreu.Text
Call HebreuFrancais(recherche)
Exit Sub
' je cherche un mot FRANCAIS
ElseIf txtHebreu.Text = "" Then 'And _
'txtPrononciation.Text = "" And _
'txtNotes.Text = "" Then
recherche = txtFrancais.Text
Call FrancaisHebreu(recherche)
Exit Sub
' C'est du français que je cherche !
End If
End Sub
Private Sub btnGo2_Click()
End Sub
Private Sub BtnGraphic1_Click()
txtHebreu.Text = ""
txtPrononciation.Text = ""
txtFrancais.Text = ""
txtNotes.Text = ""
Timer1.Enabled = False
End Sub
Private Sub btnRechercher_Click()
btnGo_Click
End Sub
Private Sub Command1_Click()
Dim mothebreu$
mothebreu = txtHebreu.Text
mothebreu = StrReverse(mothebreu)
If Left(mothebreu, 1) = "m" Then
mothebreu = "M" & Mid(mothebreu, 2, Len(mothebreu))
ElseIf Left(mothebreu, 1) = "k" Then
mothebreu = "n" & Mid(mothebreu, 2, Len(mothebreu))
ElseIf Left(mothebreu, 1) = "k" Then
mothebreu = "N" & Mid(mothebreu, 2, Len(mothebreu))
ElseIf Left(mothebreu, 1) = "p" Then
mothebreu = "P" & Mid(mothebreu, 2, Len(mothebreu))
ElseIf Left(mothebreu, 1) = "u" Then
mothebreu = "U" & Mid(mothebreu, 2, Len(mothebreu))
End If
txtHebreu.Text = mothebreu
End Sub
Private Sub Form_Load()
Command1.Visible = False
btnAjouter.Visible = False
mnuConsultation.Checked = True
'Microsoft Agent robby
'Agent.Characters.Load "robby", DATAPATH
'Set robby = Agent.Characters("robby")
'robby.LanguageID = &H40C
'Dim c
'c = robby.MoveTo(640, 200)
'robby.Show
'robby.Play ("GetAttention")
'robby.Think ("Bonjour, Je suis Robby. Je vous lirai les passages que vous souhaitez. Pour
cela, cliquez moi, ou pressez F2")
End Sub
Private Sub Image2_Click()
Dim erreur
'If txtPrononciation.Text "" Then