Comanda ScrollBar este o bară de derulare familiară care apare în câmpurile de text atunci când conținutul lor nu se potrivește la suprafață. Doar în acest caz, logica sa de lucru se schimbă puțin.
VBA Obiectul ScrollBar este util când trebuie să măriți sau să micșorați intervalul. Deci, puteți să o utilizați pentru a specifica un interval pentru calcularea sumei de numere sau, în funcție de poziția cursorului, să schimbați culoarea textului. Este clar că în acest caz este convenabil să folosiți buclă pentru. Un exemplu de utilizare a obiectului ScrollBar VBA este volumul, contrastul și așa mai departe.
Proprietățile de bază ale clasei VBA ScrollBar
Max si Min - aceste proprietăți fac posibilă pentru a seta valoarea maximă și minimă pe care o puteți defini utilizând comanda de date. Proprietatea acceptă numai valori întregi cuprinse între -32 767-32 767. Puteți seta atât în ordine înainte (de la cea mai mică la cea mai mare) și invers (de la cea mai mare la cea mai mică). În astfel de cazuri, glisorul va trebui să fie tras într-o direcție sau alta.
SmallChange - Proprietatea vba ia o valoare întregă care determină cât de mult se va mișca cursorul când se apasă butoanele de defilare.
LargeChange - ca proprietatea SmallChange, puteți seta pasul pentru mutarea glisorului când faceți clic pe bara de defilare. Valorile pot fi în intervalul de la -32 767 la +32 767, valorile implicite fiind egale pentru ambele proprietăți 1.
Orientarea - proprietatea vă permite să specificați orientarea cursorului - orizontală sau verticală. Valoarea implicită este exact 1 - orientarea este determinată automat în funcție de parametrii formei, adică modul în care bara de defilare se potrivește cu obiectul UserForm. De asemenea, puteți specifica în mod explicit orientarea obiectului ScrollBar, -1 - orientarea orizontală și 0 - orientarea verticală.
Vizibil - determină, de fapt, vizibilitatea componentei vba a ScrollBar, valoarea adevărată este setată implicit - obiectul este vizibil și fals - ascundem controlul din ochii utilizatorului.
Valoare - vă permite să obțineți valoarea cursorului, în funcție de poziția sa.
Ca majoritatea controalelor, evenimentul principal pentru ScrollBar VBA este evenimentul Change. care apare atunci când mutați cursorul.
Acum este momentul să începem să practicăm
Aici determinăm că atunci când modulul (macro) cu numele ScrollModule este pornit, trebuie să afișăm un formular numit ScrollForm, proprietatea Show face obiectul UserForm vizibil.
Acum, pe suprafața formei trebuie să organizăm următoarele controale:
Label1 - o etichetă în care vom scrie textul "Scroll bar"
ScrollBar1 - bara de defilare, care este plasată sub etichetă, ar trebui să fie orizontală. Cu ajutorul acestuia, vom specifica o serie de valori de la 1 la 100, iar apoi vom calcula suma numerelor date.
Label2 este a doua etichetă. ștergeți tot textul din acesta, în care vom afișa rezultatul sumării.
ScrollBar1_Change - Aici este procesat evenimentul Change. În ciclu, apare sumarea numerelor de la 1 la ScrollBar1.Value. Aici ScrollBar1.Value conține valoarea selectată pe bara de derulare, rezultatul sumării va stoca variabila sumă. De asemenea, proprietatea sumare este scrisă în proprietatea Caption a obiectului Label2.
UserForm_Initialize - aici proprietățile inițiale sunt determinate când forma este inițializată. Dimensiunea și textul etichetelor sunt setate la valorile minime (una) și maxime (o sută) pentru barele de derulare. Se folosește, de asemenea, o buclă pentru valorile sumei.
Și deci, să rezumăm: am considerat un exemplu de utilizare a unui obiect ScrollBar VBA al limbii, care vă permite să adăugați o bară de defilare la suprafața formularului UserForm.