7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
红牛哥110 2003-11-12
- 打赏
- 举报
完全支持rainstormmaster的偏方
xzp1030 2003-11-12
- 打赏
- 举报
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
northwolves 2003-11-12
- 打赏
- 举报
Private Sub Command1_Click()
Text1.Text = Clipboard.GetText
End Sub
Text1.Text = Clipboard.GetText
End Sub
aha99 2003-11-12
- 打赏
- 举报
up...
6742 2003-11-12
- 打赏
- 举报
Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, _
Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any _
) As Long
Const WM_PASTE = &H302
Sub EditPaste(tBOX As Control)
Dim EditDO As Long
EditDO = SendMessage(tBOX.hwnd, WM_PASTE, 0, 0&)
End Sub
对EditPaste进行调用就可发送信息(粘贴板上的)到文本框。
当然可用If Clipboard.GetText = "" Then语句来判断粘贴板有无文本内容。
(ByVal hwnd As Long, _
Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any _
) As Long
Const WM_PASTE = &H302
Sub EditPaste(tBOX As Control)
Dim EditDO As Long
EditDO = SendMessage(tBOX.hwnd, WM_PASTE, 0, 0&)
End Sub
对EditPaste进行调用就可发送信息(粘贴板上的)到文本框。
当然可用If Clipboard.GetText = "" Then语句来判断粘贴板有无文本内容。
rainstormmaster 2003-11-09
- 打赏
- 举报
楼上正解，下面是偏方：
Option Explicit
Private Sub Command1_Click()
Text1.SetFocus
SendKeys "^v"
End Sub
Option Explicit
Private Sub Command1_Click()
Text1.SetFocus
SendKeys "^v"
End Sub
hisofty 2003-11-09
- 打赏
- 举报
sendmessage
postmessage
wm_PASTE
postmessage
wm_PASTE
