Oppure

Loading
Questo topic e' stato chiuso dal moderatore.
03/06/08 6:16
Epilogo
Posto qui il mio problema come mi è stato conigliato.
In ogni caso mi riferisco alla programmazzione .net
"Da una PictureBox visualizzo delle immagini che dovrebbero cambiare cliccando su alcuni radiobutton presenti nella stessa form che contine il PictureBox.
Una semplice galleria insomma.
Ho visto da alcuni siti che utilizzano App.Path per andare a prendere le immagini da caricare nel PictureBox dalla stessa cartella dove è salavto il progetto. Questo veniva fatto in VB 6 con il metodo LoadPicture, ma adesso non funziona più così.
Come faccio premendo dei radio button differenti a visualizzare immagini associate in una sola Picture Box? "
Le immagini volendo posso sia metterle in un database, sia in una cartella qualsiasi.

Una volta avrei usato questo codice

Private Sub Option1_Click()
Picture1.Picture = LoadPicture(App.Path & "Merlin.gif";)
End Sub

Ma con il .net LoadPicture non funziona.
App.Path contiene l'indirizzo della cartella dove è contenuto il progetto sulla quale si sta lavorando.
aaa
03/06/08 11:10
wolfslair
Se usi un ImageList per contenere le immagini, ed in base al radiobutton selezionato vai a prendere un indice invece che un altro.

EX:
If RadioButton2.Checked Then
            PictureBox1.Image = imglst.Images(1)
End If
aaa
03/06/08 12:09
Epilogo
Fin qui ci siamo.
Io non so il metodo per far visualizzare le immagini all'interno della picturebox.
Ok per il ciclo, ma quello che tu hai scritto in delphi io come lo traduco in VB?

ciclo/o scelta
se op=1
allora
visualizza l'immagine (che si trova in una cartella del disco fisso) "merlin.jpg"

io non so inserire via codice un immagine all'interno della picture box
Ultima modifica effettuata da Epilogo 03/06/08 12:13
aaa
03/06/08 12:23
wolfslair
Se il File è nella cartella principale dell'applicazione:
PictureBox1.Image = Image.FromFile(Application.StartupPath & "merlin.gif";)

Altrimenti se in un'altra cartella :
dim percorso as string= "c:\immagini\"
PictureBox1.Image = Image.FromFile(percorso & "merlin.gif";)
aaa
03/06/08 15:00
Il Totem
Postato originariamente da Epilogo:
Ok per il ciclo, ma quello che tu hai scritto in delphi io come lo traduco in VB?


Quello è vb.net, non delphi. Non fidarti di quello che dice il code box quando ci sono poche linee di codice.
aaa
04/06/08 11:36
Epilogo
Ho provato ma...
Se ne carico solo 1, funziona tutto bene, quindi ora so come caricare le immagini dentro la picture box. Ma non funziona se io passo da un radio button all'altro.

        Dim percorso As String = "C:\immagini\"
        If RadioButton2.Checked Then
            PictureBox1.Image = Image.FromFile(percorso & "vasca.jpg")
        End If


        If RadioButton2.Checked Then
            PictureBox1.Image = Image.FromFile(percorso & "inverno.jpg")
        End If


Infatti con questo codice non mi visualizza nessuna delle 2 immagini ma solo quella che c'è impostata come default ancora prima.
Se tolgo gli if invece e tengo solo 1 immagine da visualiizare, la vede e almeno di questo sono contento.
Come mai gli if non funzionano? ho provato anche ad impostare checked su true ma non va...

Ho anche un altra domanda, se metto il file nella cartella dove c'è il progetto e uso Application.StartupPath non me lo trova, non potreste specificarmi meglio in quale esatta cartella devo mettere il file per usare questo metodo?
Ultima modifica effettuata da Epilogo 04/06/08 11:39
aaa
04/06/08 12:04
wolfslair
Prova a metterlo così:
 Dim percorso As String
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        percorso = 'il tuo percorso
    End Sub

    Private Sub RadioButton1_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        If RadioButton1.Checked = True Then
            PictureBox1.Image = Image.FromFile(percorso & "Arco.jpg")
        End If
    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        If RadioButton2.Checked = True Then
            PictureBox1.Image = Image.FromFile(percorso & "Inverno.jpg")
        End If
    End Sub

A Me funziona facendomi vedere inizialmente l'immagine del radiobutton1 e cliccando sul secondo l'immagine associata al secondo controllo.

Per quanto riguarda l'application.StartupPath dovrebbe essere se sei all'interno del IDE un percorso del tipo "nometuaapplicazione\bin\debug\file.exe"

Se invece lo fai generare dall'IDE dovrebbe essere :
"nometuaapplicazione\bin\release\file.exe"
aaa
05/06/08 15:52
Epilogo
Grazie mille, la mia galleria adesso funziona! :k:
aaa