怎样向文体框发送粘贴消息？？

Question

怎样向文体框发送粘贴消息？？

Answer 1

sendmessage
postmessage
wm_PASTE

Answer 2

楼上正解，下面是偏方：
Option ExplicitPrivate Sub Command1_Click()
    Text1.SetFocus
    SendKeys "^v"End Sub

Answer 3

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 LongConst WM_PASTE = &H302Sub EditPaste(tBOX As Control)
    Dim EditDO As Long
    EditDO = SendMessage(tBOX.hwnd, WM_PASTE, 0, 0&)
End Sub
对EditPaste进行调用就可发送信息(粘贴板上的)到文本框。
当然可用If Clipboard.GetText = "" Then语句来判断粘贴板有无文本内容。

Answer 4

Private Sub Command1_Click()
    Text1.Text = Clipboard.GetText
End Sub

Answer 5

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