Handling TextBox In Visual Basic 6.0

TextBox is one of the most important components in the visual-based programming environment, because this component will accept the data input from the user, the lack of attention to this component will be very fatal, ranging from Runtime Error to Invalid data and others.

Here are some tips and tricks in handling textbox :

T&T#1) ONLY ACCPET NUMERIC VALUE

For the demo please open a new project, select standard exe, then place a textbox for experiment material and set with the following properties:

Name : Text1
Text : (clear)

Then press F7 to switch to view code mode, or through the View -> Code menu, then type in the following code :

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If Not (KeyAscii >= Asc("0") & Chr(13) _
    And KeyAscii <= Asc("9") & Chr(13) _
        Or KeyAscii = vbKeyBack _
        Or KeyAscii = vbKeyDelete _
        Or KeyAscii = vbKeySpace) Then
            Beep
            KeyAscii = 0
   End If
End Sub 

Press F5, and see the result

Based on the above code then the data that we entry into the textbox only receive numerical data, and some other key like BackSpace, Delete and Space.

T&T#2) ONLY ACCPET UPPER CASE ENTRY INTO THE TEXTBOX
Open the new project Standard Exe, then place 2 pieces of textbox with the following properties :
Name : Text1
Text : (empty)

Name : Text2
Text : (empty)

Press F7, or select View -> Code, then type the following code :

Private Sub Text1_Change()
'Text1 menggunakan event Change
Dim posisi As Integer
    posisi = Text1.SelStart
    Text1.Text = UCase(Text1.Text)
    Text1.SelStart = posisi
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
'Text2 menggunakan event KeyPress
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub 

Press F5 and see the result

T&T#3) ONLY ACCEPT LOWER CASE ENTRY INTO THE TEXTBOX
Open the new project Standard Exe, then place 2  textbox with the following properties :
Name : Text1
Text : (empty)

Name : Text2
Text : (empty)

Press F7, or select View -> Code, then type the following code :

Private Sub Text1_Change()
'Text1 use event Change
    Dim posisi As Integer
    posisi = Text1.SelStart
    Text1.Text = LCase(Text1.Text)
    Text1.SelStart = posisi
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
'Text2 use KeyPress
    KeyAscii = Asc(LCase(Chr(KeyAscii)))
End Sub 

Press F5 and see the result

T&T#4) CLEAR ALL TEXTBOX VALUE
Open a new project and place 4 textbox, and 1 commanbutton, let the default property settings do not need to change name or any other properties.

Press F7, and type in the following code :

Private Sub Command1_Click()
    Dim Contrl As Control
    For Each Contrl In Form1.Controls
        If (TypeOf Contrl Is TextBox) Then Contrl.Text = ""
    Next Contrl
End Sub 

Press F5 and see the result

T&T#5) AVOID CERTAIN CHARACTER ENTRY
Open the new Standard Exe project, then place a textbox and leave the default name 'Text1', then press F7 and type the following code :

Private Sub Text1_KeyPress(KeyAscii As Integer)
    Dim sTemplate As String
    'Ganti '!@#$%^&*()_+=' dengan karakter yang Anda
    'inginkan untuk dihindari diinput pada Text1
    sTemplate = "!@#$%^&*()_+="
    If InStr(1, sTemplate, Chr(KeyAscii)) > 0 Then _
    KeyAscii = 0
End Sub 

Note the code above, each data that we input in the textbox will be accepted except the characters contained in the sTemplate variable

Press F5 and see the result


T&T#6) CALCULATING THE WORD IN TEXTBOX
Open the new Standard Exe project, and place 1 textbox and 1 commandbutton, and set it with the following properties :

TextBox
Name : Text1
Text : (empty)

CommandButton
Name : cmdCount
Caption : &Count

Press F7 and type in the following code :

Private Sub cmdCount_Click()
    'Type a few sentences long enough
    'thus containing up to tens or even hundreds
    'words to try the word count function below.
    MsgBox GetWordCount(Text1.Text)
End Sub

Public Function GetWordCount(ByVal Text As String) As Long
'Define a hyphen at each end
'lines that are part of the whole word,
'so combine together.
    Text = Trim(Replace(Text, "-" & vbNewLine, ""))
    'Replace a new row with a single space
    Text = Trim(Replace(Text, vbNewLine, " "))
    'Replace a space more than one (if any)
    'into a single space
    Do While Text Like "*  *"
        Text = Replace(Text, "  ", " ")
    Loop
    'Separate the string and return the calculated word
    GetWordCount = 1 + UBound(Split(Text, " "))
End Function 

Press F5 and see the result

T&T#7) POP UP MENU IN TEXTBOX
Open the new Standard Standard project, and place 1 textbox and name it Text1, and make a menubar, you can specify what is inside the menubar, note the illustration below

Press F7 and type in the following code :

Private Const WM_RBUTTONDOWN = &H204
Private Declare Function SendMessage Lib "user32" Alias _
"SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long
Public Sub OpenContextMenu(FormName As Form, menuName As Menu)
  Call SendMessage(FormName.hwnd, WM_RBUTTONDOWN, 0, 0&)
  FormName.PopupMenu menuName
End Sub

Private Sub Form_Load()
  MyMenu.Visible = False  'To be invisible at the top of the form
End Sub

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
  'Replace 'MyMenu' with the menu you want to appear as pop up.
If Button = vbRightButton Then _
    Call OpenContextMenu(Me, Me.MyMenu)
End Sub

Press F5 and see the result
Right click on the textbox and a pop up menu will appear


T&T#8) HIGHLIGHT ALL CHARACTERS IN TEXTBOX
Open the new Standard Exe project, then place a textbox and set its properties as follows :
Name : Text1
Text : http://ilmalyakin.blogspot.com

Press F7 and type in the following code :

Private Sub Text1_GotFocus()
  Text1.SelStart = 0
  Text1.SelLength = Len(Text1)
End Sub

Press F5 and see the result


T&T#9) TEXTBOX VALIDATION
Open the new Standard Uns project, then place 2 textbox and 1 commandbutton, and set it with the following properties :

TextBox
Name : Text1
Text : (empty)

Name : Text2
Text : (empty)

CommandButton
Name : cmdExit
Caption : &Exit

Press F7 and type in the following code :

Private Sub cmdExit_Click()
    End
End Sub

Private Sub Text1_Validate(Cancel As Boolean)
    Cancel = Text1.Text <> "abc"
End Sub

Press F5 an see the result

In this example, the cursor will not be able to exit the textbox until the user types "abc".

That's it, some of the common task in TextBox

Good luck.

Author : Ilmal Yakin

Share this

Related Posts