Controale Visual Basic standard

Intr-o aplicatie Visual Basic controalele sunt folosite pentru a introducere informatii si a afisa rezultate. Fiecare control are propriul sau set de proprietati, metode si evenimente.

Introducere

Caseta instrumentelor Visual Basic (vezi figura 1). contine instrumentele pe care le folositi pentru trasarea controalelor pe formulare.

	Figura 1. Caseta instrumentelor Visual Basic.

Categorii de controale

In Visual Basic exista trei categorii generale de controale:

Controale intrinseci, cum ar fi butonul de comanda si controalele de tip cadru. Aceste controale sunt incluse in fisierul .exe al aplicatiei Visual Basic. Controalele intrinseci sunt incluse intotdeauna in caseta instrumentelor, spre deosebire de celelalte doua categorii de controale, care pot fi adaugate sau eliminate din caseta instrumentelor.

Controale ActiveX, care exista ca fisiere separate, avand extensia .ocx. Din aceasta categorie fac parte controalele DataCombo, DataList, Listview, Toolbar etc.

Obiecte inserabile, cum ar fi un obiect Microsoft Excel Worksheet ce contine o lista a angajatilor unei companii sau un obiect Microsoft Project Calendar care contine informatiile de planificare ale unui proiect. Aceste controale nu fac obiectul prezentarii.

Controale intrinsici

In tabelul urmator sunt prezentat in rezumat controalele intrinseci care se gasesc in caseta instrumentelor Visual Basic.

Controale ActiveX standard

Editia Learning a aplicatiei Visual Basic contine un numar de controale ActiveX (referite drept ActiveX standard) care va permit adaugarea unor facilitati avansate in aplicatiile dumneavoastra. Controalele ActiveX se gasesc in fisiere cu extensia .ocx si pot fi adaugate in caseta instrumentelor prin intermediul caseteti de dialog Components, care se afiseaza selectand optiunea Components din meniul Project..

In tabelul urmator sunt prezentate in rezumat controalele ActiveX standard disponibile in editia Visual Basic Learning.

Adaugarea si eliminarea controalelor ActiveX

Pentru a adauga si elimina controale ActiveX in si din caseta instrumentelor Visual Basic se executa urmatoarele operatii:

a) Pentru a adauga un control ActiveX la caseta instrumentelor:

1. Se selecteaza optiunea Components din meniul Project.
2. Se selecteaza caseta de validare de langa numele fisierului .ocx al controlului si apoi se executa clic pe OK. De indata ce controlul este plasat in caseta instrumentelor, el poate fi utilizat ca orice control intrinsec.

b) Pentru a elimina un control ActiveX din caseta instrumentelor:

1. Se elimina toate instantierile (referirile) la control din formularele proiectului. Se sterg toate referintele la control din codul proiectului. Daca lasati in cod o referinta la control, se va afisa un mesaj de eroare pe timpul comiplarii aplicatiei.
2. Se selecteaza optiunea Components din meniul Project.
3. Se deselecteaza caseta de validare de langa numele fisierului .ocx al controlului si apoi se executa clic pe OK. Daca in proiect au ramas instantieri ale controlului, se va afisa un mesaj de eroare.

Conventii pentru denumirea controalelor

Atunci cand creati pentru prima data un obiect (formular sau control), Visual Basic seteaza proprietatea Name a acestuia la o valoare prestabilita. Spre exemplu, toate butoanele de comanda au proprietatea Name setata initial pe valoarea Commandn, unde n este 1, 2, 3 etc. Primul buton de comanda plasat pe un formular este denumit de Visual Basic Command1, al doilea este Command2, s.a.m.d..

Tinand cont de faptul ca aceste obiecte sunt referite foarte des in codul aplicatiei, este indicat ca numele acestora sa fie mult mai sugestive. In numele obiectelor puteti utiliza un prefix, format din trei caractere, care sa indice clasa de care apartine obiectul respectiv. Spre exemplu, puteti denumi o caseta de validare (control CheckBox) chkReadOnly.

Regulile pe care trebuie sa le respectati atunci cand denumiti formularele si controalele sunt urmatoarele:

Numele obiectului trebuie sa inceapa cu o litera;

Numele obiectului trebuie sa contina numai litere, cifre si liniuta de subliniere. Nu sunt permise semnele de punctuatie si spatiile:

Numele obiectelor trebuie sa aiba cel mult 40 caractere.

Prefixele recomandate pentru a fi asociate principalelor controale intrinseci.din Visual Basic sunt prezentate in urmatorul tabel.

Valoarea unui control

Toate controalele au o proprietate care poate fi utilizata pentru stocarea sau citirea valorilor doar prin referirea la control, fara a folosi si numele proprietatii. Aceasta proprietate este numita valoarea unui control si este una dintre cele mai importante si mai folosite proprietati. Proprietatea valoare, in functie de tipul controlului, are diferite denumiri. Spre exemplu, la caseta de validare ea se numeste Value, la caseta de text se numeste Text etc. In tabelul urmator sunt prezentate denumirile proprietatile care sunt considerate ca fiind valoare pentru controalele respective.

Ori de cate ori in cod vreti sa referiti la proprietatea care reprezinta valoarea acelui control, puteti s-o faceti fara a mai specifica si numele proprietatii. Spre exemplu, urmatoarea linie de cod stabileste valoarea proprietatii Text a unei casete de text:

Text1 = 'Acest text este atribuit proprietatii Text a controlului Text1'

In urmatorul exemplu, proprietatea Caption a controlului Label1 este setata pe proprietatea FileName a controlului File1, daca utilizatorul selecteaza un fisier din caseta listei de fisiere:

Private Sub File1_Click ()

Label1 = File1

End Sub

Controlul Label

Controlul de tip Label (eticheta) este folosit pentru a afisa text, care nu poate fi editat de catre utilizator. De regula, eticheta este utilizata in urmatoarele situatii:

Identificarea (descrierea) controalelor care nu au proprietate Caption (casete de text, liste, casete combinate etc.).

Adaugarea unui text descriptiv pe formular;

Afisarea unor informatii, pe timpul executiei ca raspuns la evenimente.

Crearea tastelor de acces pentru controalelor ce nu au proprietatea Caption.

Principalele proprietati ale controlului sunt:

Controlul TextBox

Controlul de tip TextBox (caseta de text) permite introducerea si afisarea informatiilor. De regula, o caseta de text se utilizeaza pentru:

a afisa informatia introdusa de utilizator pe timpul executiei;

a afisa textul atribuit proprietatii Text a controlului pe timpul executiei sau pe timpul proiectarii;

Principalele proprietati ale controlului sunt:

Controlul CommandButton

Controlul de tip CommandButton (buton de comanda) este utilizat pentru a lansa, intrerupe sau termina o actiune.

Majoritatea aplicatiilor folosesc butoanele de comanda pentru a permite utilizatorului ca printr-un simplu clic pe ele sa execute actiunile asociate acestora. Cateva dintre utilizarile de baza ale butoanelor de comanda sunt:

Afisarea sau inchiderea unui formular.

Anularea informatiilor introduse.

Afisarea rezultatelor unor calcule complexe.

Realizarea unui panou de comanda care sa asigure functionalitatea aplicatiei.

Principalele proprietati ale butonului de comanda sunt:

Cele mai utilizate evenimente ale butonului de comanda sunt:

Controlul Frame

Controlul de tip Frame (cadru) este o zona dreptunghiulara ce se foloseste pentru a grupa alte controale, cum ar fi butoanele de optiuni si casetele de validare. In marea majoritate a cazurilor cadrul este utilizat drept control pasiv - pentru a grupa alte controale - si nu veti avea nevoie de evenimentele acestuia. In princioiu, un control de tip Frame se foloseste pentru:

Gruparea altor controale fie pentru a le identifica mai usor fie pentru a imparti din punct de vedere functional un formular in mai multe zone distincte.

Afisarea sau ascunderea mai usoara a unui grup de controale pe timpul executiei.

Principalele proprietati ale controlului sunt:

Atunci cand vreti sa folositi controlul Frame pentru a grupa alte controale este necesar ca mai intai sa plasati controlul pe formular si apoi sa trasati in interiorul cadrului controalele ce se vor grupa. Aceasta va permite ca in continuare sa manevrati cadrul impreuna cu controalele incluse in el.

Daca pe formular ati plasat deja controalele pe care vreti sa le grupati, selectati controalele respective, decupati-le cu comanda Cut din meniul Edit (sau cu butonul Cut), plasati cadrul in formular in locul dorit sau selectati-l daca este deja trasat si apoi lipiti controalele cu comanda Paste din meniul Edit (sau cu butonul Paste).

Controlul OptionButton

Controalele de tip OptionButton (buton de optiune) sunt folosite pentru a afisa diferite optiuni, de regula organizate in grupuri de cel putin doua optiuni, din care utilizatorulva putea alege doar una singura, la fel cum se face si in meniuri.

Cele mai utilizate proprietati ale butoanelor de optiune sunt:

Cand un buton de optiune este selectat se declanseaza evenimentul Click al acestuia. Puteti asocia cod acestui eveniment pentru a fi executat atunci cand utilizatorul selecteaza optiunea respectiva.

Controlul CheckBox

Controlul de tip CheckBox (caseta de validare) se foloseste pentru a afisa o optiune de forma Da/Nu sau Adevarat/Fals. Casetele de validare se pot grupa la fel ca si butoanele de optiuni, cu deosebirea ca intr-un grup de casete de validare pot fi selectate (afiseaza un smbol de marcare, de regula o bifa) mai multe controale in acelasi timp.

Cele mai utilizate proprietati ale casetei de validare sunt urmatoarele:

Principalul eveniment utilizat la o caseta de validare este evenimentul Click, care se declanseaza atunci cand utilizatorul executa clic pe control si ca urmare starea casetei de validare se modifica. Puteti asocia cod acestui eveniment pentru a executa unele actiuni in functie de starea casetei de validare.

Controalele ListBox si ComboBox

Controalele de tip ListBox (casete cu lista sau pe scurt liste) si ComboBox (casete combinate sau liste derulante) se folosesc pentru a prezenta o lista de elemente, din care utilizatorul sa poata selecta unul sau mai multe. In mod prestabilit, lista cu elemente este afisata pe verticala intr-o singura coloana, dar ea poate fi afisata si pe mai multe coloane. Daca numarul elementelor este mai mare de cat poate afisa o lista sau o lista derulanta, pe control apar automat barele de derulare.

Utilizarea casetelor cu lista si casetelor combinate reprezinta metode eficiente de a pune la dispozitia utilizatorului un numar foarte mare de optiuni intr-un spatiu limitat.

In general, caseta combinata (ComboBox) se foloseste atunci cand exista o lista de optiuni sugestionate, iar caseta cu lista (ListBox) se utilizeaza cand se doreste limitarea introducerilor la ceea ce este in lista. In plus, caseta combinata se va folosi in locul casetei cu lista ori de cate ori spatiul de pe formular nu este suficient pentru a utilza caseta cu lista.

Controlul ListBox

O caseta cu lista (ListBox) afiseaza o lista de elemente din care utilizatorul sa poata selecta unul sau mai multe elemente. In mod prestabilit, elementele sunt afisate vertical pe o coloana, dar puteti stabili si mai multe coloane de afisare.

Figura 2. Stiluri de casete cu lista.

Daca numarul de elemente depaseste posibilitatile de afisare ale controlului, barele de derulare apar automat pe control si astfel utilizatorul poate derula lista in sus si in jos sau la stanga si la dreapta. In figura 2 sunt prezentate doua variante de liste cu o singura coloana. Lista din stanga este o lista standard, iar lista din dreapta este o lista cu casete de validare. Ambele au bara de derulare pe verticala.

Cele mai utilizate proprietati ale controlului de tip ListBox sunt:

Cele mai utilizate evenimente ale listei sunt Click si DoubleClick. Evenimentele se vor folosi atunci cand selectiile facute de utilizator in lista trebuie sa fie utilizate in continuare pentru pregatirea declansarii unor actiuni (evenimentul Click) sau pentru a lansa in executie anumite operatii (evenimentul DoubleClick).

Adaugarea si eliminarea elementelor in/din lista

Pe timpul rularii eplicatiei, intr-un control de tip ListBox pot fi adaugate noi elemente folosind metoda AddItem a carei sintaxa este:

<nume_Lista>.AddItem <element> < index>

unde:

Spre exemplu, pentru a obtine lista prezentata in figura 2, in procedura evenimentului Load a formularului frmTest ce contine controlul lstOrase se va plasa urmatorul cod:

Private Sub frmTest_Load()

lstOrase.AddItem "Paris"

lstOrase.AddItem "New Orleans"

lstOrase.AddItem "San Francisco"

lstOrase.AddItem "Chicago"

lstOrase.AddItem "Seatle"

lstOrase.AddItem "Toronto"

End Sub

Pentru a adauga pe timpul executiei un element in lista intr-o anumita pozitie, trebuie sa specificati valoarea elementului si pozitia in care va fi inserat. Spre exemplu, pentru a adauga elementul "Bucuresti" in prima pozitie din lista se va folosi urmatoarea linie de cod:

lstOrase.AddItem "Bucuresti", 0

Remarcati ca 0 si nu 1 indica prima pozitie din lista.

Pentru a crea o lista pe timpul proiectarii se foloseste proprietatea List din fereastra Properties a controlului executand urmatoarele operatii:

1. Se selecteaza controlul, daca nu este deja selectat.
2. Se afiseaza fereastra Properties, daca nu este afisata si se selecteaza proprietatea List.
3. Se executa clic pe butonul cu sageata jos din dreapta proprietatii List.
4. Se tasteaza elementele listei. Dupa fiecare element se foloseste combinatia de taste Ctrl+Enter pentru a trece la o noua linie.
5. La terminare, se inchide lista derulanta a proprietatii fie prin selectarea unei alte proprietati, fie prin executarea unui nou clic pe numele proprietatii.

Pe timpul rularii unei aplicatii, un element al controlului ListBox poate fi eliminat folosind metoda RemoveItem, care are urmatoarea sintaxa:

<nume_lista>.RemoveItem <index>

unde <nume_lista> si <index> au aceeasi semnificatie ca si in cazul metodei AddItem. Spre exemplu, pentru a elimina al doilea element din lista lstOrase se poate utiliza urmatoarea linie de cod:

List1.RemoveItem 1

Daca pe timpul rularii unei aplicatii este necesar sa se elimine toate elementele unui control ListBox, se foloseste metoda Clear. Spre exemplu, urmatoarea linie de cod elimina toate elementele listei lstOrase:

lstOrase.Clear

Accesarea elementelor listei

Cea mai usoara metoda de a obtine valoarea elementului selectat in mod curent este folosirea proprietatii Text a controlului. Spre exemplu, urmatoarea linie de cod

strLoco = lstOrase.Text

atribuie variabilei strLoco valoarea elementului selectat in mod curent in lista lstOrase.

Proprietatea List asigura accesul la toate elementele din lista. Aceasta proprietate este de fapt un tablou in care fiecare intrare a listei este stocata intr-un element de tablou. Fiecare element este reprezentat sub forma de sir. In aceste conditii referirea unui element din lista se face folosind urmatoarea sintaxa:

<nume_lista>.List(<index>)

unde <nume_lista> si <index> au aceeasi semnificatie ca si in cazul metodei AddItem. Spre exemplu, pentru a afisa in fereastra Immediate toate elementele listei lstOrase se poate utiliza urmatoarea secventa de cod:

For i = 0 To lstOrase.ListCount

Debug.Print lstOrase.List(i)

Next

Controlul ComboBox

Controlul de tip ComboBox (caseta combinata) imbina facilitatile unei casete de text (TextBox) cu o caseta cu lista (ListBox). Acest control permite utilizatorului sa selecteze un element al controlului fie prin tastarea textului in caseta de text fie prin executarea unui clic pe elementul dorit din lista derulanta, care se afiseaza cand se executa clic pe butonul cu sageata a controlului. Caseta combinata contine un camp de editare, astfel incat optiunile care nu sunt in lista pot fi tastate in acest camp.

Caseta combinata are cam aceleasi proprietati ca si caseta cu lista. Caseta combinata nu are proprietatile Columns si MultiSelect; deci nu se pot realiza casete combinate cu mai multe coloane si nici nu se poate realiza o selectie multipla.

Proprietatea Style a casetei combinate care este diferita fata de cea a casetei cu lista. Ea are trei valori cu ajutorul carora se pot crea trei tipuri diferite de casete combinate (vezi figura 3) si anume:

Caseta combinata derulanta (Drop-down Combo)            Valoarea proprietatii Style este 0 (valoare prestabilita). Utilizatorul poate introduce textul direct (ca intr-o caseta de text) sau sa execute clic pe butonul cu sageata a controlului pentru a deschide lista de optiuni si sa selecteze optiunea dorita. Optiunea selectata se insereaza in caseta de text de la partea superioara a casetei combinate. Lista se poate deschide si prin utilizarea combinatiei de taste Alt + sageata jos, atunci cand controlul are focus-ul.

Caseta combinata simpla (Simple Combo)             Valoarea proprietatii Style este 1. Lista casetei combinate este afisata tot timpul. Utilizatorul poate tasta direct optiunea dorita sau o poate selecta din lista. Numarul intrarilor afisate permanent depinde de dimensiunea controlului data la proiectare.

Caseta cu lista derulanta (Drop-down List)             Valoarea proprietatii Style este 3. Se obtine o caseta cu lista derulanta. Spre deosebire de o lista normala, la caseta cu lista derulanta trebuie sa se execute clic pe butonul cu sageata din dreapta controlului pentru a se afisa lista de optiuni.

	Figura 3. Stiluri de casete combinate.

Principala diferenta intre aceste trei stiluri ale controlului ComboBox consta in faptul ca intr-o caseta cu lista derulanta nu se poate tasta direct in caseta; se poate doar selecta o optiune din lista. La casetele combinate derulante si la casetele combinate simple se poate tasta direct optiunea dorita sau chiar una care nu exista in lista.

Controlul PictureBox

Controlul de tip PictureBox (caseta de imagine) se foloseste pentru afisarea imaginilor, pentru a actiona drept container pentru alte controale si pentru a afisa iesirile metodelor grafice sau a textului utilizand metoda Print. Este similar controlului de tip Image (imagine), insa contine functionalitati pe care nu le are acest control, spre exemplu, posibilitatea de actiona drept container si de a suporta metodele grafice.             

Formatele grafice admise de control sunt.

Principalele proprietati ale controlului PictureBox sunt:

Incarcarea si stergerea unei imagini

Pe timpul proiectarii, imaginile se pot incarca intr-un control de imagine prin selectarea proprietatii Picture din fereastra Properties a controlului, care va determina afisarea unei casete de dialog de tip Open cu ajutorul careia se va localiza si se selecta fisierul ce contine imaginea dorita. Pe timpul executiei, imaginea se incarca apeland functia LoadPicture, ca in exemplul urmator:

Set picShow.Picture = LoadPicture('c:WindowsWinlogo.cur')

Pe timpul rularii aplicatiei, stergerea imaginii dintr-un control PictureBox se realizeaza folosind tot functia LoadPicture, fara insa a specifica un nume de fisier, ca in linia de cod urmatoare:

Set picShow.Picture = LoadPicture()

Utilizarea metodei Print

Pentru a folosi caseta de imagine la afisarea textului cu ajutorul metodei Print, trebuie sa setati valoarea proprietatii AutoDraw pe True, fie pe timpul proiectarii fie pe timpul executiei aplicatiei. Spre exemplu, pentru ca in caseta de imagine picShow sa se afiseze textul "Acesta este un text afisat intr-o caseta de imagine" se va folosi urmatoarea linie de cod:

picShow.Print "Acesta este un text afisat intr-o caseta de imagine"

Pe timpul utilizarii metodei Print pentru afisarea unui text, puteti modifica stilul si marimea fontului, iar prin folosirea proprietatilor CurrentX, CurrentY, Height si Width puteti stabili pozitia si alinierea textului in caseta de imagine.

Controlul Image

Controlul de tip Image (imagine) se foloseste pentru a afisa imagini grafice, admitand aceleasi formate ca si controlul PictureBox (caseta de imagine). In plus imaginile controlului Image raspund la evenimentul Click si deci ele pot fi folosite in locul butoanelor de comanda, ca elemente in barele cu instrumente sau pentru a crea animatii simple.

Controlul de tip Image foloseste mai putine resurse ale sistemului si se redeseneaza mai rapid decat casetele de imagine, dar ele admit numai un subset al proprietatilor, evenimentelor si metodelor casetei de imagine. Controlul de tip Image are si avantajul ca permite extinderea graficului pentru a se incadra complet in dimensiunea controlului.

Proprietatea Stretch

Proprietatea Stretch determina daca o imagine se va extinde atunci cand controlul este redimensionat pe timpul proiectarii. Daca proprietatea este setata pe True, imaginea incarcata in control prin intermediul proprietatii Picture este extinsa. Extinderea unei imagini, in special a celor de format bitmap, poate determina o pierdere a calitatii imaginii, asa dupa cum se poate obsera din figura 4. Imaginile de tip metafile sunt cele mai potrivite pentru extindere.

Figura 4. Imagine bitmap extinsa.

Controlul Timer

Controalele de tip Timer raspund la scurgerea timpului. Ele sunt independente de utilizator si cu ajutorul lor puteti realiza actiuni care sa se produca la intervale regulate de timp.

Proprietatea Interval a fiecarui control Timer specifica numarul de milisecunde care se scurg intre un eveniment Timer si urmatorul. In afara cazului cand controlul este dezactivat, un control Timer receptioneze evenimentul Timer la intervale egale de timp.

Toate controalele Timer trebuie sa fie asociate cu un formular, insa ele nu sunt vizibile pe timpul executiei.

Proprietatea Interval a controlului Timer are cateva limitari de care trebuie sa tineti cont pe timpul programarii, si anume:

Daca aplicatia dumneavoastra sau o alta aplicatie solicta mult timp sistem - cum ar fi ciclari lungi, calcule intensive sau accesarea unei unitati, retea sau port - este posibil ca aplicatia dumneavoastra sa nu obtina evenimentele de ceas asa de des cum le specifica proprietatea Interval.

Valoarea specificata a intervalului trebuie sa fie cuprinsa intre 0 si 64767 milisecunde, ceea ce inseamna 64,8 secunde.

Nu este garantata exactitatea intervalului. Pentru a asigura exactitatea, controlul trebuie sa verifice ceasul sistemului in loc sa acumuleze intern timpul.

Sistemul genereaza 18 cicluri de ceas pe secunda si cu toate ca valoarea proprietatii Interval se masoara in milisecunde, precizia reala a unui interval nu este mai mare de 1/18 dintr-o secunda.

Controlul Timer are doua proprietati principale:

Remarcati faptul ca rolul proprietatii Enabled a controlului Timer difera fata de cea a celorlalte obiecte. La controlul Timer proprietatea Enabled declanseaza/suspenda operatia de contorizare a timpului, in timp ce la celelalte obiecte proprietatea Enabled determina daca obiectul poate raspunde la un eveniment provocat de utilizator.

Retineti faptul ca evenimentul Timer este periodic. Proprietatea Interval nu determina "cat de lung" este acesta, ci "cat de des" se produce.

Controalele ScrollBar

Barele de derulare orizontala (control de tip HScrollBar) si barele de derulare pe verticala (control de tip VScrollBar) asigura o metoda usoara de navigare a listelor lungi de elemente sau a altor cantitati mari de informatii, cum ar fi un document text. Barele de derulare sunt elemente obisnuite ale interfetelor Windows. Datorita asemanarii lor cu o scala de masura, barele de derulare sunt folosite ca indicatoare analogice de pozitie sau de stadiu. Ele pot fi intrebuintate si ca dispozitive de intrare cu ajutorul carorara utilizatorul poate ajusta vizula valoarea unei marimi cum ar fi, de exemplu, viteza, temperatura sau volumul.

Ambele bare de derulare au in compunere trei zone distincte pe care se poate executa clic sau care poate fi deplasat cu mouse-ul, pentru a modifica valoarea proprietatii Value a barei de derulare. Aceste zone (vezi fig. 5) sunt: sagetile de la capetele barelor de derulare, caseta de derulare (sau cursor) si corpul barei (cele doua zone dintre cursor si sageti).

Controalele de tip bara orizontala si verticala nu sunt aceleasi cu barele de derulare atasate casetelor de text, listelor, casetelor combinate sau formularelor MDI din Visual Basic. Aceste bare apar automat cand controlul respectiv contin mai multa informatie decat poate afisa in dimensiunea curenta a controlului (sau in cazul casetelor de text si formularelor MDI, cand proprietatea ScrollBars a acestora este setata pe True).

Principalele proprietati ale barelor de derulare sunt:

Cele mai utilizate evenimente ale barelor de derualre sunt:

Nota Este indicat ca in aceste doua evenimente sa nu se apeleze functia MsgBox.

Controlul UpDown

Controlul de tip UpDown este un control de tip ActiveX si apare sub forma unei perechi de butoane cu sageti, care pot fi folosite de catre utilizator pentru a incrementa/decrementa o valoare, cum ar fi pozitia de derulare sau un numar afisat intr-un control "buddy". Controlul "buddy" poate fi orice alt tip de control (cel mai folosit fiind caseta de text).care dispune de o proprietate ce poate fi actualizata prin controlul UpDown

De cele mai multe ori, pentru utilizator, controlul UpDown impreuna cu controlul sau "buddy" apare ca un singur control. In figura de mai jos este prezentat un control UpDown avand o castea de text drept control "buddy", combinatie care de foarte multe ori este referita drept control spinner (caseta de modificare valorica).

Principalele proprietati ale controlului UpDown sunt urmatoarele:

Principalele evenimente ale controlului UpDown sunt urmatoarele:

Exemple de utilizare a controalelor

Etichete, casete de text, butoane de comanda

Aplicatia urmatoare permite introducerea unei parole si verificarea acesteia. Daca parola introdusa este corecta, se afiseaza formularul, denumit frmStart, pentru a simula continuarea executiei. Daca parola introdusa nu este corecta, se permite reintroducerea parolei. Dupa 3 incercari nereusite se inchide aplicatia. Valorile proprietatilor obiectelor aplicatiei aplicatiei sunt:

Codul modulul formularului frmParola este:

Const bytStyle As Byte = vbOKOnly + vbExclamation + vbApplicationModal

Private Sub cmdAccept_Click()

Static bytIncerc As Byte

If txtParola = txtParola.Tag Then

MsgBox 'Acces permis', bytStyle, 'Succes!'

Else

bytIncerc = bytIncerc + 1

If bytIncerc = 3 Then

MsgBox 'Regret! Prea multe incercari.', bytStyle, 'Esec!'

End

Else

MsgBox 'Gresit! Mai incercati odata.', bytStyle, 'Rateu!'

txtParola.SelStart = 0

txtParola.SelLength = Len(txtPassword)

txtParola.SetFocus

End If

End If

frmStart.Show

frmParola.Unload

End Sub

Private Sub cmdCancel_Click()

End

End Sub

Codul modulului formularului frmStart este:

Private Sub cmdQuit_Click()

End

End Sub

Cadru (frame), butoane de optiuni si cadru

Folosind butoane de optiuni grupate intr-un cadru, aplicatia urmatoare asigura introducerea a doua valori si afisarea rezultatului operatiei aritmetice selectate. Proprietatile obiectelor aplicatiei sunt urmatoarele:

Codul modulului formularului frmOptiuni este:

Const bytStyle As Byte = vbOKOnly + vbExclamation + vbApplicationModal

Private Sub cmdQuit_Click()

End

End Sub

Private Sub optAdd_Click()

txtC = Val(txtA) + Val(txtB)

End Sub

Private Sub optAdd_GotFocus()

If optAdd Then

txtC = Val(txtA) + Val(txtB)

End If

End Sub

Private Sub optDivide_Click()

If IsEmpty(txtB) Or (Val(txtB.Text) = 0) Then

MsgBox 'Nu se poate imparti prin zero!', bytStyle, 'ATENTIE!'

optDivide.Value = False

txtB.SelStart = 0

txtB.SelLength = Len(txtB)

txtB.SetFocus

Exit Sub

End If

txtC = Val(txtA) / Val(txtB)

End Sub

Private Sub optMultiply_Click()

txtC = Val(txtA) * Val(txtB)

End Sub

Private Sub optSubtr_Click()

txtC = Val(txtA) - Val(txtB)

End Sub

Liste si casete combinate

Folosind listele si casetele combinate, aplicatia urmatoare gestioneaza asignarea drepturilor de acces unor utilizatori. Proprietatile obiectelor aplicatiei sunt:

Codul modulului formularului frmLista este:

Dim sUsers() As String, sDrepturi(6) As String

Dim bDrUsers() As Boolean' Matrice pentru drepturi

Dim bUsPrel() As Boolean ' Daca s-a prelucrat un utilizator

Dim nrUsers As Byte' Numarul de utilizatori

Dim iSelectat As Byte ' Indexul utilizatorului selectat

Dim i As Byte, j As Byte, sDrept As String

Private Sub cboUsers_Click()

iSelectat = Me.cboUsers.ListIndex

IncarcaDrepturi

End Sub

Private Sub cmdElimina_Click()

Me.lstDisp.AddItem sDrept

CautaDreptAcces

bDrUsers(iSelectat, j) = False

Me.lstAcces.RemoveItem Me.lstAcces.ListIndex

End Sub

Private Sub cmdEliminaTot_Click()

Me.lstDisp.Clear

For i = 0 To 6

Me.lstDisp.AddItem sDrepturi(i)

bDrUsers(iSelectat, i) = False

Next

Me.lstAcces.Clear

End Sub

Private Sub cmdMuta_Click()

Me.lstAcces.AddItem sDrept

CautaDreptAcces

bDrUsers(iSelectat, j) = True

Me.lstDisp.RemoveItem Me.lstDisp.ListIndex

End Sub

Private Sub cmdMutaTot_Click()

Me.lstAcces.Clear

For i = 0 To 6

Me.lstAcces.AddItem sDrepturi(i)

bDrUsers(iSelectat, i) = True

Next

Me.lstDisp.Clear

End Sub

Private Sub cmdQuit_Click()

Unload Me

End Sub

Private Sub Form_Load()

nrUsers = Me.cboUsers.ListCount

ReDim sUsers(nrUsers - 1) As String

ReDim bUsPrel(nrUsers - 1) As Boolean

For i = 0 To Me.cboUsers.ListCount - 1

sUsers(i) = Me.cboUsers.List(i)

bUsPrel(i) = False

Next

For i = 0 To 6

sDrepturi(0) = 'Adaugare'

sDrepturi(1) = 'Citire'

sDrepturi(2) = 'Criptare'

sDrepturi(3) = 'Decriptare'

sDrepturi(4) = 'Modificare'

sDrepturi(5) = 'Scriere'

sDrepturi(6) = 'Stergere'

Next

ReDim bDrUsers(nrUsers - 1, 6) As Boolean

Me.cboUsers.Text = Me.cboUsers.List(0)

For i = 1 To nrUsers - 1

For j = 1 To 6

bDrUsers(i, j) = False

Next

Next

IncarcaDrepturi

End Sub

Private Sub IncarcaDrepturi()

Me.lstAcces.Clear

Me.lstDisp.Clear

For i = 0 To 6

If bDrUsers(iSelectat, i) Then

Me.lstAcces.AddItem sDrepturi(i)

Else

Me.lstDisp.AddItem sDrepturi(i)

End If

Next

Me.cmdElimina.Enabled = False

Me.cmdEliminaTot.Enabled = False

Me.cmdMuta.Enabled = False

Me.cmdMutaTot.Enabled = False

End Sub

Private Sub lstAcces_Click()

sDrept = Me.lstAcces.Text

Me.cmdMuta.Enabled = False

Me.cmdMutaTot.Enabled = False

Me.cmdElimina.Enabled = True

Me.cmdEliminaTot.Enabled = True

End Sub

Private Sub lstAcces_DblClick()

sDrept = Me.lstAcces.Text

Me.cmdElimina.Value = True

End Sub

Private Sub lstDisp_Click()

sDrept = Me.lstDisp.Text

Me.cmdMuta.Enabled = True

Me.cmdMutaTot.Enabled = True

Me.cmdElimina.Enabled = False

Me.cmdEliminaTot.Enabled = False

End Sub

Private Sub CautaDreptAcces()

For i = 0 To 6

If sDrept = sDrepturi(i) Then

j = i

Exit For

End If

Next

End Sub

Private Sub lstDisp_DblClick()

sDrept = Me.lstDisp.Text

Me.cmdMuta.Value = True

End Sub

Caseta de imagini (PictureBox)

Aplicatia prezentata in continuare demonstreaza incarcarea pe timpul executiei a unor imagini intr-un control PictureBox, folosind un grup de butoane de optiuni. Principalele proprietati ale obiectelor aplicatiei sunt:

Macheta formularului frmPict.

Codul modulului formularului frmPict este:

Const path As String = 'C:ClipartPopular'

Private Sub cmdQuit_Click()

Unload Me

End Sub

Private Sub opt1_Click()

Set picShow.Picture = LoadPicture(path & 'Examine.wmf')

End Sub

Private Sub opt2_Click()

Set picShow.Picture = LoadPicture(path & 'Flower.wmf')

End Sub

Private Sub opt3_Click()

Set picShow.Picture = LoadPicture(path & 'Lion.wmf')

End Sub

Private Sub opt4_Click()

Set picShow.Picture = LoadPicture(path & 'Jetplane.wmf')

End Sub

Private Sub opt5_Click()

Set picShow.Picture = LoadPicture(path & 'Rabbit.wmf')

End Sub

Controale Timer

Aplicatia urmatoare afiseaza un ceas electronic folosind un control de tip Timer. Principalele proprietati ale obiectelor aplicatiei sunt:

Codul modulului formularului frmCeas este:

Private Sub timCeas_Timer()

If lblCeas.Caption <> CStr(Time) Then

lblCeas.Caption = Time

End If

End Sub

Bare de derulare si controale UpDown

Aplicatia calculeaza ratele (platile) aferente unui imprumut. Pentru introducerea duratei imprumutului se foloseste o bara de derulare pe orizontala, iar pentru indicarea dobanzii anuale se utilizeaza un control UpDown sincronizat cu o caseta de text. Proprietatile obiectelor interfetei grafice a aplicatiei sunt urmatoarele:

Codul modulului formularului frmRate este:

Private Sub cmdQuit_Click()

Unload Me

End Sub

Private Sub hsbDurata_Change()

Me.txtDurata.Text = Me.hsbDurata.Value

Me.txtValRata.Text = Round(Me.txtImprumut.Text / Me.hsbDurata.Value, 0)

End Sub

Private Sub txtDobanda_Change()

Me.updDobanda.Value = Me.txtDobanda.Text

End Sub

Private Sub updDobanda_Change()

Me.txtDobanda.Text = Me.updDobanda.Value

Me.txtLunar.Text = Round(Pmt(Me.txtDobanda.Text / 100 / 12, _

Me.hsbDurata.Value, -Me.txtImprumut), 0)

End Sub