Posts: 2086
Tuesday, 05 May 2020, 23:24
Shell escribió:
En realidad la idea es "conocer" que hace la otra ventana.
El asunto habla de "
una ventana que no pertenece a una applicación Gambas".
Asì yo entiendo que tenemos
2 aplicaciones graficas: una de
gambas y una
no gambas (externa).
Bueno, hace falta conocer y extraer el ID de la ventana del programa
externo (es decir del
no gambas).
Para eso tienes que usar la Clase "
DesktopWindow" del Componente "gb.desktop".
Exemplum clarissimum:
tenemos abiertas dos ventanas: una es de nuestra aplicación
gambas, la otra es del programa editor hexadecimal "GHex".
Para gestionar la ventana del programa "GHex" con la Clase "
DesktopWindow" del Componente "gb.desktop", tenemos que pasar a esta Clase el nombre del programa "GHex", y probamos con el mouse a mover o cambiar dimensión de la ventana de GHex.....
Private tm As Timer
Private dw As DesktopWindow
Public Sub Form_Open()
With tm = New Timer As "Tempus"
.Delay = 100
.Start
End With
End
Public Sub Tempus_Timer()
Dim i as Integer[]
' Con la función "Desktop.FindWindow( )" pasamos el ID de la ventana de GHex a la Clase "DesktopWindow para gestionarla":
i = Desktop.FindWindow("GHex", Null, Null)
If i.Count > 0 Then
With dw = New DesktopWindow(i[0])
Print .VisibleName, .X, .Y, .W, .H
End With
Endif
End
Public Sub Button1_Click() ' Podemos tambien mover la ventana de GHex por el desktop por ejemplo con un Botón,
' (y tambien - si queremos - cambiar su dimensión):
dw.Move(100, 100, dw.W, dw.H)
End
Public Sub Button2_Click()
' ...o ferozmente matarla: :-D
dw.Close
End
De todas formas señalo esta pagina:
https://www.gambas-it.org/wiki/inde...ogrammi_esterni
