Du kan använda Visual Basic för att skapa ett program för att visa en grupp bilder som du vill , till exempel i bildspel eller miniatyrformat . VB 6.0 har ImageList kontroll , som lagrar bilder i en array som du kan komma åt med index och visa i en eller flera bildkontrollerna . Instruktioner
1
Klicka på " Projekt " i menyn och klicka sedan på "Komponenter " från rullgardinsmenyn eller tryck " Ctrl + T " på tangentbordet för att öppna Komponenter menyn . Bläddra ned till " Microsoft Windows Common Controls 6.0 ( SP6 ) " och klicka på kryssrutan bredvid den . Klicka på " OK . " Detta lägger till flera nya verktyg i verktygslådan , inklusive ImageList kontroll .
2
Dubbelklicka på ImageList kontrollen i verktygslådan för att lägga till en till formuläret . Klicka på ImageList på formuläret och dubbelklicka på " ( Custom ) " alternativet från fönstret Egenskaper . Detta öppnar upp en dialogruta för dina bilder . Addera 3
Klicka på " Bilder "-fliken . Klicka på " Infoga bild " och navigera till dina bilder . Dubbelklicka på den som du behöver för att ladda in den i din ImageList . Upprepa denna process för att ladda upp alla bilder du behöver . Klicka på " OK " för att stänga rutan .
4
Dubbelklicka på " Image " kontrollen i verktygslådan för att lägga en till ditt projekt . Klicka och dra kanterna för att ändra storlek på den om det behövs . Ändra " Stretch " egendom till "true ".
5
Lägg två CommandButton kontroller från verktygslådan till formuläret . Ändra " Caption " egendom av de första att " Föregående " och den andra till " Next . " Ordna dina kontroller i formuläret . Din ImageList kontrollen inte visas vid körning , så att du kan lämna den var du vill.
6
Öppna koden fönstret . Skapa en global räkna variabel genom att skriva " Dim picNum As Integer " under " Option Explicit ". Få åtkomst till din " Form_Load ( ) " -funktion . Typ " picNum = 1 " på den första raden och " Image1.Picture = ImageList1.ListImages.Item ( picNum ) . Picture " på nästa rad . Detta kommer att ladda den första bilden i din ImageList in din bild box
7
Öppna koden för din " Next " kommandoknapp och skriv följande rader : .
P Om inte picNum = ImageList1.ListImages.Count Sedan
picNum = picNum + 1
Else
picNum = 1
End If
Image1.Picture . = ImageList1.ListImages.Item ( picNum ) Bild
8
Öppna koden för din " Previous " kommandoknapp och skriv följande rader :
p Om inte picNum = 1 Then
picNum = picNum - en
Else
picNum = ImageList1.ListImages.Count
End If
Image1.Picture = ImageList1 . ListImages.Item ( picNum ) . Bild
9
Kör programmet och testa dina knappar . Bilden kontrollen kommer att visa en bild från din ImageList . Bläddra mellan bilderna genom att klicka på Föregående och Nästa kommandoknappar .
