请问vb编程如何在富文本框中实现鼠标右键响应?
使得编好的富文本框在做文字编辑时,也可以像在pc记事本中那样,选中一段文字,用鼠标右键“剪切”“复制”“粘贴”“全选”操作。
http://www.upschool.com.cn/edu/1325/2007/217/10du276414_1.shtml
上面这个链接给出的答案有错误,还是请大家参照它给出正确代码。 --------------------编程问答-------------------- 怎么错了,那道理挺简单的。 --------------------编程问答-------------------- 文本框本身有右键菜单,不用编程吧! --------------------编程问答-------------------- 当然,你可以在这个菜单上加入自己的菜单! --------------------编程问答-------------------- '添加 一个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
补充:VB , 基础类