Microsoft Visual Basic - Encyclopaedia Gentium Boni

frmBible - 50
End If
End Sub
PopupMenu mnuLexiquesC, vbPopupMenuLeftAlign
Public Sub txtverset_Change()
btnGo_Click
End Sub
Public Sub txtverset_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then Exit Sub
If KeyAscii < 47 Or KeyAscii > 57 Then
KeyAscii = 0
Beep
End If
End Sub
Public Sub txtverset_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
btnGo_Click
ElseIf KeyCode = vbKeyEscape Then
End
Unload Me
End If
End Sub