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 16: | Riga 16: | ||
<FONT Color=gray>' ''Individuiamo ogni cartella, anche nascosta, presente in "User.Home":''</font> | <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 della cartella sotto analisi esiste una sub-cartella chiamata "comp", allora significa che è stata individuata la cartella principale dei sorgenti di Gambas | + | <FONT Color=gray>' ''Se della cartella sotto analisi esiste una sub-cartella chiamata "comp", allora significa che è stata individuata la cartella principale dei sorgenti di Gambas.'' |
+ | ' ''Il nome della cartella principale dei sorgenti di Gambas è contenuto nella variabile di tipo String "s".''</font> | ||
If Exist(User.Home &/ s &/ "/comp") Then | If Exist(User.Home &/ s &/ "/comp") Then | ||
With PictureBox1 | With PictureBox1 |
Versione attuale delle 10:33, 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".
Tale nome però può essere anche cambiato in prima fase di installazione dei sorgenti di Gambas.
Per individuare quindi con certezza - ad esempio - un file immagine (da mostrare magari in una PictureBox), presente in una sub-cartella dei sorgenti di Gambas, è necessario sapere con eguale certezza il nome della cartella principale dei sorgenti di Gambas.
Potremo procedere come segue:
Private Const PERCORSOFILE As String = "comp/src/gb.form.stock/gambas/128/music.png" Public Sub Form_Open() 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 della cartella sotto analisi esiste una sub-cartella chiamata "comp", allora significa che è stata individuata la cartella principale dei sorgenti di Gambas. ' Il nome della cartella principale dei sorgenti di Gambas è contenuto nella variabile di tipo String "s". If Exist(User.Home &/ s &/ "/comp") Then With PictureBox1 ' Carica il file immagine prescelto, presente in una sub-cartella dei sorgenti di Gambas: .Image = Image.Load(User.Home &/ s &/ PERCORSOFILE) .Resize(.Image.W, .Image.H) End With Endif Inc b Until b == Dir(User.Home, "*", gb.Directory).Max End