Differenze tra le versioni di "Individuare la cartella principale dei file sorgenti di Gambas contenente la sub-cartella di un file immagine"

Da Gambas-it.org - Wikipedia.
(Creata pagina con "In via generale il nome della cartella principale, contenente le altre sub-cartelle contenenti a loro volta altre sub-cartelle dei file sorgenti di Gambas, è "gambasdevel". B...")
 
Riga 2: Riga 2:
 
BR>Tale nome però pu essere anche cambiato in prima fase di installazione dei sorgenti di Gambas.
 
BR>Tale nome però pu essere anche cambiato in prima fase di installazione dei sorgenti di Gambas.
  
Per individuare con certezza - ad esempio - un file immagine, presente in una sub-cartella dei sorgenti di Gambas, è necessario sapere il nome della cartella principale dei sorgenti di Gambas.
+
Per individuare con certezza - ad esempio - un file immagine (da mostrare magari in una ''PictureBox''), presente in una sub-cartella dei sorgenti di Gambas, è necessario sapere il nome della cartella principale dei sorgenti di Gambas.
  
 
Potremo procedere come segue:
 
Potremo procedere come segue:

Versione delle 10:16, 14 dic 2023

In via generale il nome della cartella principale, contenente le altre sub-cartelle contenenti a loro volta altre sub-cartelle dei file sorgenti di Gambas, è "gambasdevel". BR>Tale nome però pu essere anche cambiato in prima fase di installazione dei sorgenti di Gambas.

Per individuare con certezza - ad esempio - un file immagine (da mostrare magari in una PictureBox), presente in una sub-cartella dei sorgenti di Gambas, è necessario sapere il nome della cartella principale dei sorgenti di Gambas.

Potremo procedere come segue:

Private Const PERCORSOIMMAGINE As String = "comp/src/gb.form.stock/gambas/128/music.png"


Public Sub Form_Open()

 Dim ss As String[] = ["Documenti"]
 Dim s As String
 Dim b As Byte

 Repeat 
   s = Dir(User.Home, "*", gb.Directory)[b]
   If Exist(User.Home &/ s &/ "/comp") Then 
     With PictureBox1
       .Image = Image.Load(User.Home &/ s &/ PERCORSOIMMAGINE)
       .Resize(.Image.W, .Image.H)
     End With
   Endif
   Inc b
 Until b == Dir(User.Home, "*", gb.Directory).Max

End