U kunt gebruik maken van Visual Basic om een programma aan een groep afbeeldingen zoals u dat wilt , zoals in een diapresentatie of miniatuur -formaat weer te creëren . VB 6.0 heeft ImageList controle, die afbeeldingen in een array die je kunt benaderen met de index en weergeven in een of meer afbeelding controles slaat . Instructies Klik op " Project " op het menu 1 en klik vervolgens op "componenten " uit het drop down lijst , of druk op ' Ctrl + T " op het toetsenbord om het menu -onderdelen te openen . Scroll naar beneden naar " Microsoft Windows Common Controls 6.0 ( SP6 ) " en klik op het selectievakje ernaast . Klik op " OK . " Dit voegt een aantal nieuwe tools om de toolbox , waaronder de ImageList controle . Kopen van 2 Dubbelklik op het ImageList controle in de toolbox om een toe te voegen aan uw formulier . Klik op de ImageList op uw formulier en dubbelklik op het " ( Aangepast) " optie uit het venster Eigenschappen . Dit opent een dialoogvenster voor uw afbeeldingen . 3 Klik op het tabblad " Afbeeldingen " . Klik op " Afbeelding invoegen " en navigeer naar uw foto's . Dubbelklik op degene die u nodig hebt om het te laden in uw ImageList . Herhaal dit proces tot alle foto's die u nodig hebt te uploaden . Klik op " OK " om het venster te sluiten . 4 Dubbelklik op het " Beeld " -controle in de toolbox om een toe te voegen aan uw project . Klik en sleep de randen om het eventueel wijzigen. Verander de " Stretch " eigenschap op 'Ware . " 5 Voeg twee CommandButton controles van de toolbox aan uw formulier . Verander de " Caption " eigenschap van de eerste om " Vorige " en de tweede op " Next . " Schik uw besturingselementen op uw formulier . Uw ImageList controle wordt niet weergegeven tijdens runtime , dus je kunt het achterlaten waar u verkiest . 6 Open het venster code . Maak een globale telling variabele door te typen " Dim picNum As Integer " onder " Option Explicit . " Toegang tot uw functie " Form_Load ( ) " . Type " picNum = 1 " op de eerste regel en " Image1.Picture = ImageList1.ListImages.Item ( picNum ) . Picture ' op de volgende regel . Dit zal de eerste afbeelding in uw ImageList laden in uw afbeelding box 7 Open de code voor uw " Next " command -toets en typ de volgende regels : . If Not picNum = ImageList1.ListImages.Count picNum = 1 End Als Image1.Picture dan picNum = picNum + 1 Else . = ImageList1.ListImages.Item ( picNum ) Beeld 8 Open de code voor uw " Vorig " command -toets en typ de volgende regels : Als Niet picNum = 1 dan < br > picNum = picNum - 1 Else picNum Einde = ImageList1.ListImages.Count Als Image1.Picture = ImageList1 . ListImages.Item ( picNum ) . Beeld 9 Run je programma en test je knoppen . De controle over het beeld zal een beeld toont van uw ImageList . Doorloopt u de beelden van de vorige en volgende opdrachtknoppen klikken .
|