Differenze tra le versioni di "Agire sulla finestra di un qualunque programma"

Da Gambas-it.org - Wikipedia.
Riga 54: Riga 54:
 
   
 
   
 
  <FONT color=#006400>' ''...quindi la gestiamo:''</font>
 
  <FONT color=#006400>' ''...quindi la gestiamo:''</font>
     With dw
+
     With dw = New DesktopWindow(a)
 
  Print .VisibleName
 
  Print .VisibleName
 
  Print .Id, hex(.Id)
 
  Print .Id, hex(.Id)

Versione delle 17:02, 6 gen 2013

Per agire sulla finestra di un programma qualsiasi (anche se diverso dall'applicazione.gambas) bisognerà utilizzare la classe DesktopWindow. Per poter attivare questa Classe si dovrà innanzitutto attivare nel progetto anche il componente gb.desktop, il quale ci consentirà l'uso pure di altre funzioni, come quelle della Classe Desktop, utili al nostro scopo.


Agire su una finestra di un programma qualsiasi

Esporremo una possibile modalità di uso della Classe DesktopWindow e Desktop pe una semplice azione su una finestra:

Public Sub Button1_Click()

 Dim dw As DesktopWindow
 Dim a As Integer[]

' Individuiamo il PID della "finestra" del programma:
  a = Desktop.FindWindow("nome_della_finestra_del_programma_da_gestire")

  dw = New DesktopWindow(a[0])

    With dw
' Ne vediamo il titolo:
Print .VisibleName
' Ne vediamo il numero del suo PID in decimale ed in esadecimale:
Print .Id, hex(.Id)
' Impostiamo i valori dello spostamento, ed eventualmente anche il ridimensionamento della finestra:
' (i due parametri relativi al ridimensionamento della finestra sortiscono il loro effetto soltanto se la finestra del programma è ridimensionabile):
      .Move(valoreX, valoreY, valoreW, valoreY)
    End With

End

E' ovviamente possibile utilizzare anche le altre funzioni e proprietà disponibili per la Classe DesktopWindow.


Agire sulla finestra di un programma qualsiasi operando direttamente con il mouse

In questo caso agiremo sulla finestra di un programma qualsiasi (anche se non quello dell'applicazione.gambas) individuandola con il mouse. Bisognerà fare in modo da sollevare con il mouse la finestra, cliccandoci sopra. Essa, così, diventerà attiva principale rispetto a tutte le altre presenti sul desktop. Quindi, una volta individuata, si operà su di essa attraverso una variabile del tipo della Classe DesktopWindow. Utilizzeremo inoltre un Timer ponendo un ritardo abbastanza basso, e dovremo attivare il componente gb.desktop:

Public Sub Form_Open()

 Me.Center
 Me.show

 Wait 0.1

 Timer1.Start

End


Public Sub Timer1_Timer()

 Dim a As Integer
 Dim dw As DesktopWindow

' Individuiamo l'handle della finestra attiva in primo piano:
  a = Desktop.ActiveWindow

' Assegnamo la finestra individuata ad una variabile di tipo della Classe "DesktopWindow"...
  dw = Desktop.Windows.FromHandle(a)

' ...quindi la gestiamo:
    With dw  = New DesktopWindow(a)
Print .VisibleName
Print .Id, hex(.Id)
      .Move(Mouse.ScreenX + 10, Mouse.ScreenY)
      .Resize(valoreW, valoreH)
' Se cliccheremo su una finestra diversa da quella dell'applicazione principale gambas...
   If .VisibleName <> Application.Title Then
' ...allora la nuova finestra cliccata sarà anche chiusa dopo 2 secondi:
   Sleep 2
      .Close
    End With

End


Agire su una finestra anche con comandi bash

E' possibile utilizzare congiuntamente comandi bash specifici e la Classe DesktopWindow

Uso del comando xprop e di DesktopWindow

Vedremo un possibile uso combinato del comando xprop e della classe DesktopWindow:

Private i As Integer


Public Sub Form_Open()  
 
Dim pr As Process  
Dim ss, x As New String[]  
Dim s, y As String  
 
  pr = Shell "xprop | grep '(WINDOW):'" For Read  
  
 
 While Not Eof(pr)  
   Input #pr, s  
   ss.Add(s)  
 Wend  
 
  
' Dividiamo la stringa contenente il primo valore esadecimale,
' in modo tale da ottenere la seconda parte utile, priva di “0x”:
    x = Split(ss[4], "x")
' Dividiamo la stringa contenente il secondo valore esadecimale,
' in modo tale da ottenere le ultime due cifre più a destra:
    y = Right(ss[9], 2)  
' Individua il valore esadecimale preciso della finestra, lo trasforma in decimale:
    i = Val("&" & x[1]) - Val("&" & y)  
  
End
 
 
Public Sub Button1_Click()  
 
Dim dw As DesktopWindow  
 
 
  dw = New DesktopWindow(i)

    With dw
Print .VisibleName
Print .Id, hex(.Id)
      .Move(Mouse.ScreenX + 10, Mouse.ScreenY)
    End With
 
End

Il puntatore del mouse muterà a forma di crocetta. Si dovrà cliccare una volta sulla finestra interessata. Quindi cliccando successivamente sul Button1, la finestra si sposta alle coordinate X ed Y stabilite. Potrà anche essere previsto il ridimensionamento della finestra ponendo anche i valori relativi a Weigth e Width: .Move(x, y, w, h).


Uso del programma wmctrl con Shell

Si potrà fare anche uso del comando wmctrl lanciato con Shell:

Public Sub Button1_Click()  
     
' La finestra del programma, in questo esempio, viene posta in basso al centro dello schermo:
  Shell "wmctrl -r nome_della_finestra_del_programma -e 0,500,800,600,300"
     
End

riguardo ai valori inseriti dell'esempio precedente:

  • 500 = coordinate x;
  • 800 = coordinate y;
  • 600 = lunghezza della finestra;
  • 300 = altezza della finestra.

Quindi, volendo, è possibile anche far modificare la grandezza della finestra; altrimenti i due ultimi parametri dovrebbero essere posti a -1.