vb richbox控件的属性事件方法

'给你一段例子，添加一个按钮和一个rtf控件，下面的代码就是一个例子
Private Sub Command1_Click()
RichTextBox1.SelBold = True '选中的部分加粗
RichTextBox1.SelColor = vbRed '选中部分颜色变红
RichTextBox1.SelFontName = "隶书" '字体
RichTextBox1.SelFontSize = 22 '字号
RichTextBox1.SelItalic = True '倾斜
RichTextBox1.SelUnderline = True '下划线

RichTextBox1.OLEObjects.Add , , App.Path & "\1.bmp" '插入图片
RichTextBox1.SelStart = 0
Dim x As OLEObject
Set x = RichTextBox1.OLEObjects.Item(0) '获得一个对象
If x.Class = "Paint.Picture" Then '查看对象类型
MsgBox "插入一个图片对象"
End If
End Sub

Private Sub Form_Load()
RichTextBox1.Text = "aaaaaaaaaaaa你好aaaaaaabbbbbbbbbbbbbbbccccccccccccddddddddddd"
Me.Show
RichTextBox1.SetFocus
RichTextBox1.SelStart = 10 '选中一些文字
RichTextBox1.SelLength = 10
RichTextBox1.Height = Me.ScaleHeight
End Sub
'需要说明的是VB自带的RTF库是不支持对里面的图片等非文本信息做编辑的，我在网上看到过有人改造了一些tlb库来完成这些操作，类似于VB的扩展，需要自己找到才可以。
'插入表格的方法VB默认也不支持，因为VB6的OLE库本身没有扩展多少东西，唯一的解决方案就是自己去下OLE的扩展包来完成，当然这已经超过了VB的范围了
'我这个例子只能实现插入图片和文字，以及获得其中的信息，至于编辑非文本对象，VB自带的库无法实现