Dear visitor, welcome to Jabaco - Community. If this is your first visit here, please read the Help. It explains in detail how this page works. To use all features of this page, you should consider registering. Please use the registration form, to register here or read more information about the registration process. If you are already registered, please login here.
Jabaco Source |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
Option Explicit Implements java#awt#Event#KeyListener Public Sub Form_Load() Text1.Parent.addKeyListener(Me) End Sub Public Sub keyTyped(arg2 As KeyEvent) If Len(Trim(Text1.Text))>= 10 Then arg2.setKeyChar(0) End Sub Public Sub keyPressed(arg2 As KeyEvent) End Sub Public Sub keyReleased(arg2 As KeyEvent) End Sub |
Jabaco Source |
|
1 2 3 4 5 6 7 8 |
Public Sub keyTyped(arg2 As KeyEvent) End Sub Public Sub keyPressed(arg2 As KeyEvent) End Sub Public Sub keyReleased(arg2 As KeyEvent) End Sub |