:ciao:
Vorrei salvare lo sfondo della finestra principale.
Lo carico con:
Me.picture = Picture.load("kicco.jpg")
e tento di salvarlo nel file di configurazione con:
Settings["Sfondo"] = Me.Picture ???
Pensavo di usare Me.picture(image. ....).
Ma forse sono sulla strada sbagliata! :'(
:ciao:
Tu vuoi una cosa come questa ?
Public Sub Form_Open()
Dim pc As Picture
Me.Picture = Picture.Load("/percorso/del/file/immagine")
Settings["chiave"] = Me.Picture
pc = Settings["chiave"]
pc.Save("/tmp/nuovo/file/immagine.png", 100)
End
Settings["chiave"] = Me.Picture
chiave=""
correzione:
chiave=
:-\
Controlla perchè non l'ho verificato.
Se fai così di default dovrebbe caricare lo sfondo iniziale, ma se nel corso del programma lo cambi al prossimo avvio ottieni il nuovo sfondo.
Almeno credo.
Private sPath As String = "./Appropriately-Left-Handed-2.jpg"
Public Sub Form_open()
sPath = Settings["Sfondo/Path", sPath]
Me.picture = Picture.load(sPath)
End
Public Sub Form_Close()
Settings["Sfondo/Path"] = sPath
Settings.save
End
:ciao: :ciao:
...ad ogni modo Settings puoi usarlo anche per salvare direttamente i dati dell'immagine prescelta.
Ti mostro un breve esempio didattico:
Public Sub Form_Open()
' Salviano i dati dell'immagine mediante "Settings":
Settings["immagine"] = File.Load("/percorso/del/file/immagine")
Settings.Save
' Ora carichiamo i dati dell'immagine precedentemente salvata con "Settings",
' e mostriamo l'immagine in una "PictureBox":
PictureBox1.Image = Image.FromString(Settings["immagine"])
End
Non funziona.
...altrimenti, kicco, se vuoi una soluzione analoga a "Settings" puoi provare questo esempio: :D
Private Const CONFIG As String = ".config/gambas3/immagine"
Public Sub Form_Open()
Dim pc As Picture
If Exist(User.Home &/ CONFIG) Then
pc = Picture.Load(User.Home &/ CONFIG)
Else
pc = Picture.Load("/percorso/del/file/immagine/iniziale")
Endif
Me.Picture = pc
End
Public Sub Form_Close()
File.Save(User.Home &/ CONFIG, File.Load("/percorso/del/file/immagine/da/caricare/alla/successiva/apertura/del/programma"))
End