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