Microsoft Visual Basic - Encyclopaedia Gentium Boni

frmDicoHebreu - 3
'robby.Speak (txtPrononciation.Text & ", qui signifie : " & txtFrancais.Text)
'Else
'erreur = MsgBox("Il n'y a rien à prononcer !", vbExclamation, "Erreur")
'End If
End Sub
Private Sub Label5_Click()
Dim erreur
'If txtPrononciation.Text "" Then
'Prononce.Speak (txtPrononciation.Text)
'Else
'erreur = MsgBox("Il n'y a rien à prononcer !", vbExclamation)
'End If
End Sub
Private Sub mnuAide2_Click()
Dim msg$
msg = MsgBox("Abbréviations :" & vbCrLf & "- S + numéro = Numéro strong" & vbCrLf & "- EP : Etude P
erspicaces des Ecritures (2 vol.)" & vbCrLf & "- BDB : Brown-Driver-Briggs Hebrew and Chaldee Lexic
on, Hendrikson Publishers, 7e éd." & vbCrLf & "- DHAB: Dictionnaire d'Hébreu et d'Araméen Bibliques
, Ph. Reymond, éd. CERF/SBF, 2002", vbInformation)
End Sub
Private Sub mnuConsultation_Click()
btnAjouter.Visible = False
Command1.Visible = True
mnuConsultation.Checked = True
mnuEdition.Checked = False
Timer1.Enabled = False
End Sub
Private Sub mnuEdition_Click()
Dim msg
msg = InputBox("Vous allez modifier le lexique de Bible Parser." & vbCrLf & vbCrLf & "Veuillez sasi
sir le mot de passe !", "Mode Edition")
If msg = "debarim" Then
btnAjouter.Visible = True
btnAjouter.Enabled = True
Command1.Visible = True
mnuConsultation.Checked = False
mnuEdition.Checked = True
mnuVisible_Click
mnuStrRev_Click
Timer1.Enabled = False
End If
End Sub
Private Sub mnuInvisible_Click()
mnuVisible.Checked = False
mnuInvisible.Checked = True
txtPrononciation.Visible = False
Label5.Visible = False
End Sub
Private Sub mnuQuit_Click()
Unload Me
End Sub
Private Sub mnuStrRev_Click()
Command1.Visible = True
Command1_Click
End Sub
Private Sub mnuVisible_Click()
mnuVisible.Checked = True
mnuInvisible.Checked = False
txtPrononciation.Visible = True
End Sub