Visual Basic 6 - Personalizzare Radio Button

Forum - Visual Basic 6 - Personalizzare Radio Button

Pagine: [ 1 2 3 4 5 6 7 ]

()
Newbie

Messaggi:
Iscritto:

Postato alle 1:00
Giovedì, 01/01/1970

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?

Codice sorgente - presumibilmente VB.NET

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 il 23/08/2008 alle 14:15

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 14:13
Sabato, 23/08/2008

In teoria dovevi rispondere all'altro topic e non farne uno nuovo...

cmq prova a fare così:

Codice sorgente - presumibilmente VB.NET

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

Overflow (Normal User)
Expert

Messaggi: 334
Iscritto: 11/01/2008

Postato alle 14:18
Sabato, 23/08/2008

...
per fare quello che vuoi fare devi agire nell'evento click di ogni radiobutton:

Codice sorgente - presumibilmente VB.NET

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 il 23/08/2008 alle 14:19

()
Newbie

Messaggi:
Iscritto:

Postato alle 14:18
Sabato, 23/08/2008

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 il 23/08/2008 alle 14:28

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 14:20
Sabato, 23/08/2008

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

Overflow (Normal User)
Expert

Messaggi: 334
Iscritto: 11/01/2008

Postato alle 14:20
Sabato, 23/08/2008

al massimo inserisci questo

Codice sorgente - presumibilmente VB.NET

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.

()
Newbie

Messaggi:
Iscritto:

Postato alle 15:54
Sabato, 23/08/2008

come posso fare che quando si clicchi il pulsante ok, quando si riavvia il prog, mi fa la schermata che era stata selezionata precedentemente?

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 16:00
Sabato, 23/08/2008

devi salvarti le impostazioni scelte dall'utente in un file e poi all'avvio del prog le rileggi.

()
Newbie

Messaggi:
Iscritto:

Postato alle 16:32
Sabato, 23/08/2008

non l'ho mai fatto...
Puoi spiegarmi come?

Pagine: [ 1 2 3 4 5 6 7 ]