Accedere a cartelle contenute nel progetto

sabato 29 settembre 2007 - 12.21

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

sankyu Profilo | Senior Member

266 messaggi | Data Invio: sab 29 set 2007 - 12:21

ciao a tutti
ho un progetto vb che contiene una cartella card
tramite un random ottengo un numero che associato all'estensione della gif contenuta nella cartella card mi da la possibilita di creare un generatore casuale di carte.
il problema è: come cavolo accedo alla cartella card all'interno del progetto??

For Each pc As PictureBox In Panel1.Controls
Dim num As Integer = rnd.Next(1, 40)
Dim url As String = "card\" & num & ".gif"
pc.ImageLocation = url
Next

in cui nel mio progetto ho card come folder che contiene tutte le gif ma non riesco ad accedervi mi servirebbe qualcosa tipo |DataDirectory| nelle connessioni dei database ma riferito alla cartella del progetto spero di essermi spiegato bene
grazie

Xnetus Profilo | Junior Member

130 messaggi | Data Invio: sab 29 set 2007 - 15:26

>
> For Each pc As PictureBox In Panel1.Controls
> Dim num As Integer = rnd.Next(1, 40)
> Dim url As String = "card\" & num & ".gif"
> pc.ImageLocation = url
> Next

Dovresti inserire correttamente la directory se usi ImageLocation devi fare:

Dim url As String = "C:\..ecc..\card\" & num & ".gif"
pc.ImageLocation = url

http://blogs.dotnethell.it/Xnetus/

sankyu Profilo | Senior Member

266 messaggi | Data Invio: sab 29 set 2007 - 15:50

secondo te come potrei ottenere la stessa cosa utilizzando le resources? importo tutti i file che mi servono ma poi come li seleziono in modo random?

Xnetus Profilo | Junior Member

130 messaggi | Data Invio: sab 29 set 2007 - 16:00

>secondo te come potrei ottenere la stessa cosa utilizzando le
>resources? importo tutti i file che mi servono ma poi come li
>seleziono in modo random?

Importandoli nel progretto le immagini diventono una sorta di oggetti quindi non puoi utilizzare la tecnica dell'esempio di prima, ma, ad esempio:

Select Case Num
Case 1
pc.Image = WindowsApplication1.My.Resources.Resources.Image01
Case 2
pc.Image = WindowsApplication1.My.Resources.Resources.Image02
Case ...
....
Case N
pc.Image = WindowsApplication1.My.Resources.Resources.ImageNN
End Select

Oppure puoi fare in questo modo:

Dim url As String = My.Application.Info.DirectoryPath.ToString & "\card\" & num & ".gif"
pc.ImageLocation = url

http://blogs.dotnethell.it/Xnetus/

sankyu Profilo | Senior Member

266 messaggi | Data Invio: dom 30 set 2007 - 11:26

Grazie ottima la seconda soluzione!!

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !