VB Dejar un botón en otro programa
Función de declaración privada SendMessage& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) p>
Const público privado BM_CLICK = &HF5
Subcomando privado1_Click()
Enviar mensaje Texto1.Texto, &.HF5, 0, ByVal 0
End Sub
Escribe el identificador en TEXTO y ¡listo!
La función Findow encuentra el identificador de la ventana y FindWindowEx se utiliza para la ventana secundaria.
La declaración es la siguiente:
Función de declaración privada FindWindow Lib "user32" Alias "FindWindowA" ( ByVal lpClassName As String, ByVal lpWindowName As String) mientras
Función de declaración privada FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
¡Luego busque una capa a la vez según el título de la ventana, el nombre de la clase, etc.!
Por ejemplo, busque un cuadro de texto con un título predeterminado
Atenuar h1 mientras
Atenuar h2 mientras
h1 = FindWindow( vbNullString, "Untitled - Notepad") 'vbNullString es el nombre de la clase, "Untitled - Notepad" es el nombre del formulario
h2 = FindWindowEx(h1, 0&El identificador de la ventana principal y el identificador de la ventana secundaria, si está vacía, comience desde la primera ventana (0& significa ninguna) Nombre de clase nombre del formulario
h1 es el identificador de TXT, h2 es el identificador del área de edición de TXT.
p>