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

istruzione

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

2 Fare doppio clic sul controllo ImageList nella casella degli strumenti per aggiungere uno al form. Clicca sul ImageList sul modulo e fare doppio clic sul "(personalizzato)" opzione dalla 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 caricarlo nel vostro ImageList. Ripetere questo processo per caricare tutte le immagini desiderate. Fai clic su "OK" per chiudere la finestra.

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

5 Aggiungere due controlli CommandButton dalla casella degli strumenti al form. Cambiare la "didascalia" proprietà dei primi a "precedente" e della seconda per "Avanti". Disporre i controlli sul modulo. Il controllo ImageList non verrà visualizzato in fase di esecuzione, in modo da poter lasciare ovunque si preferisce.

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

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

Se non picNum = ImageList1.ListImages.Count Poi

picNum = picNum + 1

Altro

picNum = 1

Finisci se

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

8 Aprire il codice per il pulsante "Precedente" dei comandi e digitare le seguenti righe:

Se non picNum = 1 Poi

picNum = picNum - 1

Altro

picNum = ImageList1.ListImages.Count

Finisci se

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

9 Eseguire il programma e verificare i pulsanti. Il controllo immagine viene visualizzata un'immagine dal ImageList. Passa attraverso le immagini facendo clic sui pulsanti di comando precedente e successivo.

Consigli e avvertenze

• Non è necessario utilizzare i pulsanti di comando per controllare come il programma visualizza le immagini. È possibile utilizzare più controlli 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 l'intervallo del timer è trascorso.