Salvare lo sfondo.

[kicco]

 
Vorrei salvare lo sfondo della finestra principale.
Lo carico con:

Codice: [Seleziona]

  Me.picture = Picture.load("kicco.jpg")

e tento di salvarlo nel file di configurazione con:

Codice: [Seleziona]

Settings["Sfondo"] = Me.Picture  ???

Che non funziona!
Pensavo di usare Me.picture(image. ....).
Ma forse sono sulla strada sbagliata! 
 

[cogier]

Mettere l'immagine nella cartella del programma. Rimarrà quindi con il programma.

[kicco]

Grazie cogier per la risposta.
In realtà ho scritto un esempio compatto, forse un po' troppo!
Nel programma reale lo sfondo può essere sostituito e alla chiusura del programma devo scrivere nel file di configurazione (quello generato da gb.Settings) il nome dello sfondo e la relativa path.
Grazie ancora!
 

[vuott]

e tento di salvarlo nel file di configurazione con:

Codice: [Seleziona]

Settings["Sfondo"] = Me.Picture  ???

Che non funziona!

Non può funzionare, poiché Settings[ ] non può ricevere alcun valore per mezzo dell'operatore di assegnazione.

[kicco]

Settings[ ] non può ricevere alcun valore per mezzo dell'operatore di assegnazione.

L'operatore di assegnazione è il simbolo = (uguale)?
Se così fosse però in tutte le altre operazioni, come ad esempio:

Settings["nome"]= TextBox1.text

che funziona!
 

[vuott]

[vuott]

Tu vuoi una cosa come questa ?

Codice: [Seleziona]

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

[kicco]

la questione è che il comnado:

Codice: [Seleziona]

 Settings["chiave"] = Me.Picture

nel file di configurazione, mi scrive solo:

chiave=""

correzione:

chiave= 

[kicco]

Se qualcuno volesse giocare....
allego il grande progetto!!!

Questo è il risultato che trovo in .config/gambas3/Salva_sfondo.conf

[General]
Sfondo=

[Gianluigi]

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.

Codice: [Seleziona]

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

 

[Gianluigi]

Si funziona l'ho verificato, vedi esempio allegato

 

[kicco]

Stavo proprio scrivendotelo:
FUNZIONA!
 

[vuott]

...ma quindi a te interessava semplicemente salvare in Settings il percorso del file immagine ?

[vuott]

...ad ogni modo Settings puoi usarlo anche per salvare direttamente i dati dell'immagine prescelta.

Ti mostro un breve esempio didattico:

Codice: [Seleziona]

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

[kicco]

Sì Vuott questa era la soluzione che andavo cercando!