Ho provato questo è funziona......

Public Sub Form_Activate()   ' oppure "Sub Main()" se il programma è a "linea di comando"
 
 Dim s, cmdline As String
 Dim id As New String[]

 For Each s In Dir("/proc", "*", gb.Directory)
   If Exist("/proc" &/ s &/ "cmdline") Then
     cmdline = File.Load("/proc" &/ s &/ "cmdline")
     If (cmdline Like "*" & Application.Name & ".gambas*") Then
       id.Push(Split(File.Load("/proc" &/ s &/ "stat"), Chr(32))[0])
       If id.Count > 1 Then
         If id[id.Max] > id[id.Max - 1] Then Quit
       Endif     
     Endif
   Endif
 Next
   
End


Ma funziona solo se il file eseguibile finisce con .gambas.....
Ma se il file eseguibile non finisce con .gambas ma non ha estensionee?

Esempio invece di chiamarsi
esempio.gambas si chiama esempio

Perchè appena rinomino il file eseguibile togliendo il .gambas non funziona

Ho 2 form...
Nel primo form c'è una label con il testo "Prova testo"

label1.text="Prova testo"

nel secondo form che chiamo form2 c'è una label1

come faccio a passare il contenuto del testo che si trova nella label1 del primo form nella label del secondo form ?

Ho inserito nel form una trayicon, poi creato un menù in modo che cliccando con il destro del mouse appare sulla barra di linux il menù....
Il problema è all' avvio cioè non deve apparire il form ma solo la trayicon cioè l' iconcina

Ho messo la proprietà visible del form in false ma si chiude direttamente

Citazione da: Gratisweb - 03 Aprile 2024, 13:15:15

devo premere invio del terminale altrimenti non mi appare il cursore per scrivere.

...e se clicchi con il puntatore del mouse nel Terminale ?

IO non devo cliccare nulla, si deve fermare da solo senza premere nemmeno invio

IN un form inserisco un butto e dentro button metto questo codice:

Private pr As Process
Private fl As File

Public Sub Osserva_Read()
 
' Reindirizziamo l'output del processo  verso il Terminale:
  Output To #fl
 
  Print pr.ReadLine()
End

Public Sub Button1_Click()
  root = InputBox("Immetti password di root")

' Lanciamo con Shell i due comandi, e ne poniamo in osservazione in lettura il processo: '
   pr = Shell "echo " & root & " | sudo -S apt update && sudo -S apt upgrade" For Input As "Osserva"
end

dopo averlo compilato in eseguibile lo avvio da terminal, vedo che esegue il comando apt update ed ad un tratto quando arriva così

Lettura elenco dei pacchetti... Fatto
Generazione albero delle dipendenze... Fatto
Lettura informazioni sullo stato... Fatto   
Calcolo dell'aggiornamento... Fatto
0 aggiornati, 0 installati, 0 da rimuovere e 0 non aggiornati.

devo premere invio del terminale altrimenti non mi appare il cursore per scrivere.
E questo il problema

Per vedere le unità senza inserire nessuna password di root ho scritto questo codice ma va in errore e non capisco il perchè.....

Dim outp As System

' Esegue il comando e salva l'output in una variabile
outp = system("lsblk -o NAME,SIZE,TYPE | grep 'disk' | awk '{if ($2 != \"0B\") print $1}'")

' Controlla l'output per errori (facoltativo)
If outp Like "*error*" Then
  Print "Si è verificato un errore durante l'esecuzione del comando lsblk."
Else
  ' Stampa l'elenco delle unità
  Print outp
Endif

In crea pacchetto installazione ad un tratto mi dice di seleziona il Gruppo pacchetto tra cui

admin
cli-mono
comm
database

ecc......

Ma c'è un modo per creare il gruppo invece di selezionare quello che mi propone ?

Citazione da: Gratisweb - 22 Marzo 2024, 08:31:26

.... la deve prendere tipo da picturebox.picture

...la cosa che non comprendo è perché carichi una GIF animata in una ''PictureBox'', la quale non è un Controllo capace di eseguire l'animazione. 

Per evitare di farla caricare da una cartella altrimenti la gente può cambiare le gift animate a suo piacimento.......