| {\rtf1\ansi\ansicpg1252\deff0\deflang1044{\fonttbl{\f0\fnil\fcharset0 MS Sans Serif;}} \viewkind4\uc1\pard\f0\fs17 The following code demonstrates how to limit the number of lines that can be stored in a multiline textbox. \par \par 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 \par \par 'Purpose : Restricts the number of lines a Multiline textbox can hold. \par 'Inputs : tbLimit The textbox to check the number of lines. \par ' lMaxNumLines The maximum number of lines in the textbox. \par 'Outputs : Returns True if suceeded in flashing the window. \par 'Notes : The TextBox must be a MultiLine textbox \par 'Example : Would use typically called from textbox change event: \par \par 'Private Sub Text1_Change() \par ' 'Limits the number of line to 2 \par ' TextBoxLimitLines Text1, 2 \par ' Const c_lngMaxLines As Long = 100 \par 'End Sub \par \par Function TextBoxLimitLines(tbLimit As TextBox, lMaxNumLines As Long) As Boolean \par Dim lLength As Long, sText As String \par Const EM_GETLINECOUNT = &HBA, EM_LINELENGTH = &HC1 \par Const EM_SETSEL = &HB1, EM_REPLACESEL = &HC2 \par \par On Error GoTo ErrFailed \par \par With tbLimit \par 'Loop until the number of lines is less than or equal to \par 'the maximum number of lines \par Do \par \par If SendMessage(.hwnd, EM_GETLINECOUNT, 0&, ByVal 0&) > lMaxNumLines Then \par sText = .Text \par If Right$(sText, 2) = vbNewLine Then \par 'Delete a line feed \par .Text = Left$(sText, Len(sText) - 2) \par .SelStart = Len(sText) - 2 \par Else \par 'Delete a character \par .Text = Left$(sText, Len(sText) - 1) \par .SelStart = Len(sText) - 1 \par End If \par Else \par 'Number of lines is not exceeded \par Exit Do \par End If \par Loop \par End With \par \par TextBoxLimitLines = True \par \par Exit Function \par \par ErrFailed: \par Debug.Print "Error in TextBoxLimitLines: " & Err.Description \par TextBoxLimitLines = False \par End Function \par } |
Limiting the number of lines a MultiLine TextBox c |
India web developer web development India | India web development company India ecommerce web developer