.net टेक्स्टबॉक्स में लाइनों की सीमा संख्या

Question

मैं multiline विकल्प ON के साथ Winforms टेक्स्टबॉक्स का उपयोग कर रहा हूं। मैं उस लाइन की संख्या को सीमित करना चाहता हूं जिसमें इसे दर्ज किया जा सकता है। उपयोगकर्ता उस से अधिक लाइनों में प्रवेश करने में सक्षम नहीं होना चाहिए।

मैं इसे कैसे प्राप्त कर सकता हूं?

Answer 1

आप

txtbox.Lines.Length

के लिए जांच करने की आवश्यकता आप 2 परिदृश्यों के लिए इस संभाल करने की जरूरत है: 1. उपयोगकर्ता पाठ बॉक्स 2. उपयोगकर्ता पाठ बॉक्स

उपयोगकर्ता में पाठ चिपकाया गया है में लिख रहा है टेक्स्टबॉक्स

आपको टेक्स्ट बॉक्स की कुंजी प्रेस घटना को संभालने की आवश्यकता है ताकि अधिकतम लाइनों को पार होने पर उपयोगकर्ता को अधिक लाइनों में प्रवेश करने से रोका जा सके।

private const int MAX_LINES = 10; 

private void textBox1_KeyPress(object sender, KeyPressEventArgs e) 
{ 
    if (this.textBox1.Lines.Length >= MAX_LINES && e.KeyChar == '\r') 
    { 
     e.Handled = true; 
    } 
} 

मैंने उपरोक्त कोड का परीक्षण किया है। यह वांछित के रूप में काम करता है।

private void textBox1_TextChanged(object sender, EventArgs e) 
{ 
    if (this.textBox1.Lines.Length > MAX_LINES) 
    { 
     this.textBox1.Undo(); 
     this.textBox1.ClearUndo(); 
     MessageBox.Show("Only " + MAX_LINES + " lines are allowed."); 
    } 
} 

Answer 2

ठीक:

उपयोगकर्ता चिपकाता पाठ बॉक्स

अधिकतम लाइनों की तुलना में अधिक चिपकाने से उपयोगकर्ता को रोकने के लिए कुछ टेक्स्ट, आप पाठ बदल ईवेंट हैंडलर कोड कर सकते हैं। कैसे एक उदाहरण चर "lastKnownGoodText" को परिभाषित करने और कुछ इस तरह करने के बारे में:

private void textBox_TextChanged (object sender, EventArgs e) { 
    if (textBox.Lines.Length > 10) 
     textBox.Text = lastKnownGoodText; 
    else 
     lastKnownGoodText = textBox.Text; 
} 

Answer 3

आप क्या हासिल करने की कोशिश कर रहे हैं पर निर्भर करता है, वहाँ भी है MaxLength संपत्ति वर्णों की संख्या आप पाठ बॉक्स में दर्ज कर सकते हैं स्थापित करने के लिए (चूंकि एक पंक्ति में एक चर लंबाई हो सकती है)।

Answer 4

कॉपी/पेस्ट के लिए छंटनी के साथ अधिकतम MAX_LINES तक सीमित करें।

private void textBox1_KeyDown(object sender, KeyEventArgs e) 
    { 
     if (textBox1.Lines.Length >= MAX_LINES && e.KeyValue == '\r') 
      e.Handled = true; 
    } 

    private void textBox1_TextChanged(object sender, EventArgs e) 
    { 
     if (textBox1.Lines.Length > MAX_LINES) 
     { 
      string[] temp = new string[MAX_LINES]; 
      for (int i = 0; i < MAX_LINES; i++) 
      { 
       temp[i] = textBox1.Lines[i]; 
      } 

      textBox1.Lines = temp; 
     } 
    } 

Answer 5

यह समाधान क्योंकि जब आप लगातार लिखते हैं, तो 1 लाइन लाइनों आप स्क्रीन पर देखते का कोई ध्यान दिए बिना माना जाएगा काम नहीं करता।

इसे हल करने के लिए, आपको स्क्रीन पर दिखाई देने वाली रेखाओं की संख्या को गिनने के लिए SendMessage API का उपयोग करने की आवश्यकता है। कोड यहाँ है।

Private Declare Function SendMessageINT Lib "user32" Alias "SendMessageA" _ 
     (ByVal hwnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer 
Private Const EM_GETLINECOUNT = &HBA 

Private Sub txtText1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtText1.KeyPress 

    Const MAX_LINES = 13 
    Dim lngCount As Long 

    lngCount = SendMessageINT(txtText1.Handle, EM_GETLINECOUNT, 0, 0) 

    If lngCount = MAX_LINES And Asc(e.KeyChar) <> Keys.Back And Asc(e.KeyChar) <> Keys.Delete Then 
     e.Handled = True 
    End If 
End Sub 

इसके साथ ही, आप पाठ बॉक्स में कर्सर की स्थिति पता लगाने के लिए, ताकि आप उपयोगकर्ता टाइप करने के लिए अनुमति दे सकते हैं की जरूरत है। पिछले कोड में, एक बार यह 13 लाइनों तक पहुंचने के बाद, उपयोगकर्ता किसी भी पंक्ति में टाइप नहीं कर पाएगा। उस पर काबू पाने के लिए, आपको पता लगाना होगा कि कर्सर किस रेखा में है। इसके लिए नीचे दिए गए कोड का प्रयोग करें।

एपीआई घोषणा

निजी कॉन्स्ट EM_LINEFROMCHAR = & HC9

कोड नीचे पाठ बॉक्स के MouseDown, MouseUp, KeyDown और KeyUp घटनाओं में रखा जाना चाहिए के साथ इस घोषणा करते हैं।

intLineNo = SendMessageINT (txtText1।हैंडल, EM_LINEFROMCHAR, -1,) + 1

लाइननो खोजने के बाद, आप टेक्स्टबॉक्स की कीप्रेस ईवेंट में मूल्यांकन कर सकते हैं।

Answer 6

private void txttrccertificateto_TextChanged(object sender, EventArgs e) 
{ 
    if (txttrccertificateto.Text.Length > MAX_Char) 
    { 
    txttrccertificateto.Text = txttrccertificateto.Text.Remove(MAX_Char, 1); 
    } 
    if (txttrccertificateto.Lines.Length > MAX_LINES) 
    { 
    string[] temp = new string[MAX_LINES]; 
    for (int i = 0; i < MAX_LINES; i++) 
    { 
     temp[i] = txttrccertificateto.Lines[i]; 
    } 

    txttrccertificateto.Lines = temp; 
    } 
} 

private void txttrccertificateto_KeyDown(object sender, KeyEventArgs e) 
{ 
    if (txttrccertificateto.Lines.Length >= MAX_LINES && e.KeyValue == '\r') 
    e.Handled = true; 
    if (txttrccertificateto.Text.Length >= MAX_Char && e.KeyValue == '\r') 
    e.Handled = true; 
} 

private void txttrccertificateto_KeyUp(object sender, KeyEventArgs e) 
{ 
    if (txttrccertificateto.Lines.Length >= MAX_LINES && e.KeyValue == '\r') 
    e.Handled = true; 
    if (txttrccertificateto.Text.Length >= MAX_Char && e.KeyValue == '\r') 
    e.Handled = true; 
} 

Answer 7

मुझे पता है कि यह एक पुराना धागा है, लेकिन यह मेरा समाधान है। आप मूल रूप से जांचते हैं कि क्लाइंट क्षेत्र से पहला या अंतिम अक्षर बाहर है या नहीं। किसी कारण से, यदि पहला अक्षर बॉक्स से बाहर स्क्रॉल हो जाता है, तो इसका वाई मान 0 से अधिक होगा, इसलिए मैं इसे भी देखता हूं। यह लाइन ब्रेक, कॉपी/पेस्ट और कैरेक्टर रैपिंग दोनों के लिए काम करता है।

Private Sub TextBox_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles Me.TextChanged 
    If Not Me.Multiline OrElse String.IsNullOrEmpty(Me.Text) OrElse _InTextChanged Then Exit Sub 
    _InTextChanged = True 

    Try 
     Dim posLast As Point = Me.GetPositionFromCharIndex(Me.Text.Length - 1) 
     Dim posFirst As Point = Me.GetPositionFromCharIndex(0) 

     Dim sizeLast As SizeF 
     Dim sizeFirst As SizeF 

     Using g As Graphics = Graphics.FromHwnd(Me.Handle) 
      sizeLast = g.MeasureString(Me.Text(Me.Text.Length - 1).ToString(), Me.Font) 
      sizeFirst = g.MeasureString(Me.Text(0).ToString(), Me.Font) 
     End Using 

     If posLast.Y + sizeLast.Height > Me.ClientSize.Height OrElse posFirst.Y < 0 OrElse posFirst.Y + sizeFirst.Height > Me.ClientSize.Height Then 

      Me.Text = _PreviousText 

      If _PreviousSelectionStart > Me.Text.Length Then 
       Me.SelectionStart = Me.Text.Length 
      Else 
       Me.SelectionStart = _PreviousSelectionStart 
      End If 


     End If 
    Catch ex As Exception 

    End Try 

    _InTextChanged = False 


    End Sub 

    Private Sub Textbox_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress 
    _PreviousSelectionStart = Me.SelectionStart 
    _PreviousText = Me.Text 
    End Sub