143、简简单单做到【剪下 / 复制 / 贴上 / 复原】的功能
在很多软件的编辑功能表中,都有提供【剪下 / 复制 / 贴上 / 复原】的功能,在 VB 中我们只要借用 Windows 的系统功能,很容易也可以有这样的功能,看看以下的程序码便能了解了!
Sub mnuEditText_Click (Index As Integer)
‘ 我们只要使用 SendKeys,其他的就让 Windows 去做吧!
Select Case Index
Case 0 ‘复原/UNDO
SendKeys "^Z" ‘Keys Ctrl+Z
Case 1 ‘剪下/CUT
SendKeys "^X" ‘Keys Ctrl+X
Case 2 ‘复制/COPY
SendKeys "^C" ‘Keys Ctrl+C
Case 3 ‘贴上/PASTE
SendKeys "^V" ‘Keys Ctrl+V
End Select
End Sub
联系客服