请问vb编程如何在富文本框中实现鼠标右键响应? 使得编好的富文本框在做文字编辑时,也可以像在pc记事本中那样,选中一段文字,用鼠标右键“剪切”“复制”“粘贴”“全选”操作。 http://www.upschool.com.cn/edu/1325/2007/217/10du276414_1.shtml上面这个链接给出的答案有错误,还是请大家参照它给出正确代码。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 '添加 一个Text1, 一个 Richtextbox1, Command1(0) Command1(1) Command1(2) Command1(3) Private Sub Form_Load() Command1(0).Caption = "复制" Command1(1).Caption = "剪切" Command1(2).Caption = "粘贴" Command1(3).Caption = "字体" Text1.Text = "" fname = "c:\666.txt" RichTextBox1.LoadFile fname, 1 End Sub Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 '复制 Clipboard.SetText RichTextBox1.SelText Case 1 '剪切 Clipboard.Clear Clipboard.SetText RichTextBox1.SelText RichTextBox1.SelText = "" Case 2 '粘贴 Text1.SelText = Clipboard.GetText Case 3 '改变字体 RichTextBox1.SelFontName = "楷体_GB2312" RichTextBox1.SelFontSize = 24 RichTextBox1.SelColor = QBColor(Int(Rnd * 15)) End Select End Sub 请教excel下面vba操作word的方法 抢分啦 VB 登陆问题 请问一个有关多页面浏览器的问题. ◇◆祝大家春节快乐!!连接远程数据库:怎么做?◇◆ 请问各位大侠!我的用的是vb6.0当我引用msadodclib时,总是提示与现有的模块,过程,对象冲突是怎么回事? 查询的结构怎么写入listview?? 有一个较大容量的数据表需要存取,请问用什么方法比较好?谢谢! 在VB中如何优化文本框中内容的显示速度? 一个关于listbox和ado的问题: 关于 len() 函数的问题~~~ 通用报表问题 谁能帮忙给几个动态连水晶报表的例子
Command1(0).Caption = "复制"
Command1(1).Caption = "剪切"
Command1(2).Caption = "粘贴"
Command1(3).Caption = "字体"
Text1.Text = ""
fname = "c:\666.txt"
RichTextBox1.LoadFile fname, 1
End Sub Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0 '复制
Clipboard.SetText RichTextBox1.SelText
Case 1 '剪切
Clipboard.Clear
Clipboard.SetText RichTextBox1.SelText
RichTextBox1.SelText = ""
Case 2 '粘贴
Text1.SelText = Clipboard.GetText
Case 3 '改变字体
RichTextBox1.SelFontName = "楷体_GB2312"
RichTextBox1.SelFontSize = 24
RichTextBox1.SelColor = QBColor(Int(Rnd * 15))
End Select
End Sub