If KeyCode = vbKeySpace Then RichTextBox1.SelFontName = CommonDialog1.FontName End If End Sub 至此,我们的记事本可以编译使用了。点击菜单“文件”-“生成XXX.EXE”,回到桌面运行我们的记事本看看,是不是颇有成就感? 当然,这样的记事本还比较粗糙,我们还需要做些工作,请看下一章。 第二章 美化程序界面...
先执行下面两行，将段落全部选中 RichTextBox1(0).SelStart =??RichTextBox1(0).SelLength =??再执行下面两行 RichTextBox1(0).SelIndent = 450 RichTextBox1(0).SelHangingIndent = -450 下面两行的意思是，先将段落整体向右缩进450像素 再将（除段落首行外的文字）想左缩进450像素 总共加...
一. 显示时滚动条始终在下：// 让光标定位到文本框末尾 richTextBox1.Select(richTextBox1.TextLength, 0);//然后移动滚动条，使输入点(text entry point)(即光标所在的位置）显示出来 //这样也可以达到滚动到最下方的目的 richTextBox1.ScrollToCaret(); 二. 输入时滚动条始终在下：richTextBox1...
SelStart = 0RichTextBox1.SelLength = Len(RichTextBox1)SnedKeys "^{C}" '模拟按下Ctrl+C或者RichTextBox1.SelStart = 0RichTextBox1.SelLength = Len(RichTextBox1)Clipboard.Clear '先清空剪贴板Clipboard.SetText Form4.RichTextBox1.SelText你自己再试试看.加油这样写会有问题？
'记录RichTextBox的光标位置和选定长度 MySelStart = RichTextBox1.SelStart MySelLength = RichTextBox1.SelLength '选定第三个字符，并且颜色设为红色 RichTextBox1.SelStart = 2 RichTextBox1.SelLength = 1 RichTextBox1.SelColor = vbRed '恢复之前的光标位置和选定长度 RichTextBox1.Sel...
VB6.0可以使用TextBok控件或RichTextBox控件实现将读入文本文件显示于控件中。TextBox 控件有时也称作编辑字段或者编辑控件，显示设计时输入的用户输入的、或运行时在代码中赋予控件的信息。为了在 TextBox 控件中显示多行文本，要将 MultiLine 属性设置为 True。如果多行 TextBox 没有水平滚动条，那么...
3个textbox,我想让后面的第二个,第三个获得焦点时,输入法跟第一个是一样的。 imemode设置为1,不能解决,设在1以后,就是每次都切换成搜狗拼音,而不是五笔。要是改一下输入法顺序,那就每次都是五笔,但是换个用拼音的人就不行了。或者程序换到其它电脑... 展开 lidn...
用seltext，会替换RichTextBox的选中部分，只插入不替换的话，可以这么写 Private Sub Command1_Click()With RichTextBox1 .Text = Left(.Text, .SelStart + .SelLength) & Now & Mid(.Text, .SelStart + .SelLength + 1)End With End Sub private...
Me.RichTextBox1.SelRTF = Aa + Dd + Bb API:Private Sub Command1_Click()RTBHigh.APIHighlightHard vbYellow Text1.Text = RichTextBox1.TextRTF End Sub Private Sub Form_Load()RTBHigh.AssignControls RichTextBox1 End Sub ///模块 Public RTBHigh As New ClsAPIHighlight ///这个...
我简单写一个,供你参考,字体的名字可以在控件的font属性里找到.Private Sub Form_Load()Combo1.AddItem "1"Combo1.AddItem "2"Combo1.AddItem "3"Combo1.AddItem "4"Combo1.ListIndex = 0 End Sub Private Sub Combo1_Click()If Combo1.Text = "1" Then RichTextBox1.SelFontName = "...