Un visualizzatore di immagini in VB 6

Autore: Luca Ruggiero | Tell a Friend Corso Visual Basic 6 Impara a creare applicazioni gestionali col Visual Basic! Corso VB.NET Impara a creare applicazioni desktop con Microsoft .NET! Corso VBA Impara a gestire documenti MS Office col linguaggio VBA!

Introduciamo l'oggetto Picture Box creando un semplice visualizzatore di immagini in VB 6.

Si crei un nuovo progetto ed una nuova form come EXE Standard. si assegni alla form il nome frmVisualizzatore e si aggiunga alla proprietà Caption un testo qualsiasi come titolo della form stessa.

Si aggiunga alla form un oggetto Picture Box dalla barra sulla sinistra dell'ambiente di sviluppo, come nell'immagine seguente:



e lo si chiami picVisualizza.

Si aggiunga poi una Label in cui inserire un testo tipo quello riportato nella figura che segue, una Text Box da chiamare txtVisualizza ed un pulsante da chiamare cmdVisualizza, etichettandolo Visualizza.



Si aggiunga poi alla form il seguente codice, facendo doppio click sul pulsante:

Private Sub cmdVisualizza_Click()
    ' CREO L'OGGETTO FILE SYSTEM
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")

	' VERIFICO CHE IL FILE ESISTA ED IN CASO LO INSERISCO NELLA PICTURE BOX
    If fso.FileExists(txtVisualizza.Text) = False Then
        MsgBox "Impossibile trovare il file", vbCritical, "ERRORE"
    Else
        picVisualizza.Picture = LoadPicture(txtVisualizza.Text)
    End If

    ' UN PO DI PULIZIA...
    Set fso = Nothing
End Sub

TAGS - visual basic, vb 6, visualizzatore di immagini