vb中rich textbox1控件怎么使用

举个例子，有一个按钮cmdAdd是用来向文本框中添加图片的 那么可以在cmdAdd_Click事件中编写以下代码：Private Sub cmdAdd_Click()'先让用户(或者程序)选择图片 '将选择的图片添加到RichTextBox1.TextRTF '取得选择的图片的文件名 '将文件名用& 添加到RichTextBox2.Text中 End Sub ...

Private Sub Form_Load()RichTextBox1.SelStart = 4 RichTextBox1.SelLength = 1 RichTextBox1.SelColor = vbRed RichTextBox1.SelStart = 0 RichTextBox1.SelLength = 0 End Sub 这段代码会使当中的第5个字为红色。

中查找关键字的位置 （所在行），然后删除 所在行上面或者 下面的行 --- 找到关键字 "然后" 删除相邻行 代码如下:Dim Lines() As String = RichTextBox1.Lines Dim index As Integer = RichTextBox1.Find("然后", 0, RichTextBoxFinds.MatchCase)Dim TargetLine As Integer = RichTextBox...

Private Sub RichTextBox1_KeyUp(KeyCode As Integer, Shift As Integer)RichTextBox1.SelStart = 0 End Sub

j = j + 1 Next i 这个for循环呢，讲的是检查这一行光标前有多少个列，然后用J输出列的个数。因为VB6.0没有RichTextBox1.GetFirstCharIndexOfCurrentLine这种语法。所以就得自己模拟这个过程。具体怎么检查的呢，首先将 i 从0循环到光标处，如果 【光标字符数】处的行数 减去 【光标字符数减去 ...

找到RichTextBox.ocx或其相关的控件使用以下方法注册 VB中合理地利用控件能极大地提高程序开发的效率，但是许多人常遇到因控件未注册而无法使用的问题。下面就介绍几种注册控件的方法(假设待注册控件的文件名为MyCtrl.ocx)。1.在VB6环境中直接注册 在VB6集成开发环境中，选择“工程/部件”菜单，弹出“部件...

Find 方法的语法如下：object.Find(string[, start][, end][, options])当没有指定搜索范围（start 与 end ）时，如果选择了文本，则 Find 只搜索被选择的文本；若没选择文本，则搜索控件的整个内容。因此您使用 RichTextBox1.Find "s"第一搜索时，文本“s”被选择，第二次搜索时，只会搜索选定...

搜索一下MSDN，好像有的。具体思路如下:从第一字符位置处开始查找,richtextbox.search找到后,返回其位置.你要高亮显示,就用richtextbox.selstart 和.sellenght(?)找到要高亮显示的字符,用.selfontcolor设置其颜色即可.要继续实现查找,就在整个查找过程中添加一个FOR循环.

Private Sub Form_Load() '添加所有中文的字体 For i = 0 To Screen.FontCount - 1 If AscW(Left(Screen.Fonts(i), 1)) > 256 Then Combo1.AddItem Screen.Fonts(i)End If Next Combo1.Text = Combo1.List(0)End Sub Private Sub RichTextBox1_SelChange() '用SelChange()事件来激活...

依次点击菜单：工程——>部件——>按默认的“控件”选项卡列表中勾选“microsoft rich textbox control6.0 ”即可。