TextBox Control (VBCCRTextBox)

VBCCRTextBox control is an enhanced text box control that provides more features than the standard TextBox, including undo/redo, auto-complete, spell checking, and more. It can be used for single-line or multi-line text input.

Properties

Key Properties

• Text: Text content
• SelText: Selected text
• SelStart: Selection start position
• SelLength: Selection length
• MultiLine: Whether multi-line
• ScrollBars: Scroll bars
• Alignment: Text alignment
• MaxLength: Maximum text length
• PasswordChar: Password character
• Locked: Whether locked
• HideSelection: Whether to hide selection when losing focus
• OLEDropMode: OLE drag and drop mode
• CueBanner: Hint text (placeholder)
• AutoComplete: Auto-complete
• UndoLimit: Undo limit

Methods

Main Methods

• SelAll(): Select all text
• Cut(): Cut
• Copy(): Copy
• Paste(): Paste
• Undo(): Undo
• Redo(): Redo
• LoadFile(FileName As String): Load file
• SaveFile(FileName As String): Save file
• FindText(Text As String, [Start As Long], [Options As SearchOptionsConstants]): Find text

Events

• Change(): Text change event
• Click(): Click event
• DblClick(): Double-click event
• KeyDown(KeyCode As Integer, Shift As Integer)
• KeyPress(KeyAscii As Integer)
• KeyUp(KeyCode As Integer, Shift As Integer)
• MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
• MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
• MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
• OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
• OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer)

Code Examples

Basic Usage

Private Sub Form_Load()
    ' Configure text box
    With TextBox1
        .MultiLine = True
        .ScrollBars = vbVertical
        .Text = "Enter text here..."
        .SelStart = 0
        .SelLength = Len(.Text)
        .CueBanner = "Enter search keywords"
        .MaxLength = 1000
    End With
End Sub

Text Processing

Private Sub ProcessText()
    With TextBox1
        ' Get selected text
        Dim SelectedText As String
        SelectedText = .SelText
        
        ' Replace selected text
        .SelText = UCase$(SelectedText)
        
        ' Insert text at cursor position
        .SelText = vbNewLine & "New Line"
        
        ' Move cursor to end
        .SelStart = Len(.Text)
    End With
End Sub

Undo/Redo Support

Private Sub SetupUndoRedo()
    With TextBox1
        .UndoLimit = 100  ' Set undo steps
        
        ' Add edit menu items
        mnuEdit.Enabled = True
        mnuUndo.Enabled = True
        mnuRedo.Enabled = True
    End With
End Sub

Private Sub mnuUndo_Click()
    If TextBox1.CanUndo Then TextBox1.Undo
End Sub

Private Sub mnuRedo_Click()
    If TextBox1.CanRedo Then TextBox1.Redo
End Sub

Auto-Complete Implementation

Private Sub SetupAutoComplete()
    With TextBox1
        .AutoComplete = True
        .AutoCompleteSource = acSourceCustom
        
        ' Add custom auto-complete items
        .AutoCompleteCustomSource.Clear
        .AutoCompleteCustomSource.Add "Visual Basic"
        .AutoCompleteCustomSource.Add "VB6"
        .AutoCompleteCustomSource.Add "VBScript"
        .AutoCompleteCustomSource.Add "Visual Studio"
    End With
End Sub

Common Use Cases

Search Box

Private Sub CreateSearchBox()
    With txtSearch
        .CueBanner = "Search..."
        .Height = 20
        .Width = 150
        
        ' Add search icon
        Set .Picture = LoadPicture("search.ico")
        .PicturePosition = sbrLeft
        
        ' Enable real-time search
        .EnableRealTimeSearch = True
    End With
End Sub

Private Sub txtSearch_Change()
    If Len(txtSearch.Text) >= 3 Then
        PerformSearch txtSearch.Text
    End If
End Sub

Rich Text Editor

Private Sub CreateEditor()
    With TextBox1
        .MultiLine = True
        .ScrollBars = vbBoth
        .Font.Name = "Consolas"
        .Font.Size = 10
        
        ' Set up line numbers
        .ShowLineNumbers = True
        .LineNumberColor = vbBlue
        
        ' Enable syntax highlighting
        .EnableSyntaxHighlighting = True
        .HighlightColor = vbRed
    End With
End Sub

Best Practices

1. Input Validation

Private Sub ValidateInput(KeyAscii As Integer)
    ' Allow only numbers
    If Not IsNumeric(Chr$(KeyAscii)) And _
       KeyAscii <> vbKeyBack Then
        KeyAscii = 0
    End If
End Sub

Private Sub TextBox1_KeyPress(KeyAscii As Integer)
    ValidateInput KeyAscii
End Sub

2. Text Change Handler

Private Sub TextBox1_Change()
    Static IsProcessing As Boolean
    
    If IsProcessing Then Exit Sub
    IsProcessing = True
    
    ' Process text changes
    ProcessTextChanges
    
    IsProcessing = False
End Sub

Known Issues and Solutions

1. Memory Management

Private Sub ClearLargeText()
    ' Clear large text efficiently
    TextBox1.Text = vbNullString
    TextBox1.Refresh
    DoEvents
End Sub

2. Performance Optimization

Private Sub OptimizePerformance()
    ' Suspend updates
    TextBox1.LockUpdate = True
    
    ' Perform multiple operations
    ProcessLargeText
    
    ' Resume updates
    TextBox1.LockUpdate = False
    TextBox1.Refresh
End Sub

Additional Tips

1. Text Selection

Private Sub SelectWord()
    Dim Start As Long
    Dim Length As Long
    
    With TextBox1
        Start = .SelStart
        Length = .SelLength
        
        ' Find word boundaries
        While Start > 0 And Mid$(.Text, Start, 1) <> " "
            Start = Start - 1
        Wend
        
        While Start + Length < Len(.Text) And _
              Mid$(.Text, Start + Length, 1) <> " "
            Length = Length + 1
        Wend
        
        ' Select word
        .SelStart = Start
        .SelLength = Length
    End With
End Sub

2. Clipboard Operations

Private Sub HandleClipboard()
    ' Copy to clipboard
    Clipboard.Clear
    Clipboard.SetText TextBox1.SelText
    
    ' Paste from clipboard
    If Clipboard.GetFormat(vbCFText) Then
        TextBox1.SelText = Clipboard.GetText
    End If
End Sub

3. File Operations

Private Sub TextFileOperations()
    ' Save to file
    TextBox1.SaveFile App.Path & "\output.txt"
    
    ' Load from file
    TextBox1.LoadFile App.Path & "\input.txt"
End Sub