当前位置:编程学习 > VB >>

请问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 ,  基础类
CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,