Come fareste voi a visualizzare una migliaio di immagini

martedì 22 giugno 2010 - 18.22

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

idol8 Profilo | Newbie

18 messaggi | Data Invio: mar 22 giu 2010 - 18:22

Buona sera a tutti,
premetto dicendo che sono un novello, lavoro da un paio di anni con vb 03, e da poco con vb 08.
sono arrivato al punto che un mio cliente mi chiede la visualizzazione di circa un migliaio di immagini gif.
come fareste voi? qualche idea?
se qualcuno può aiutarmi o interessa posto pure il mio codice?!?!??!

alexmed Profilo | Guru

1.186 messaggi | Data Invio: mar 22 giu 2010 - 21:27

Ciao
Dicci qualcosa di più:
Che dimensioni hanno le immagini?
Quante ne vuoi vedere contemporaneamente?
Vuoi vedere delle thumb che ti rimandano all'immagine a dimensioni reali?

...

Ciao

alexmed

idol8 Profilo | Newbie

18 messaggi | Data Invio: mer 23 giu 2010 - 19:37

1399_Immagine.zip

per cominciare, grazie per l'interesse, ma io solo a quest'ora posso rispondere . . .
allora, ho inserito sia l'immagine, che da allegato, quello che io vorrei fare.
qua ti metto il codice che ho scritto per caricare le immagini

pnllista.Controls.Clear()
Dim lstIcon As ListView
lstIcon = New ListView
ImageLst = Nothing
ImageLst = New ImageList
ImageLst.TransparentColor = System.Drawing.Color.Transparent
lstIcon.Font = New Font("Microsoft Sans Serif", 10, FontStyle.Bold)
lstIcon.Height = pnllista.Height
lstIcon.Width = pnllista.Width
lstIcon.BackColor = Color.Lavender
lstIcon.BorderStyle = BorderStyle.None
Dim coll As Collection = iconR.Visualizza("")
Dim ic As Icona
For Each ic In coll
ImageLst.Images.Add(Image.FromFile(percorsoImmagini & "\" & ic.NomeIcona))
Next
lstIcon.LargeImageList = ImageLst
lstIcon.LabelWrap = False
Dim coll2 As Collection = iconR.Visualizza("")
Dim ic2 As Icona, riga As ListViewItem
Dim j As Integer = 0
For Each ic2 In coll
riga = New ListViewItem(ic2.NomeIcona, j)
riga.Tag = ic2.IdIcona
lstIcon.Items.Add(riga)
j = j + 1
Next
pnllista.Controls.Add(lstIcon)
AddHandler lstIcon.Click, AddressOf icona_click
If ART Then
AddHandler lstIcon.DoubleClick, AddressOf icona_Dclick
End If

e considera che è solo una prova, e te ne accorgerai dalle immaginette che sono piccolissime
cos'altro ti posso dire . . . con photo shop ho dovuto rimpicciolire le immagini a 250x250
poichè vb ha questi limiti (almeno credo, altrimenti sono scemo!!!!!!!)
infine noto che non rispetta le proporzioni, cioè le mette cmq in dei quadrati, non so come
chiamarli, cambiandomi quindi la definizione dell'immagine.

spero di essere stato chiaro

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 !