Path: csiph.com!news.mixmin.net!aioe.org!.POSTED!not-for-mail From: Franz_aRTiglio Newsgroups: it.comp.lang.visual-basic Subject: Re: Galleria immagini con vb.net Date: Fri, 29 Jun 2018 13:21:09 +0200 Organization: Aioe.org NNTP Server Lines: 37 Message-ID: References: <125xsgj2ab9e1.1cxoalkpxb1u4.dlg@40tude.net> NNTP-Posting-Host: qcslDt+AtvixGac7tWvWlw.user.gioia.aioe.org Mime-Version: 1.0 Content-Type: text/plain; charset="iso-8859-15"; format=flowed Content-Transfer-Encoding: 8bit X-Complaints-To: abuse@aioe.org X-Newsreader: MesNews/1.08.06.00-it X-Notice: Filtered by postfilter v. 0.8.3 X-ICQ: 1931503972 Xref: csiph.com it.comp.lang.visual-basic:19388 Andrea (Work) ci ha detto :ù > Ciao a tutti, > avevo la necessità di generare una sorta di galleria prodotti. > Si parte da circa 2000 prodotti totali, quando apro la maschera mostro solo > le ultime stagioni e quindi sono circa 1000. > > Premetto che le immagini sono thumbnail da 170*240px e pesano 12KB l'una. Ma perchè farsi del male così ? non puoi certo mostrarle tutte e 1000 insieme, sullo schermo ce ne staranno una 20na alla volta... Non conosco .net ma in VB 6 farei così: caricherei le immagini da mostrare in una variabile ad indice per poi copiare quelle da mostrare nei picturebox visibili sul form, in fondo si tratta di creare una scrollbar (e/o un metodo per sfogliare le immagini) e usare l'indice della scroll per indirizzare le immagini da infilare nelle picbox, e' sicuramente meno traumatico che creare una galleria "statica" di 1000 immagini in un ambienteche non e' nato per la grafica... A BRACCIO: declare global VariabileImmagini(1000) as Bitmap Sub main For x = 1 to 1000 VariabileImmagini(x) = loadpicture ("immagine" & "i") next i end sub On scrollbar_scroll Dim i as byte For x = scrollbar.value to scrollbar.value +20 form_main.picturebox(i).image = VariabileImmagini(x) end sub