BAZELE PROGRAM Ă RII PE OBIECTE VISUAL BASIC .NET

1. BAZELE PROGRAMĂRII PE OBIECTEVISUAL BASIC .NET ConfunivdrBotezatuCezar UNIVERSITATEA ROMÂNO AMERICANĂ Anul I LICENȚĂ IM

2. CURS 3: CONTROALE VISUAL BASIC

3. CONTROALE CARE PERMIT ALEGEREA UNOR OPŢIUNI Caseta de validare (Sistem.Windows.Forms.CheckBox) Majoritatea aplicaţiilor permit utilizatorilor să aleagă dintre anumite opţiuni, pornind de la un simplu „da” sau „nu” până la selectarea unor articole dintr-o listă cu multe posibilităţi. Un control casetă de validare oferă utilizatorilor posibilitatea de a alege sau nu o anumită opţiune. De regulă sunt prezentate utilizatorului mai multe opţiuni ataşate unor casete de validare, mai multe dintre acestea putând fi selectate la un moment dat. Când utilizatorul alege o opţiune, caseta de validare corespunzătoare opţiunii respective este marcată; semnul de marcare dispare când caseta este deselectată. • Proprietatea Checked este utilizată pentru a determina starea controlului prin valorile: false= nebifat, true= bifat. • Proprietatea Text este utilizată pentru a prelua textul atașat.

4. Controlul Check Box Proprietăţi ale controlului Check Box:Name; AutoCheck; BackColor; BackgroundImage; BackgroundImageLayout; Checked; CheckState; Enabled; Font; FontHeight; ForeColor; Image;Location; Size; TabIndex; TabStop; Tag; Text; TextAlign; TextImageRelation; ThreeState; UseCompatibleTextRendering UseMnemonic UseVisualStyleBackColor UseWaitCursor Visible. Evenimente: Click; CheckedChanged;CheckStateChanged; GotFocus; KeyDown; KeyPress; KeyUp; LostFocus; MouseClick.

5. Butonul de opţiune(Sistem.Windows.Forms.RadioButton) Butoanele de opţiune - numite şi butoane radio pun la dispoziţiautilizatorului un set de opţiuni, dintre care acesta are posibilitateasămarchezeunasingură la un moment dat. Selectareaunuibutonimplică automat deselectareacelorlalte. • Toatebutoanele de opţiuneplasate direct pe o formăconstituie un singurgrup. • Dacădorimsămaiintroducemîncă un set de butoane de opţiune, acesteatrebuieîncadrateîninteriorulunuicontainer din formă ex: panel. • Butonul de opţiune care estemarcat are proprietateaChecked = True,iarcelelaltebutoane din grup au proprietateaChecked = False.

6. Exemplu - OptionButton • Modificaţi forma de mai jos, astfel încât în locul butoanelor de comandă să afişaţi butoane de opţiune, corespunzătoare celor două funcţii ale aplicaţiei: suma a două numere sau concatenarea a două şiruri. • Ex 3\Project1.vbp

7. Exemplu - OptionButton

8. Exemplu – OptionButton instrucţiuni Private Sub Command3_Click() Me.Label2.Text = "" Me.Textbox1.Text = "" Me.Textbox2.Text = "" Me.Textbox3.Text = "" Me.Option1.Checked = False Me.Option1.Checked = False End Sub Private Sub Command4_Click() End End Sub Private Sub Option1_Click() If Me.Option1.Checked = True Then Me.Label2.Text = "concatenat cu:" Me.Text3.Text = Me.Textbox1.Text + Me.Textbox2.Text End If End Sub Private Sub Option2_Click() If Me.Option2.Checked = True Then Me.Label2.Text = "+" Me.Text3.Text = Str(Val(Me.Text1.Text) + Val(Me.Text2.Text)) End If End Sub

9. EXEMPLU 3 OPTIUNI

10. EXEMPLU 3

11. EXEMPLU 3

12. EXEMPLU 3

13. CASETA CU LISTĂ (Sistem.Windows.Forms.ListBox) • Caseta culistăeste un control care permite afişareape verticalăa uneiserii de valori de tip text dincareutilizatorulpoatealegeunulsaumai multe. • ProprietateaItems.Count a uneilistereturneazănumărul de articole din listă. ProprietateaSelectedIndexesteutilizatăpentru a determinanumărularticoluluiselectat. Numerotareaarticolelorînlistăîncepe de la 0.

14. CASETA CU LISTĂ Adăugarea unui articol nou în listă se face cu metoda Insert, care are sintaxa: Nume casetă. Items.Insert(index,element) unde: • nume casetă este numele obiectului tip listă (implicit este Listbox1, Listbox2, etc); • element este şirul de caractere care trebuie adăugat în listă şi care poate fi specificat ca atare, între “ “ sau conţinut într-o variabilă, al cărei nume trebuie precizat; • index – precizează poziţia din listă unde va fi inserat noul articol. Dacă index = 0, articolul va fi adăugat la începutul listei. Dacă are o anumită valoare, articolul se va adăuga la poziţia respectivă. O altă metodă de adăugare este Add, care adaugă articolul la sfârșitul listei. Sintaxa este: Nume casetă.items.Add(element)

15. CASETA CU LISTĂ (LISTBOX) Elementele din listă pot fi apoi ordonate, sortate, caz în care proprietatea Sorted trebuie să ia valoarea True. În acest caz însă elementele inserate cu metodele Insert sau Addnu mai respectă indexul, ci sunt inserate în listă conform ordinii alfabetice. Accesul la un articol din listă se face prin proprietatea Items.Item, al cărei format este: Nume casetă.Items.Item(index) unde: • Nume casetă este numele casetei (implicit este Listbox1, Listbox2, etc). • Index reprezintă poziţia articolului în listă (primul are numărul de ordine 0).

16. CASETA CU LISTĂ (LISTBOX) • Items.RemoveAt este metoda care permite ştergerea unui articol din listă, având formatul general: Nume casetă.Items.RemoveAt(index) • Items.Remove()este metoda care permite ştergerea unui obiect din listă, având formatul general: Nume casetă.Items.Remove (valoare) • Pentru ştergerea tuturor articolelor din listă se utilizează metoda Items.Clear, cu formatul: Nume casetă.Items.Clear()

17. Exerciţiul 4: • Să se realizeze o aplicaţie care să conţină o casetă cu listă (denumită automat Listbox1). Să se afişeze (într-un control tip etichetă marcat în cadrul formei noastre) numărul articolului selectat de utilizator. Proiectăm forma Form1, pe care definim: • un control etichetă, care să precizeze mesajul adresat utilizatorului, de a selecta produsul dorit din listă; • un control tip listă, în care înscriem iniţial la proprietatea Items.Item câteva articole; • un alt control etichetă, care să afişeze poziţia articolului selectat

18. Exerciţiul 4:

19. Exerciţiul 4:Executând aplicaţia noastră se obţine:

20. Exerciţiul 4: INSTRUCTIUNI • Procedura asociată evenimentului Click asociat listei este: Private Sub Listbox1_Click() Label3.Text = Listbox1.SelectedIndex End Sub

21. Exerciţiul 5: • Completaţi aplicaţia anterioară astfel încât să permită adăugarea de noi articole în listă, precum şi ştergerea unora dintre ele. Se adaugă două butoane de comandă:”Adaugă”;”Şterge”. Instrucţiunile sunt: Private Sub Button1_Click() Listbox1.Items.Add("bere") End Sub Private Sub Button2_Click() Listbox1.Items.RemoveAt (Listbox1.SelectedIndex) Listbox1.Refresh End Sub • Notă: Ori de câte ori se va acţiona butonul adaugă, aplicaţia noastră va adăuga în listă elementul “ bere“.

22. Exerciţiul 5:

23. Exerciţiul 5: completare • Modificăm aplicaţia de mai sus astfel încât procedura de adăugare a unui produs nou în listă să se facă prin introducerea datelor de la tastatură. Procedura va fi acum : Public sir As String Private Sub Button1_Click() sir = InputBox("Introduceti noul produs") Listbox1.Items.Add(sir) End Sub

24. Exerciţiul 5: completare

25. CASETA CU LISTĂ • Proprietăţi:BackColor; MultiColumn; Enabled; Font Bold; Font Italic; Font Name; Font Size; Font Strikethrough; Font Underline; ForeColor; Height; Items; Cursor; SelectionMode; Name; Sorted; TabIndex; TabStop; Tag; Visible; Width; • Evenimete:Click; DoubleClick; DragDrop; DragOver; GotFocus; KeyDown; KeyPress; KeyUp; LostFocus; MouseDown; MouseMove; MouseUp.

26. CASETA CU LISTĂ (LISTBOX)

27. CURS 3: END