Intermediate
Date of registration: Jan 1st 2009
Location: Hanover, Germany
Occupation: Software Engineer
Hobbies: Hilbert Curves
Jabaco Source |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 |
Option Explicit Public Sub Form_Load() Text1.Text = "" Text2.Text = "" Text1.SetFocus End Sub Public Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) trace "Text1_KeyDown " & KeyCode & ";" & Shift End Sub Public Sub Text1_KeyPress(KeyAscii As Integer) trace "Text1_KeyPress " & KeyAscii If KeyAscii = 10 Then ' user pressed Enter or Return Text2.SetFocus End If End Sub Public Sub Text1_Change(ChangeType As ChangeType, ChangeEvt As DocumentEvent) trace "Text1_Change " & ChangeType & ";" & ChangeEvt End Sub Public Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer) trace "Text2_KeyDown " & KeyCode & ";" & Shift End Sub Public Sub Text2_KeyPress(KeyAscii As Integer) trace "Text2_KeyPress " & KeyAscii If KeyAscii = 10 Then ' user pressed Enter or Return Text1.SetFocus End If End Sub Public Sub Text2_Change(ChangeType As ChangeType, ChangeEvt As DocumentEvent) trace "Text2_Change " & ChangeType & ";" & ChangeEvt End Sub Private Sub trace(msg As String) Debug.Print msg End Sub |
Intermediate
Date of registration: Jan 1st 2009
Location: Hanover, Germany
Occupation: Software Engineer
Hobbies: Hilbert Curves
Intermediate
Date of registration: Jan 1st 2009
Location: Hanover, Germany
Occupation: Software Engineer
Hobbies: Hilbert Curves