by Prabir Kumar Das (7 Submissions)
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Mon 17th April 2006
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Find Abbreviations of Names entered.
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