Oppure

Loading
23/08/08 12:04
Ciao ragazzi
Mi sa che ho sbagliato qualche riga di codice
in pratica ho fatto questo, ma non mi va.
Potete dirmi dove ho sbagliato?
Private Sub Form_Load()
If Option1.Value = True
Form1.Picture = LoadPicture("C:\silver.bmp")
Else
Option2.Value = True
Form1.Picture = LoadPicture("C:\standard.bmp")
Else
Option3.Value = True
Form1.Picture = LoadPicture("C:\Black.bmp")
End If
End Sub


In pratica voglio che sul radio button dove c'e il punto, mi apra l'immaggine,

e vorrei anche (se è Possibile)
che se si seleziona per esempio l'opzione 3,
al riavvio del programma sia sempre quella selezionata, e l'immagine che apre quell'opzione, sia ella, non un altra ad esempio quella dell'option 1
Grazie di cuore
Ultima modifica effettuata da Shutdown 23/08/08 12:15
23/08/08 12:13
GrG
In teoria dovevi rispondere all'altro topic e non farne uno nuovo...

cmq prova a fare così:
if Option1.Value = true then
Form1.Picture = LoadPicture("C:\silver.bmp")
elseif Option2.Value = true then
Form1.Picture = LoadPicture("C:\standard.bmp")
elseif Option3.Value = true then
Form1.Picture = LoadPicture("C:\Black.bmp")
end if
aaa
23/08/08 12:18
Overflow
...
per fare quello che vuoi fare devi agire nell'evento click di ogni radiobutton:
Private Sub Form_Load()
On Error GoTo error
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
Case "2"
    Option2.Value = True
End Select
error:
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()
Image1.Picture = LoadPicture("pathimmagine")
End Sub

Private Sub Option2_Click()
Image1.Picture = LoadPicture("pathimmagine")
End Sub

Ultima modifica effettuata da Overflow 23/08/08 12:19
aaa
23/08/08 12:18
Grazie GrG, ma non va se seleziono i radiobtn non funzionano


Grazie Overflow ora va beissimo, ma come posso fare che quando si clicchi il pulsante ok, quando si riavvia il prog, mi fa la schermata che era stata selezionata precedentemente?
Ultima modifica effettuata da 23/08/08 12:28
23/08/08 12:20
GrG
ti ci credo, il codice l'avevi messo nella form_load invece lo devi mettere o in un timer o nell'evento click dei radiobutton
aaa
23/08/08 12:20
Overflow
al massimo inserisci questo
If Option1.Value = True Then
Form1.Picture = LoadPicture("C:\silver.bmp")
ElseIf Option2.Value = True Then
Form1.Picture = LoadPicture("C:\standard.bmp")
ElseIf Option3.Value = True Then
Form1.Picture = LoadPicture("C:\Black.bmp")
End If
in un timer.
aaa
23/08/08 13:54
come posso fare che quando si clicchi il pulsante ok, quando si riavvia il prog, mi fa la schermata che era stata selezionata precedentemente?
23/08/08 14:00
GrG
devi salvarti le impostazioni scelte dall'utente in un file e poi all'avvio del prog le rileggi.
aaa