मैं केवल पढ़ने के लिए RichTextBox से प्रोग्राम को हटा सकता हूं?

Question

निम्न कोड का उद्देश्य ReadOnly RichTextBox में टेक्स्ट बफर को बनाए रखने का लक्ष्य है, जिसमें अधिकतम वर्णित वर्ण हैं, और हमेशा नीचे स्क्रॉल किए जाते हैं। यह एक रीयलटाइम लॉग स्ट्रीम करता है।

लेकिन अधिकतम वर्ण संख्या बनाए रखने के लिए मेरे प्रयास में, rtMessages.TextLength()rtMessages.SelectedText = String.Empty और इसके परिणामस्वरूप के बाद से बदल रहा है, बचाव की मुद्रा में If ब्लॉक के बिना, मैं बार-बार बफर की पहली पंक्ति को हटाने का प्रयास अनंत लूप को रखना होगा ।

जब मैं ReadOnly-RichTextBox कीता को हटा देता हूं, तो यह कार्यक्षमता सफल होती है। AppendText सफल होने के बाद से थोड़ा अजीब लगता है, लेकिन मैं समझता हूं कि चयन एक अलग जानवर है।

मैं इसे बना सकते हैं तो एक ReadOnlyRichTextBoxप्रोग्राम के रूप में परिवर्तनीय है कि?

Private Sub onNewData(ByRef data As String) Handles _server.clientSentData 

    ' Add new text 
    rtMessages.SelectionStart = rtMessages.TextLength() 
    rtMessages.AppendText(data) 

    ' Delete oldest text line-by-line until the whole buffer is shorter than MAX_TEXT_LENGTH characters 
    Const MAX_TEXT_LENGTH = 200 
    Dim textLength = rtMessages.TextLength() 
    While textLength > MAX_TEXT_LENGTH 
     Dim i As Int16 = 0 
     Do While rtMessages.GetLineFromCharIndex(i) < 1 
      i += 1 
     Loop 

     rtMessages.Select() 
     rtMessages.SelectionStart = 0 
     rtMessages.SelectionLength = i 
     rtMessages.SelectedText = String.Empty 
     rtMessages.SelectionLength = 0 

     If rtMessages.TextLength() = textLength Then 
      rtMessages.Clear() 
      rtMessages.AppendText("[buffer trimming algorithm failed]") 
      Exit While 
     End If 

     textLength = rtMessages.TextLength() 
    End While 

    ' Scroll down 
    rtMessages.SelectionStart = rtMessages.TextLength() 
    rtMessages.ScrollToCaret() 
End Sub 

Answer 1

, SelectedRtf करता है का उपयोग करते हुए कार्य:

'rtMessages.Select() 
    'rtMessages.SelectionStart = 0 
    'rtMessages.SelectionLength = i 
    'rtMessages.SelectedText = String.Empty 
    'rtMessages.SelectionLength = 0 

    rtMessages.Select(0, i) 
    rtMessages.SelectedRtf = "{\rtf1\ansi}" 

Answer 2

rtMessages.SelectionLength = i - 1 

द्वारा

rtMessages.SelectionLength = i 

संपादित करें # 1

प्रतिस्थापित किया जाना चाहिए जोड़ने -1 SelectionLength के लिए, आप पहली पंक्ति का अंतिम वर्ण भूल रहे हैं। दूसरे भाग पर, केवल 1 वर्ण पहली पंक्ति पर होगा (जिस पर आप पहले रन पर चूक गए थे)। फिर आप 0 के चयन लम्बाई को हटाने का प्रयास करेंगे और आपको हर दूसरे रन के लिए एक ही टेक्स्ट लम्बाई मिल जाएगी और वहां आप अनंत लूप के साथ जाते हैं!

Answer 3

आप केवल-पढ़ने वाले पैरामीटर को हटा सकते हैं, अपना एपेंडेक्स्ट कोड लिख सकते हैं और फिर समृद्ध टेक्स्टबॉक्स को फिर से पढ़ सकते हैं।

Answer 4

मैं जानता हूँ कि यह एक पुरानी धागा है, लेकिन आप ReadOnly समस्या के समाधान की जगह निम्नलिखित कोड प्राप्त कर सकते हैं:

rtMessages.Select() 
rtMessages.SelectionStart = 0 
rtMessages.SelectionLength = i 
rtMessages.SelectedText = String.Empty 
rtMessages.SelectionLength = 0 

इस के साथ

:

rtMessages.Text = rtMessages.Text.Substring(i) 

मैं इस करता है, तो यकीन नहीं है बेहतर या खराब प्रदर्शन है, लेकिन यह RichTextBox के आसपास ReadOnly

संपादित करें:

यहाँ पूरा यह परीक्षण करने के लिए इस्तेमाल किया कोड है (नोट: मैं परीक्षण के लिए एक Button.Click पर कोड जोड़ दिया) एक ReadOnly RichTextBox में SelectedText को बदलने के लिए काम नहीं करता है का प्रयास करते समय

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
    Static X As Integer = 0 
    X += 1 

    Dim Data As String = "Line " & X.ToString & ControlChars.NewLine 
    Me.onNewData(Data) 
End Sub 

Private Sub onNewData(ByRef data As String) 

    ' Add new text 
    rtMessages.SelectionStart = rtMessages.TextLength() 
    rtMessages.AppendText(data) 

    ' Delete oldest text line-by-line until the whole buffer is shorter than MAX_TEXT_LENGTH characters 
    Const MAX_TEXT_LENGTH As Integer = 200 
    Dim textLength As Integer = rtMessages.TextLength() 
    While textLength > MAX_TEXT_LENGTH 
     Dim i As Integer = 0 
     Do While rtMessages.GetLineFromCharIndex(i) < 1 
      i += 1 
     Loop 

     'rtMessages.Select() 
     'rtMessages.SelectionStart = 0 
     'rtMessages.SelectionLength = i 
     'rtMessages.SelectedText = String.Empty 
     'rtMessages.SelectionLength = 0 

     rtMessages.Text = rtMessages.Text.Substring(i) 

     If rtMessages.TextLength() = textLength Then 
      rtMessages.Clear() 
      rtMessages.AppendText("[buffer trimming algorithm failed]") 
      Exit While 
     End If 

     textLength = rtMessages.TextLength() 
    End While 

    ' Scroll down 
    rtMessages.SelectionStart = rtMessages.TextLength() 
    rtMessages.ScrollToCaret() 

End Sub