16,556
社区成员
发帖
与我相关
我的任务
分享
Private Sub TextBox2_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox2.KeyDown
Dim res As MsgBoxResult
Select Case e.KeyData
Case Keys.Escape
res = MsgBox("是否确定要取消输入?", Microsoft.VisualBasic.MsgBoxStyle.OKCancel, "警告")
If res = Microsoft.VisualBasic.MsgBoxResult.OK Then
TextBox2.Text = ""
End If
Case Keys.Enter
res = MsgBox("是否确定要将数据保留到历史记录中?", Microsoft.VisualBasic.MsgBoxStyle.OKCancel, "警告")
If res = Microsoft.VisualBasic.MsgBoxResult.OK Then
TextBox1.Text = TextBox1.Text + TextBox2.Text + ControlChars.CrLf
TextBox2.Text = ""
End If
Case Keys.Control Or Keys.A
TextBox2.SelectionStart = 0
TextBox2.SelectionLength = Len(TextBox2.Text)
MsgBox("Ctrl+a")
Case Keys.Control Or Keys.C
Clipboard.SetDataObject(TextBox2.SelectedText)
MsgBox("Ctrl+c")
Case Keys.Control Or Keys.V
Dim iData As IDataObject
iData = Clipboard.GetDataObject()
If (iData.GetDataPresent(DataFormats.Text)) Then
TextBox2.SelectedText = iData.GetData(DataFormats.Text)
Else
MsgBox("Could not retrieve data off the clipboard.")
End If
MsgBox("Ctrl+v")
Case Keys.Control Or Keys.X
Clipboard.SetDataObject(TextBox2.SelectedText)
TextBox2.SelectedText = ""
MsgBox("Ctrl+x")
Case Keys.F1
MsgBox("练习使用键盘事件", Microsoft.VisualBasic.MsgBoxStyle.MsgBoxHelp, "关于")
End Select
End Sub
'KeyDown事件中
If e.Control And e.KeyCode = Keys.C Then e.SuppressKeyPress = False '允许Ctrl+C
If e.Control And e.KeyCode = Keys.V Then e.SuppressKeyPress = False '允许Ctrl+V