• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Find Abbreviations of Names entered.

Find Abbreviations of Names entered.

Find Abbreviations of Names entered.

Rate Find Abbreviations of Names entered.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

c = Text3.Text
Label1.Caption = a
Label2.Caption = b
Label3.Caption = c
End Sub

Private Sub Command2_Click()
a = " "
b = " "
c = " "
Text1.Text = " "
Text2.Text = " "
Text3.Text = " "
Text1.SetFocus
End Sub

Private Sub Command3_Click()
Label1.Caption = ""
Label2.Caption = ""
Label3.Caption = ""
Text1.SetFocus
End Sub

Private Sub Text1_Change()
If Len(Text1.Text) > 0 And Len(Text1.Text) < 2 Then
a = Text1.Text
'Text1.Alignment = 2
Text1.Font = Bold
End If
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 32 Then
Text2.SetFocus
End If
End Sub

Private Sub Text2_Change()
If Len(Text2.Text) > 0 And Len(Text2.Text) < 2 Then
b = Text2.Text
End If
End Sub

Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 32 Then
Text3.SetFocus
End If
End Sub