| {\rtf1\ansi\ansicpg1252\deff0\deflang1044{\fonttbl{\f0\fnil\fcharset0 MS Sans Serif;}} {\colortbl ;\red0\green0\blue255;} \viewkind4\uc1\pard\f0\fs17 Preventing specific lines in a textbox from being edited \par \par The following code shows you how to prevent specific lines in a textbox from being edited by the user. \par 'Purpose : Prevents users from editing specific lines in a MultiLine textbox \par 'Inputs : txtProtect The textbox being edited \par ' KeyAscii The Ascii value of the KeyPressed (from the KeyPress event of the textbox) \par ' avLinesToProtect The list of lines to protect \par 'Outputs : Returns the icon \par 'Example : Below is an example of how to use this function (place in form containing a multiline textbox): \par \par \par Option Explicit \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 \cf1 'Private Sub Form_Load()\cf0 \par ' Text1.Text = "This Line is PROTECTED!!!" & vbNewLine & "This Line is PROTECTED!!!" & vbNewLine & "This Line is PROTECTED!!!" & vbNewLine & "This Line in NOT PROTECTED" \par 'End Sub \par 'Private Sub Text1_KeyPress(KeyAscii As Integer) \par ' KeyAscii = TextBoxProtectLines(Text1, KeyAscii, 1, 2, 3) 'Protect first three lines \par \cf1 'End Sub\cf0 \par \par \par \cf1 Function TextBoxProtectLines(txtProtect As TextBox, KeyAscii As Integer, ParamArray avLinesToProtect()) As Integer \par \cf0 Dim lStartLine As Long, lEndLine As Long \par Dim sLinesToProtect As String \par Const EM_LINEFROMCHAR = &HC9 \par \par On Error GoTo ErrFailed \par 'Return the KeyAscii value \par TextBoxProtectLines = KeyAscii \par 'Determine the current line/s the user is editing \par lStartLine = SendMessage(txtProtect.hwnd, EM_LINEFROMCHAR, txtProtect.SelStart, 0&) + 1 \par lEndLine = SendMessage(txtProtect.hwnd, EM_LINEFROMCHAR, txtProtect.SelStart + txtProtect.SelLength, 0&) + 1 \par \par sLinesToProtect = Join(avLinesToProtect, "|") \par \par 'split the forbidden string into an array \par If Len(sLinesToProtect) Then \par sLinesToProtect = "|" & sLinesToProtect \par If InStr(1, sLinesToProtect, "|" & lStartLine) > 0 Or InStr(1, sLinesToProtect, "|" & lEndLine) > 0 Then \par 'User is trying to edit a protected line, return an empty ascii value \par TextBoxProtectLines = 0 \par End If \par End If \par Exit Function \par \par ErrFailed: \par Debug.Print "Error in TextBoxProtectLines: " & Err.Description \par On Error GoTo 0 \par \cf1 End Function\cf0 \par } |
Preventing specific lines in a textbox from being |
India web developer web development India | India web development company India ecommerce web developer