Microsoft Visual Basic - Encyclopaedia Gentium Boni

frmDicoHebreu - 4
Private Sub Timer1_Timer()
If mnuEdition.Checked = False Then btnGo_Click
End Sub
Private Sub Timer2_Timer()
If txtHebreu.Text = "" Then
Timer1.Enabled = False
End If
End Sub
Private Sub txtFrancais_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then btnGo_Click
End Sub
Private Sub txtHebreu_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then btnGo_Click
If KeyCode = 27 Then Unload Me
End Sub
Private Sub txtNotes_Change()
Timer1.Enabled = False
End Sub