Clasa de imagine - a lucra cu imagini în VBA
VBA Image Control este responsabil pentru adăugarea imaginii formei de suprafață. Componenta în sine este destul de simplu, și toate proprietățile sale sunt intuitive, astfel încât în acest articol mă voi concentra doar pe scrierea de cod.
Aproape de obiect Image VBA are o proprietate imagine. care stochează acces la desen. Pentru a încărca o imagine, vom utiliza funcția VBA LoadPicture. care ca parametru vom trece calea către imaginea.
Aici prescriem procedura ImageModule care oferă modulul nostru. Corpul procedurii, noi spunem că atunci când apelați nevoia de macro actuală pentru a afișa un formular numit ImageForm.
Acum trebuie să formatați aspectul formei. Adăugați la suprafața componentei Image VBA, sub locul eticheta componentei, iar în partea de jos a postării două butoane (componenta CommandButton). Forma Aspect poate fi văzut în figura de mai jos.
La început, vom declara o variabilă i, care este la nivel mondial. Avem nevoie de ea ca un contor, și va păstra numărul de clicuri pe un buton. Procedura GetFolders este responsabil pentru accesul la directorul C: \ WINDOWS \ Web \ Wallpaper \. care stochează fișiere, imagini, utilizate de către sistemul de operare pentru tapet. In cazul tau, calea poate fi diferită. Ciclul se produce pentru fiecare prelucrare a tuturor fișierelor dintr-un folder specificat, există o condițiile de verificare - vom compara valoarea variabilei i și o variabilă j (aceste variabile stochează numărul fișierului). De fapt, condiția este necesară pentru ca am putea parcurge imaginile din dosar.
Procedurile CommandButton1_Click CommandButton2_Click și sunt responsabile pentru manipularea clicuri pe un buton situat pe formular. În ambele proceduri, există o procedură GetFolders apel (), singura diferență este că în CommandButton1_Click scade valoarea i, iar în CommandButton2_Click - creșterea valorii variabilei i.
Procedura UserForm_Initialize se efectuează imediat la formularul de pornire, aici ne-am înregistrat formularul de legendă, numele butoanelor și valoarea inițială pentru eticheta (Label).
Ca urmare, atunci când rulează un macro se va forma înainte de contact, apăsând butonul „Forward“ și „Back“ film apare grafică dintr-un anumit dosar în sine este afișată pe suprafața de desen a matriței (componenta VBA Image). Tag va stoca calea imaginii.
Este demn de remarcat faptul că nu am modifica parametrii de afișare (dimensiune), dacă se dorește, puteți edita codul în propria sa discreție.