ctrl+c……的问题！
我有文本框，右键被我屏蔽了， 现在就想通过键盘的ctrl+c和ctrl+v来实现。应该怎么样做呢？能给个例子吗？在线等，谢谢！ 问题点数：20、回复次数：6Top
1 楼wuyazhe（wyz&xyl）回复于 2006-03-09 11:03:25 得分 0
文本框本来就可以ctrl+c,ctrl+v的Top
2 楼mzwww（努力的奴隶）回复于 2006-03-09 11:32:00 得分 0
是这样的，我的控件是序列化后传过来的，所以现在没有这个功能，我现在想实现
如何编程实现ctrl+c ctrl+v功能Top
3 楼mzwww（努力的奴隶）回复于 2006-03-09 12:38:38 得分 0
自己顶一下
Top
4 楼mzwww（努力的奴隶）回复于 2006-03-09 14:09:56 得分 0
再顶Top
5 楼starring（漂流⊙一组）回复于 2006-03-09 20:54:51 得分 20
在窗口的KeyDown事件写，要设置窗口的KeyPreview窗性为 TRUE.
Protected Overrides Sub OnKeyDown(ByVal e As System.Windows.Forms.KeyEventArgs)
If e.Control Then
If e.KeyCode = Keys.C Then
msgbox（"现在是复制"）
End If
If e.KeyCode = Keys.V Then
msgbox（"现在是粘贴"）
End If
End If
End Sub
Top
6 楼mzwww（努力的奴隶）回复于 2006-03-10 14:31:24 得分 0
谢谢各位！搞定
'复制
Private Sub Ctrl_Keypress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
If e.KeyCode = Keys.C AndAlso e.Control Then
If CType(sender, mycontrol.mTextbox).SelectedText <> "" Then
Clipboard.SetDataObject(CType(sender, mycontrol.mTextbox).SelectedText)
End If
End If
End Sub
'粘贴
Private Sub Ctrl_Keyup(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
If e.KeyCode = Keys.V AndAlso e.Control Then
Dim iData As IDataObject = Clipboard.GetDataObject()
If iData.GetDataPresent(DataFormats.Text) Then
CType(sender, mycontrol.mTextbox).SelectedText = CType(iData.GetData(DataFormats.Text), String)
End If
End If
End Sub
用的事件是keyupTop
