Differenze tra le versioni di "Lanciare un programma esterno conoscendo soltanto il nome del suo file eseguibile presente nel sistema"
Da Gambas-it.org - Wikipedia.
(Creata pagina con "Bisognerà attivare anche i Componeneti "gb.desktop" e "gb.desktop.x11". Poniamo il caso in cui desideriamo lanciare il programma della "Calcolatrice" di "Gnome", del quale il...") |
|||
| Riga 1: | Riga 1: | ||
| − | Bisognerà attivare anche i | + | Bisognerà attivare anche i Componenti "gb.desktop" e "gb.desktop.x11". |
| + | <BR>Si farà uso delle Classi ''DesktopFile'' e ''DesktopWindow''. | ||
Poniamo il caso in cui desideriamo lanciare il programma della "Calcolatrice" di "Gnome", del quale il nome del file eseguibile è "gnome-calculator" e il cui percorso è "/usr/bin/gnome-calculator" | Poniamo il caso in cui desideriamo lanciare il programma della "Calcolatrice" di "Gnome", del quale il nome del file eseguibile è "gnome-calculator" e il cui percorso è "/usr/bin/gnome-calculator" | ||
| − | <BR>Dopo aver lanciato il | + | <BR>Dopo aver lanciato il programma della ''Calcolatrice'', provvederemo a centrare la sua finestra sulla Scrivania. |
Public Sub Button1_Click() | Public Sub Button1_Click() | ||
| Riga 8: | Riga 9: | ||
Dim dw As DesktopWindow | Dim dw As DesktopWindow | ||
| + | <FONT Color=darkgreen>' ''Lancia il programma della "Calcolatrice":''</font> | ||
pr = df.Run(System.Find("gnome-calculator")) | pr = df.Run(System.Find("gnome-calculator")) | ||
| + | |||
| + | <FONT Color=darkgreen>' ''Provvede a centrare la finestra della "Calcolatrice" sulla Scrivania:''</font> | ||
Repeat | Repeat | ||
Wait 0.01 | Wait 0.01 | ||
Versione delle 19:30, 11 ott 2023
Bisognerà attivare anche i Componenti "gb.desktop" e "gb.desktop.x11".
Si farà uso delle Classi DesktopFile e DesktopWindow.
Poniamo il caso in cui desideriamo lanciare il programma della "Calcolatrice" di "Gnome", del quale il nome del file eseguibile è "gnome-calculator" e il cui percorso è "/usr/bin/gnome-calculator"
Dopo aver lanciato il programma della Calcolatrice, provvederemo a centrare la sua finestra sulla Scrivania.
Public Sub Button1_Click()
Dim df As New DesktopFile(Null)
Dim pr As Process
Dim dw As DesktopWindow
' Lancia il programma della "Calcolatrice":
pr = df.Run(System.Find("gnome-calculator"))
' Provvede a centrare la finestra della "Calcolatrice" sulla Scrivania:
Repeat
Wait 0.01
' Si attende che la finestra della "Calcolatrice" sia apparsa sulla Scrivania e che quindi sia la finestra attiva corrente:
dw = New DesktopWindow(Desktop.ActiveWindow)
' Individua il PID del programma della "Calcolatrice", usando l'ID della sua finestra.
' Si esce quindi dal ciclo quando il PID, così ottenuto, e quello derivato dall'Oggetto Process corrispondono:
Until X11.GetWindowProperty(dw.Id, "_NET_WM_PID")[0] == pr.Id
' Centra la finestra della "Calcolatrice" sulla Scrivania:
dw.Move((Screen.W - dw.W) / 2, (Screen.H - dw.H) / 2)
End
