[专业]求VB中API实现RichTextBox优化追加文本方法

-1 With RichTextBox1 lngPlace = .Find(vstrKey, , lngCodeLen)If lngPlace <> -1 Then t=t+1 .SelColor = vbBlue .SelStart = lngPlace + lngKeyCount End If End With Loop End Sub Private Sub Command1_Click()FormatCode("你搜索内容")Print "出现的次数" & t End Sub ...

Mid(AString, i, 1) = vbCr Then CalcNewLine = CalcNewLine + 1 End If Next End Function Private Sub cmdCommand1_Click()Text1.Text = CStr(CalcNewLine(RichTextBox1.Text))End Sub 以上代码在Visual Basic 6.0 SP6 下运行通过。如果文件大于64K将极其缓慢。必须使用Win32API才可以。

。因此务必注意：1）如果你的文本是带有格式化的（比如设置过字体颜色等），必须使用rtf存储，默认直接使用这个方法：RichTextBox1.SaveFile("hello.rtf")2）如果你的文本是纯文本（txt格式的），那么你要这样存储：RichTextBox1.SaveFile("c:\hooklog.txt", RichTextBoxStreamType.PlainText)

把它的ScrollBar属性设置为：0：没有滚动条 1：横向滚动条 2：纵向滚动条 3：双向滚动条 别着急，继续看！滚动条只有在真正需要的时候才显示出来，不会像TextBox一样显示为灰色 当MultiLine属性设置为True的时候，就会像Word一样自动换行，于是横向滚动条将不会显示 但是自动换行在RichTextBox里面是不...

Private Sub RichTextBox1_KeyUp(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeySpace ThenRichTextBox1.SelFontName = CommonDialog1.FontNameEnd IfEnd Sub至此,我们的记事本可以编译使用了。点击菜单“文件”-“生成XXX.EXE”,回到桌面运行我们的记事本看看,是不是颇有成就感?当然,这样的记事本还...

RichTextbox是一个 控件，可以改变文字的 颜色，加图片等。和textbox是不同 控件。text照道理说可以放30000+个汉字， 转换成字符是60000+字符 你的错误不是在这个上面，是你的变量上面吧！

FlowDocument doc = new FlowDocument();Paragraph p = new Paragraph(); // Paragraph 类似于 html 的 P 标签 Run r = new Run(myString); // Run 是一个 Inline 的标签 p.Inlines.Add(r);doc.Blocks.Add(p);myRTB.Document = doc;重点: 初始 RichTextBox 的 Document，Document...

控件里的图片是做什么用的，如果只是背景图片，不如换个思路，把改图片放入IMAGE里，任你放大缩小，放在RICHTEXTBOX 下方，然后使用一个API函数，把RICHTEXTBOX变成全透明，这样就显示背景图片和RICHTEXTBOX里的字，效果很好，我自己使用过，绝对可行。如果是控件里的文字里包换的图片，那我没弄过 Private...

打开工程菜单，选部件，选中Microsoft Rich Textbox Control，确定。然后就可以把富文本框添加到窗体上了。下面是实现对齐的代码。Private Sub Command1_Click()Print RichTextBox1.Find("**")End Sub

求行：RichTextBox1.GetLineFromChar(RichTextBox1.SelStart)+1 这个代码呢，我的理解呢，是获取在selstart的地方的行数。一般来讲selstart的地方都是光标的地方，然后会给你返回line。不过返回的时候要自己加1。不是很懂这个语法，有懂得可以教我一下 以上是求行数。求列：For i = 0 To Rich...