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)

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>