如何在VB复制文本?

Question

记事本程序句柄=FindWindow(VbNullString,记事本")

Answer 1

Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_PASTE = &H302Private Sub Command1_Click()
    Dim TemphWnd As Long
    
    TemphWnd = FindWindow("Notepad", vbNullString)
    TemphWnd = FindWindowEx(TemphWnd, 0, "Edit", vbNullString)
    If TemphWnd Then
        'Debug.Print TemphWnd
        VB.Clipboard.SetText Text1.Text
        SendMessage TemphWnd, WM_PASTE, 0, ByVal 0&
        
    End If
    
End Sub

Answer 2

zyl910(910：分儿，我来了！) 哥们,我是想复制窗体上一个文本框的内容,而不是VB程序代码

Answer 3

VB.Clipboard.SetText Text1.TextText1.Text不是一个文本框的内容还是什么！

Answer 4

用Enumwindows和Enumchildwindows可以得到當前系統中所有的窗口及窗口中所有控件的包柄..