Nwlapcug.com


Come fare una galleria di immagini in Visual Basic 6.0

È possibile utilizzare Visual Basic per creare un programma per visualizzare un gruppo di immagini qualsiasi modo si desidera, ad esempio in formato slideshow o miniatura. VB 6.0 ha controllo ImageList che contiene immagini in una matrice che è possibile accedere con l'indice e visualizzare in uno o più controlli di immagine.

Istruzioni

1

Fare clic su "Progetto" dal menu e quindi fare clic su "Componenti" dall'elenco a discesa o premere "CTRL + T" sulla tastiera per aprire il menu di componenti. Scorrere fino a "Microsoft Windows Common Controls 6.0 (SP6)" e selezionare la casella di controllo accanto ad essa. Fare clic su "OK". Questo aggiunge diversi nuovi strumenti nella casella degli strumenti, tra cui il controllo ImageList.

2

Fare doppio clic sul controllo ImageList nella casella degli strumenti per aggiungere uno al form. Fare clic su ImageList sul form e fare doppio clic sull'opzione "(personalizzata)" nella finestra Proprietà. Questo apre una finestra di dialogo per le vostre immagini.

3

Fare clic sulla scheda "Immagini" Clicca su "Inserisci immagine" e passare alle immagini. Fare doppio clic su quello che vi serve per caricare in vostra ImageList. Ripetere questa procedura per caricare tutte le immagini che avete bisogno. Fare clic su "OK" per chiudere la finestra.

4

Fare doppio clic sul controllo nella casella degli strumenti per aggiungere uno al progetto "Immagine". Fare clic e trascinare i bordi per ridimensionarla, se necessario. Modificare la proprietà "Stretch" su "True".

5

Aggiungere due controlli CommandButton dalla casella degli strumenti al form. Modificare la proprietà "Caption" del primo al "Precedente" e del secondo per "Avanti". Dispongono i controlli sul form. Il controllo ImageList non mostrerà in fase di esecuzione, pertanto è possibile lasciare ovunque si preferisce.

6

Aprire la finestra di codice. Creare una variabile di conteggio globale digitando "Dim picNum As Integer" sotto "Option Explicit". Accedere la funzione di "Form_Load ()". Tipo "picNum = 1" nella prima riga e "Image1.Picture = ImageList1.ListImages.Item(picNum). Immagine"sulla riga successiva. Questo caricherà la prima immagine nel tuo ImageList nella tua casella di immagine.

7

Aprire il codice per il pulsante di comando "Avanti" e digitare le seguenti righe:

Se non picNum = ImageList1.ListImages.Count Then

picNum = picNum + 1

Altro

picNum = 1

End If

Image1.Picture = ImageList1.ListImages.Item(picNum). Foto

8

Aprire il codice per il pulsante di comando "Precedente" e digitare le seguenti righe:

Se non picNum = 1 Then

picNum = picNum - 1

Altro

picNum = ImageList1.ListImages.Count

End If

Image1.Picture = ImageList1.ListImages.Item(picNum). Foto

9

Eseguire il programma e testare i pulsanti. Il controllo image visualizzerà un'immagine dal tuo ImageList. Scorrere le immagini cliccando sui pulsanti di comando precedente e successivo.

Consigli & Avvertenze

  • Non è necessario utilizzare i pulsanti di comando per controllare come il programma Visualizza le immagini. È possibile utilizzare più controlli di immagine per visualizzare più immagini in una sola volta, oppure è possibile utilizzare un timer che cambierà automaticamente l'immagine visualizzata nel controllo immagine ogni volta che è trascorso l'intervallo del timer.