VB中的Richtextbox文字输入限制如何解决?
的有关信息介绍如下：
请加上我的黑色部分，给你做了修改：Private Sub mnuOpen_Click()CommonDialog1.Filter = "文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*"CommonDialog1.ShowOpenRichTextBox1.Text = ""FileName = CommonDialog1.FileNameRichTextBox1.LoadFile FileNameRichTextBox1.RefreshMe.Caption = "文件路径——" & FileNameRichTextBox1.SelStart = 0RichTextBox1.SelLength = Len(RichTextBox1.Text)RichTextBox1.SelColor = vbGreenEnd SubPrivate Sub Form_Load()Me.Height = 6000Me.Width = 9000RichTextBox1.BackColor = vbBlackRichTextBox1.SelStart = 0RichTextBox1.SelLength = Len(RichTextBox1.Text)RichTextBox1.SelColor = vbGreenEnd Sub
版权声明：文章由 问百问 整理收集，来源于互联网或者用户投稿，如有侵权，请联系我们，我们会立即处理。如转载请保留本文链接：https://www.wenbwen.com/article/120511.html
