VB问题:如何 Set RichTextBox ?

Clipboard.SetTextRichBox1.SelText ′将RichTexBox控件上选择了的内容删除 SendKeys〃{DELETE}〃,True End Sub 3.在RichTexBox控件的MouseDown事件中实现任意位置弹出PopUPMenu。 OPrivate Sub RichTexBox1_MouseDown(Button As Integer,Shift As Integer,x As Single,Y As Single) Dim MnuFile AS Menu ′声明一个...

Clipboard.SetText RichTextBox1.SelText RichTextBox1.SelText = "" End Sub '全选 Private Sub mnuSelectAll_Click() RichTextBox1.SelStart = 0 RichTextBox1.SelLength = Len(RichTextBox1.Text) End Sub '粘贴 Private Sub mnuPaste_Click() RichTextBox1.SelText = Clipboard.GetText End Sub '...

在 RichTextBox 控件中可以通过调用 Undo 和 Redo 方法撤消和重复大多数编辑操作。CanRedo 方法使您可以确定用户撤消的上一操作是否可以重新应用于控件。例:Private Sub Command1_Click()With RichTextBox1 .SelStart = 0 .SelLength = 3 .SelColor = vbRed .SelBold = True End With End Sub ...

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

richtextbox只有selcolor/selfont等属性，你要修改只能修改selfont等这些属性就行了。你那段代码只是显示出字体对话框而已，需要在后面将richtextbox的selfont属性设置成与对话框内容相同。

发行注意 为了能在应用程序中使用 RichTextBox 控件，必须把Richtx32.ocx 文件添加到工程中。因此，在应用程序发行时，Richtx32.ocx 文件就应安装在 Microsoft Windows 的 SYSTEM 目录内。有关怎样把自定义控件添加到工程中的详细内容，请参阅《程序员指南》。参考资料：...

点击菜单：project -》components 或右键点击工具箱选择菜单components 再弹出递界面中的controls列表中选择 Microsoft RichTextbox...搞定！

richtextbox1.SelStart=0 richtextbox1.SelLength =3 大小：richtextbox1.SelFontSize = 20 颜色：richtextbox1.SelColor = RGB(255,0,0)

基本用法如下，更具体的要根据你的目的实现了：Private Sub Command1_Click()RichTextBox1.SelStart = 10 '设置选取位置 RichTextBox1.SelLength = 5 '设置选取长度 RichTextBox1.SelFontSize = 10 '设置选取内容字体大小 RichTextBox1.SelColor = vbRed '设置选取内容字体颜色 End ...