16,554
社区成员
发帖
与我相关
我的任务
分享
Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
If e.Modifiers = Keys.Control And e.KeyCode = Keys.OemSemicolon Then
TextBox1.Clear()
TextBox1.AppendText(Today.ToLongDateString)
End If
End Sub