|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
本帖最后由 chuhaiou 于 2013-2-18 11:34 编辑
If KeyCode = 38 Then TextBox1 = Mid(TextBox1, 1, TextBox1.SelStart) & "↑" & Mid(TextBox1, TextBox1.SelStart + 1, Len(TextBox1))
If KeyCode = 40 Then TextBox1 = Mid(TextBox1, 1, TextBox1.SelStart) & "↓" & Mid(TextBox1, TextBox1.SelStart + 1, Len(TextBox1))
If KeyCode = 39 And TextBox1.SelStart = Len(TextBox1) Then TextBox1 = TextBox1 & "→"
If KeyCode = 37 And TextBox1.SelStart = Len(TextBox1) Then TextBox1 = TextBox1 & "←
LZ能否实现文本中自定义快捷键输入"↑"、 "↓"、"→"、"←"?
|
|