Caricamento immagini e posizionamento

di il
15 risposte

Caricamento immagini e posizionamento

Salve a tutti ragazzi. Sono giorni che mi scervello su un codice di vb e non riesco a venirne a capo.


Il programma consiste nel :
1)al''avvio vengono prelevate delle immagini con una determinata estensione da una cartella del pc
2)queste immagini vengono caricate in alcune picturebox (una per ogni picturebox)(per intenderci le picturebox di cui parlo sono quelle in basso nella foto)
3)quando clicco su una immagine, questa viene aperta nella picturebox grande(quella che sta in alto)

Praticamente una specie di album fotografico.
Questo è il codice che ho sviluppato:
   For Each f As String In IO.Directory.GetFiles("C:\Users\Diego\Pictures")
            Dim x As Integer
            x = Val(f) 
            For i = 0 To Val(x) 

                If IO.Path.GetExtension(f) = ".gif" Then


                    Dim p As New PictureBox
                   
                   p.CreateControl()



                    Dim h As Integer
                    h = h + 50
                    p.Location = New Point(131, 28 + h)
                    p.Size = New Point(40, 40)
                    p.BorderStyle = BorderStyle.FixedSingle
                  
                        p.Image = Image.FromFile(f)

                    End If
               
               

                If IO.Path.GetExtension(f) = ".gif" Then
                    PictureBox1.Image = Image.FromFile(f)
                    Me.Refresh() 'Obbliga il ridisegno del Form.
                  
                   

                End If
            Next
        Next


Ovviamente non funziona .... Sapreste darmi una mano?
Spero di essermi spiegato.
Grazie a tutti

15 Risposte

  • Re: Caricamento immagini e posizionamento

    Come in altri casi ... che vuol dire esattamente "non funziona" ?
  • Re: Caricamento immagini e posizionamento

    Grazie per la risposta innanzitutto. Comunque il problema sta nel fatto che non mi genera nessuna picturebox dove dovrebbero andarsi a collocare le immagini della cartella (quelle piccole in basso per intenderci)
  • Re: Caricamento immagini e posizionamento

    Sbaglio o non hai eseguito l'Add all'insieme Controls del Form?
  • Re: Caricamento immagini e posizionamento

    Grandeeeeeee ..... ho aggiunto il seguente codice e funziona.
    Controls.Add(p)
    Però per la seconda parte(cioè scrivere che quando premo su una picturebox appena creata l'immagine mi si apre nella picturebox grande) non so da che parte girarmi.... In poche parole non so come identificare le picturebox create.non so se mi spiego...
  • Re: Caricamento immagini e posizionamento

    Quando aggiungi un controllo devi aggiungere anche il gestore dell'evento click tramite AddHandler
  • Re: Caricamento immagini e posizionamento

    Come faccio però ad utilizzarlo? cioè scrivo: " AddHandler p.Click, AddressOf" e poi che ci metto?
  • Re: Caricamento immagini e posizionamento

    
    AddHandler p.Click, AddressOf Pics_Click
    
    Private Sub Pics_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
       MessageBox.Show("Click!")
    End Sub
    
  • Re: Caricamento immagini e posizionamento

    Innanzitutto grazie per la tua disponibilità e l'enorme favore che mi stai facendo, però io non riesco a capire come distinguere ve varie picturebox create. Perchè finchè non riesco a "separarle" una ad una non riesco a selezionare la propria immagine da trasferire nella picturebox grande.
    Scusami per il disturbo
  • Re: Caricamento immagini e posizionamento

    Il riferimento alla PictureBox su cui hai fatto click viene passato con l'argomento

    sender

    Nell'evento click, sender può essere utilizzato come la PictureBox sorgente.
  • Re: Caricamento immagini e posizionamento

    Grazieeeeeeeeeeeeeeeeeeeeee gira proprio come volevo
  • Re: Caricamento immagini e posizionamento

    Prego ... è codice "basilare" nel mondo .NET ... ti consiglio vivamente di leggere da qualche libro, anche non avanzato per il futuro ...
  • Re: Caricamento immagini e posizionamento

    oregon ha scritto:


    Il riferimento alla PictureBox su cui hai fatto click viene passato con l'argomento

    sender

    Nell'evento click, sender può essere utilizzato come la PictureBox sorgente.
    Ciao e scusate se riapro la discussione dopo molto tempo.
    Come si fa a impostare PictureBox.Image utilizzando l'argomento sender? La PictureBox è già presente sulla form.
    picturebox.Image = ???

    Grazie mille
  • Re: Caricamento immagini e posizionamento

    Private Sub Pics_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    PictureBox1.Image = CType(sender, PictureBox).Image
    End Sub
  • Re: Caricamento immagini e posizionamento

    patel ha scritto:


    Private Sub Pics_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    PictureBox1.Image = CType(sender, PictureBox).Image
    End Sub
    GRAZIE 1000
Devi accedere o registrarti per scrivere nel forum
15 risposte