Click here to Skip to main content
Click here to Skip to main content

Textbox Line Character Limit

, 31 Oct 2005
Rate this:
Please Sign up or sign in to vote.
Limit the number of characters in a multi line textbox.

Introduction

Recently, while I was working on a project, there was a need to limit the amount of text in each line of a multi line textbox to 72 characters. The challenge was to limit the text while the user is typing and to maintain the required formatting. To get this to work, I had to create a class that inherited from TextBox. In the constructor, I placed a global keyboard trap on the TextBox. When the text reaches the designated length the program will stop all keyboard characters from displaying on the screen forcing the user to hit the enter key and start a new line.

The code

In the constructor, the program calls the function HookKeyboard. In this function, the program will trap all keyboard events for the TextBox:

Public Sub New()
    MyBase.New()
    'This call is required by the Windows Form Designer.
    InitializeComponent()
    
    'Hook all Keyboard Events
    HookKeyboard(Me)
End Sub

The function isHooked in the Keyboard module, where the actual fun begins:

'This function is where you capture the key pressed. 
Public Function IsHooked(ByRef Hookstruct As KBDLLHOOKSTRUCT) As Boolean
    Dim zKey As Keys
    Dim control As Control
    Dim hInstance As Integer
    Try
        Dim ActiveWin As Integer
        'GetActiveWindow determines if the application has focus
        ActiveWin = GetActiveWindow
        
        If ActiveWin <> 0 Then
            If UBound(frmM.Lines) >= 0 Then
                If frmM.Lines(GetTextBoxCurrentLine(frmM) - 1).Length > _
                                                          MaxLengthLine Then
                'Accept Enter Button
                    If (Hookstruct.vkCode = zKey.Enter) Then
                        SendKeys.Send("{Enter}")
                        Return True
                    End If
                    'Accept BackSpace
                    If (Hookstruct.vkCode = zKey.Back) Then
                        SendKeys.Send("{BACKSPACE}")
                        Return True
                    End If
                    'Accept Up Arrow
                    If (Hookstruct.vkCode = zKey.Up) Then
                        SendKeys.Send("{UP}")
                        Return True
                    End If
                    'Accept Down Arrow
                    If (Hookstruct.vkCode = zKey.Down) Then
                        SendKeys.Send("{Down}")
                        Return True
                    End If
                    'Accept Left Arrow
                    If (Hookstruct.vkCode = zKey.Left) Then
                        SendKeys.Send("{Left}")
                        Return True
                    End If
                    'Accept Right Arrow
                    If (Hookstruct.vkCode = zKey.Right) Then
                        SendKeys.Send("{Right}")
                        Return True
                    End If
                    Return True
                End If
            End If
        End If
        Return False
    Catch ex As Exception
        MsgBox(ex.Message + vbCrLf + ex.StackTrace)
        Return False
    End Try
End Function

License

This article has no explicit license attached to it but may contain usage terms in the article text or the download files themselves. If in doubt please contact the author via the discussion board below.

A list of licenses authors might use can be found here

Share

About the Author

Ryan Rader
Web Developer
United States United States
Specialize in interfacing SAP and .net applications.

Comments and Discussions

 
QuestionInsert in data gride Pinmemberjayesht31-Mar-07 15:24 
Questioncontrol doesnt work when using two on the same form Pinmemberzastremi29-Aug-06 10:54 
AnswerRe: control doesnt work when using two on the same form Pinmemberrader1919-Sep-06 13:16 
GeneralRe: control doesnt work when using two on the same form [modified] Pinmembermanfred5119-Nov-06 23:06 
GeneralTake care of with the width of the textbox PinmemberJorgeRuiz11-Aug-06 11:02 
QuestionCan I use this with my browser Pinmembernachtegaal999925-Apr-06 9:37 
GeneralPainting a Warning Line PinmemberIan MacLean6-Dec-05 14:35 
GeneralRe: Painting a Warning Line Pinmemberrader197-Dec-05 2:06 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.

| Advertise | Privacy | Mobile
Web03 | 2.8.140821.2 | Last Updated 31 Oct 2005
Article Copyright 2005 by Ryan Rader
Everything else Copyright © CodeProject, 1999-2014
Terms of Service
Layout: fixed | fluid