23/08/08 14:32
non l'ho mai fatto...
Puoi spiegarmi come?
23/08/08 14:42
GrG
vuoi far ricordare l'immagine dello sfondo al tuo programma giusto?
allora fai che quando salvi le impostazioni apre un documento nella cartella in cui si trova (x es. skin.ini) dentro skin.ini ci scrivi x esempio o 1 o 2 o 3 (1, 2 e 3 corrispondono agli sfondi standard, silver e nlack) poi quando avvii il programma fai aprire al tuo progr il documento skin.ini e gli fai leggere il contenuto, se è 1 metti lo sfondo standard se è 2 metti lo sfondo silver se è 3 metti lo sfondo black.
+ o meno è come quel programma dell'importo dei dati da mettere nelle text, + o - è la stessa cosa.
capito cosa intendo?
prova a farlo da solo, è facile anzi lo hai già fatto mostrandomi quel codice delle textbox.
aaa
23/08/08 15:33
Overflow
te lo avevo postato prima
Private Sub Form_Load()
On Error GoTo hError
Dim a As String
Open "file_salvataggio" For Input As 1
Line Input #1, a
Close #1
Select Case a
Case "1"
Option1.Value = True
form1.picture = loadpicture("pathimm")
'Option1_Click
Case "2"
Option2.Value = True
form1.picture = loadpicture("pathimm2")
'Option2_Click
End Select
hError:
End Sub
Private Sub Form_Terminate()
Open "file_salvataggio" For Output As 1
If Option1.Value = True Then
Print #1, "1"
ElseIf Option2.Value = True Then
Print #1, "2"
End If
Close #1
End Sub
Private Sub Option1_Click()
form1.Picture = LoadPicture("pathimmagine")
End Sub
Private Sub Option2_Click()
form1.Picture = LoadPicture("pathimmagine")
End Sub
per fare quello che ti serve è tutto qui.
Nella load io carico il file, e imposto lo sfondo a seconda del valore salvato nel file. Poi quando chiudo il programma(evento Terminate) salvo nel file quale option è attivata.
Ultima modifica effettuata da Overflow 23/08/08 15:38
aaa
23/08/08 15:57
L'ho fatto, ma mi salva un file "file salvataggio"
ma non funziona!
in pratica se salvo il secondo, mi riappare sempre il primo, idem per il terzo
Ultima modifica effettuata da 23/08/08 15:59
23/08/08 16:18
Overflow
posta il codice che utilizza per salvare il file.
'cosi leggi il file
Private Sub Form_Load()
On Error GoTo hError
Dim a As String
Open "C:\file_salvataggio.txt" For Input As 1
Line Input #1, a
Close #1
Select Case a
Case "1"
Option1.Value = True
Case "2"
Option2.Value = True
End Select
hError:
End Sub
'cosi salvi il file con le impostazioni correnti
Open "C:\file_salvataggio.txt" For Output As 1
if option1.value =true then
Print #1, "1"
elseif option2.value=true then
print #1,"2"
end if
Close #1
oppure puoi scrivere nel registro di sistema.
Ultima modifica effettuata da Overflow 23/08/08 16:19
aaa
23/08/08 16:49
Overflow
scusa ma il codice del salvataggio va inserito nell'evento unload del form, non l'evento terminate.
Private Sub Form_Unload(Cancel As Integer)
open "c:\file_savataggio.txt" for output as 1
if option1.value then
print #1,"1"
elseif option2.value then
print #1,"2"
end if
close #1
end sub
... oppure usare il file di registro attraverso le istruzioni:
SaveSetting
GetSetting
DeleteSetting
Ultima modifica effettuata da Overflow 23/08/08 16:52
aaa
23/08/08 17:24
può essere perchè i radio btn sono in un altro form?
una volta mi dice necessario oggetto, una volta mi dice file già aperto
Ultima modifica effettuata da 23/08/08 17:37
