如何按一个快捷键,在textbox中插入字符串?

[SwordMan2001]

就像记事本程序那样,按F5,插入日期和时间,特点是:
1.在光标处插入,插入后光标停在日期时间之后.
2.不是用SendKeys,否则会发现字一个一个弹出来.

另外,如果我没有用菜单,怎么能捕获和处理F5这样的键呢?

[佛的光辉]

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Dim s As String
Dim i As Long
If KeyCode = vbKeyF5 Then
s = Left(Text1.Text, Text1.SelStart)
s = s & Date
i = Len(s)
s = s & Right(Text1.Text, Len(Text1.Text) - Text1.SelStart)
Text1.Text = s
Text1.SelStart = i
End If
End Sub

[lxcc]

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF5 Then
Text1.SelStart = Len(Text1)
Text1.SelText = Now
End If
End Sub

[whoiszm]

Option Explicit
利用text 里的 keydown和Text1.SelText就可以了！
Private Sub Form_Load()
Text1 = "adfhadhadf"
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF5 Then
Text1.SelText = "1354654"'你要插入的字符串
End If
End Sub

[SwordMan2001]

不错不错