Picturebox

Què és el control PictureBox?

El control PictureBox de VB.NET és fonamental per mostrar imatges a les aplicacions de Windows Forms. El control PictureBox s'utilitza per mostrar gràfics en diversos formats (com ara Bitmap, GIF, JPEG, PNG, etc.) en un formulari de Windows Forms. És un dels controls més simples, però essencial per a qualsevol aplicació que requereixi visualització d'imatges.

Propietats

SizeMode 

La propietat SizeMode és crucial per gestionar com l'àrea del PictureBox interactua amb la mida real de la imatge:

 

Mètodes

Exemples VB.NET

Assumim un control PictureBox anomenat PictureBox1 al teu formulari.

Carregar una Imatge en temps execució

Pots carregar una imatge des d'un fitxer local utilitzant la propietat Image i el mètode Image.FromFile.

Imports System.Drawing ' Necessari per a la classe Image

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    ' Ruta del fitxer d'imatge (ajusta la ruta al teu PC)
    Dim rutaImatge As String = "C:\Rutes\AlesTevesImatges\logo.png"

    Try
        ' 1. Carregar la imatge al control
        PictureBox1.Image = Image.FromFile(rutaImatge)
        
        ' 2. Ajustar la mida de la imatge al control sense distorsió
        PictureBox1.SizeMode = PictureBoxSizeMode.Zoom
        
        ' 3. Opcional: Afegir una vora
        PictureBox1.BorderStyle = BorderStyle.FixedSingle
        
    Catch ex As Exception
        ' Gestionar errors, per exemple si la ruta no és vàlida
        MessageBox.Show("Error carregant la imatge: " & ex.Message)
    End Try

End Sub

 

Utilitzar ImageLocation i Load

Si vols separar la definició de la ruta de la càrrega, o si utilitzes un URL:

Private Sub BtnCarregar_Click(sender As Object, e As EventArgs) Handles BtnCarregar.Click
    ' Defineix la ruta
    PictureBox1.ImageLocation = "https://un-servidor.com/imatge_remota.jpg"
    
    ' Carrega la imatge
    PictureBox1.Load() 
    
    ' També pots utilitzar LoadAsync() per a càrrega asíncrona
    ' PictureBox1.LoadAsync()
End Sub

Creació dinàmica de PictureBoxs

La creació de controls de manera dinàmica permet que l'aplicació s'adapti a les necessitats de l'usuari, per exemple, mostrant tantes imatges com l'usuari vulgui seleccionar.

El procés consta de tres passos principals:

Exemple VB.NET

Aquest exemple crea diversos controls PictureBox basant-se en un bucle (o en el nombre que l'usuari hagi triat). Assumim que teniu un botó anomenat BtnAfegir al vostre formulari.

' Utilitzarem una llista per mantenir una referència als controls creats dinàmicament
Private PictureBoxesDinamics As New List(Of PictureBox)

Private Sub BtnAfegir_Click(sender As Object, e As EventArgs) Handles BtnAfegir.Click
    ' Utilitzem un bucle per crear 3 PictureBoxs d'exemple
    For i As Integer = 1 To 3
        
        ' 1. Declarar i Instanciar el nou control PictureBox
        Dim nouPictureBox As New PictureBox()
        
        ' 2. Configurar les seves propietats
        
        ' Assignar un nom únic
        nouPictureBox.Name = "pbDinamic" & i.ToString()
        
        ' Definir la mida
        nouPictureBox.Size = New Size(100, 100)
        
        ' Calcular la posició (els col·loca en fila)
        nouPictureBox.Location = New Point(20 + ((i - 1) * 110), 50) 
        
        ' Carregar una imatge de prova (reemplaça amb una ruta vàlida o My.Resources)
        ' NOTA: Image.FromFile bloqueja el fil, utilitza My.Resources si l'imatge és al projecte
        Try
            ' Carrega des d'una ruta, utilitza un fitxer petit per a l'exemple
            nouPictureBox.Image = Image.FromFile("C:\Rutes\AlesTevesImatges\miniatura" & i.ToString() & ".jpg") 
        Catch ex As Exception
            nouPictureBox.BackColor = Color.LightGray ' Fons de color si no es troba la imatge
        End Try
        
        ' Establir el mode de visualització de la imatge
        nouPictureBox.SizeMode = PictureBoxSizeMode.Zoom
        
        ' Opcional: Assignar un esdeveniment (p. ex., clic)
        AddHandler nouPictureBox.Click, AddressOf PictureBox_Click
        
        ' 3. Afegir el nou control a la col·lecció Controls del formulari (Me)
        Me.Controls.Add(nouPictureBox)
        
        ' Guardar la referència a la llista per a un accés futur
        PictureBoxesDinamics.Add(nouPictureBox)
        
    Next

End Sub

' Controlador d'esdeveniments per a tots els PictureBox dinàmics
Private Sub PictureBox_Click(sender As Object, e As EventArgs)
    ' "sender" és el control PictureBox que ha estat clicat
    Dim pbClicat As PictureBox = DirectCast(sender, PictureBox)
    
    MessageBox.Show("Has clicat el PictureBox: " & pbClicat.Name)
    
    ' Pots canviar-li el color per indicar que ha estat clicat
    pbClicat.BorderStyle = BorderStyle.Fixed3D
End Sub

Aquest exemple no només crea els controls dinàmicament, sinó que també els assigna un gestor d'esdeveniments (PictureBox_Click) perquè l'usuari pugui interactuar amb ells un cop creats.

Eliminar una imatge associada a PictureBox

Eliminar de forma segura una imatge d'un control PictureBox i alliberar els recursos del sistema associats és un pas crucial, especialment quan es treballa amb moltes imatges (creació dinàmica) o aplicacions de llarga durada. El control PictureBox conté una referència a un objecte de la classe Image (o una de les seves derivades, com Bitmap). Aquests objectes fan ús de recursos del sistema operatiu (memòria, gestors de fitxers). Si simplement assignes Nothing a la propietat Image, l'objecte Image podria romandre a la memòria durant un temps fins que el col·lector d'escombraries de .NET (Garbage Collector - GC) decideixi alliberar-lo.

La manera segura i immediata d'alliberar els recursos és utilitzar el mètode Dispose().

Passos en VB.NET

Aquí teniu el codi per garantir que l'objecte Image s'elimina correctament abans de desassignar-lo del PictureBox.

Private Sub EliminarImatgeDePictureBox(ByVal pb As PictureBox)
    
    ' 1. Comprovar si hi ha una imatge assignada
    If pb.Image IsNot Nothing Then
        
        ' 2. Guardar una referència a l'objecte Image actual
        Dim imatgeAEliminar As Image = pb.Image
        
        ' 3. Eliminar la referència de l'objecte Image del PictureBox
        '    Això fa que el PictureBox ja no mostri res i es prepari per a l'alliberament.
        pb.Image = Nothing
        
        ' 4. Alliberar immediatament els recursos del sistema
        '    El mètode Dispose() allibera la memòria i els gestors de fitxers.
        imatgeAEliminar.Dispose()
        
        ' Opcional: Netejar qualsevol altre efecte visual
        pb.BorderStyle = BorderStyle.None
        pb.BackColor = Color.Empty ' o qualsevol color de fons desitjat
    End If

End Sub

' Crida a la funció de neteja segura
EliminarImatgeDePictureBox(PictureBoxPrincipal)

Per què és important Dispose()?

En resum, la clau per a una eliminació segura i eficient és assegurar-se que l'objecte de la imatge cridi a Dispose() abans d'assignar Nothing al PictureBox.Image.