Un visualizzatore di immagini in VB 6

Applicazioni desktop con Visual Basic 6
Impara a creare applicazioni gestionali col Visual Basic

Scritto da Luca Ruggiero nella sezione Visual Basic

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
Per inserire un'immagine in una Picture Box si assegna alla proprietà Picture il metodo LoadPicture() che accetta come parametro il percorso dell'immagine.

I più cliccati della sezione Visual Basic

:: Guida a Visual Basic 6 (177.016)

:: Una rubrica in VB e Ms Access (98.026)

:: Richiamare una form da un'altra form in Visual Basic (24.159)

:: Una semplice calcolatrice in VB 6 (22.245)

:: Interazione tra Visual Basic ed MS Excel (22.213)

:: Leggere un file Xml col DOM in VB 6 (21.736)

:: Inviare email con CDO in Visual Basic 6 (21.309)

:: Un semplice sistema di Login in VB 6 (12.580)

:: Scrivere un file MS Word in VB6 (12.474)

:: Creazione e cancellazione di un file di testo con Visual Basic (12.179)

IN EVIDENZA
DOWNLOAD