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.
Riga 14: | Riga 14: | ||
Dim b As Byte | Dim b As Byte | ||
− | Repeat | + | Repeat |
+ | <FONT Color=gray>' ''Individuiamo ogni cartella, anche nascosta, presente in "User.Home":''</font> | ||
s = Dir(User.Home, "*", gb.Directory)[b] | s = Dir(User.Home, "*", gb.Directory)[b] | ||
+ | <FONT Color=gray>' ''Se il nome della prima sub-cartella della cartella analizzata è "comp", allora significa che è stata indoviduata la cartella principale dei sorgenti di Gambas:''</font> | ||
If Exist(User.Home &/ s &/ "/comp") Then | If Exist(User.Home &/ s &/ "/comp") Then | ||
With PictureBox1 | With PictureBox1 | ||
+ | <FONT Color=gray>' ''Carica il file immagine presente in una sub-cartella dei sorgenti di Gambas:''</font> | ||
.Image = Image.Load(User.Home &/ s &/ PERCORSOIMMAGINE) | .Image = Image.Load(User.Home &/ s &/ PERCORSOIMMAGINE) | ||
.Resize(.Image.W, .Image.H) | .Resize(.Image.W, .Image.H) |
Versione delle 10:20, 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 ' Individuiamo ogni cartella, anche nascosta, presente in "User.Home": s = Dir(User.Home, "*", gb.Directory)[b] ' Se il nome della prima sub-cartella della cartella analizzata è "comp", allora significa che è stata indoviduata la cartella principale dei sorgenti di Gambas: If Exist(User.Home &/ s &/ "/comp") Then With PictureBox1 ' Carica il file immagine presente in una sub-cartella dei sorgenti di Gambas: .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