请问各位VB高手可以用VB实现普通鼠标的剪切和复制功能吗?
请问各位VB高手可以用VB实现普通鼠标的剪切和复制功能吗?
如果能够实现,那么应该怎么做?用到哪些函数,最好给源码!
呵呵!~~~~~~
参考答案:1.新建模块放入下面代码。
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const WM_CUT = &H300
Public Const WM_COPY = &H301
Public Const WM_PASTE = &H302
Public Const WM_CLEAR = &H303
Public Const WM_UNDO = &H304
2.新建窗体，添加控件TextBox，名称为mText。
并添加如下代码。
'Undo
Public Sub Undo()
Dim Ok As Long
Ok = SendMessage(mText.hwnd, EM_UNDO, 0, 0&)
End Sub
'Cut
Public Sub Cut()
Dim Ok As Long
Ok = SendMessage(mText.hwnd, WM_CUT, 0, 0&)
End Sub
'Copy
Public Sub Copy()
Dim Ok As Long
Ok = SendMessage(mText.hwnd, WM_COPY, 0, 0&)
End Sub
'Paste
Public Sub Paste()
Dim Ok As Long
Ok = SendMessage(mText.hwnd, WM_PASTE, 0, 0&)
End Sub
'Del
Public Sub Del()
Dim Ok As Long
Ok = SendMessage(mText.hwnd, WM_CLEAR, 0, 0&)
End Sub
3.在窗体中加入几个按钮，测试一下这几个函数即可。