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 2: CONTROALE VISUAL BASIC

3. Controale Visual Basic • În Visual Basic obiectele se mainumescşicontroaleşiacestea pot fi: forme, etichete, casete de dialog, casete de validare, butoane de comandă, butoane de opţiune, bare de derulare, etc. • Un control are o anumităformă, dimensiune, culoareşi un text sau o etichetă. Astfel un control dispune de proprietăţi, metodeşievenimente. Obiecteleîi permit utilizatoruluisădeacomenziprogramului. Visual Basic permitesăse scrie cod pentruproprietăţile, metodeleşievenimenteleunuicontrol. • C:\Program Files\Microsoft Visual Studio10.0\ Common7 \IDE\devenv.exe

4. BUTON DE COMANDĂ (COMMAND BUTTON) Un buton de comandă este un control (obiect) care are o anumităformă, afişează o etichetăsau o imagineşi permite utilizatoruluisă comande execuţiaunoracţiuniprinactivarea lui. Cel mai frecventevenimentîntâlnit la acest control şipentru care vomscriecel mai multcod este evenimentulClick. De câteoriutilizatorul va face clic mouse peacestbutonevenimentul se va produceşi va determinaexecutareacoduluiscris. Metode: DoDragDrop; SetBounds; BringToFront; Focus; Show; Hide; Refresh.

5. BUTON DE COMANDĂ - proprietăţi

6. BUTON DE COMANDĂ- proprietăţi(2)

7. BUTON DE COMANDĂ- proprietăţi(3)

8. BUTON DE COMANDĂ- evenimente

9. Control Etichetă (LABEL) • ControlulEtichetăeste un control graficfolositpentruafişarea de textpe care utilizatorul nu îlpoatemodifica. Textulceva fi afişat se stabileşteprinintermediulproprietăţiiTextsauprin cod sursa.. • Proprietăţi: Alignement; AutoSize;BackColor; BackStyle;BorderStyle;AllowDrop; DragMode; Enabled; Fontul Bold;Fontul Italic; Font Name; FontSize; Font Strikethrough; Font Underline;ForeColor; Height;Index; Left;Cursor; Name;TabIndex; Tag; Top; Visible; Width; WordWrap.

10. Control Etichetă (LABEL) • Definiţie: DDE reprezintă Dynamic Data Exchange(Transfer Dinamic de Date); • Evenimente: TextChanged;Click;DoubleClick;DragDrop;DragOver;MouseUp;MouseDown;MouseMove; • Metode: Enabled;Hide;MouseButtons; MousePosition; ProductName; Product Version;ResetText; Update; SetBounds; Show; Refresh; TextAlign; UseWaitCursor;

11. Controlul Casetă de text (TextBox) • Spre deosebire de controlul etichetă, controlul Casetă de texteste folosit pentru a afişa textul specificat în faza de proiectare (la proprietatea Text), introdus de utilizator la execuţie sau asociat controlului prin program. • Acest control poate fi folosit pentru ca aplicaţia să preia diferite informaţii de la utilizatori. Textul care se va afişa sau care va fi preluat se gestionează cu ajutorul proprietăţii Text.

12. Controlul Casetă de text (TextBox) • Proprietăţi:AcceptsReturnAcceptsTabAllowDropAutoCompleteCustomSourceAutoCompleteModeAutoCompleteSourceBackColorBackgroundImageBackgroundImageLayoutBorderStyleCursorDockEnabledFontFontHeightForeColorHeightLocationMaxLengthMultilineNameParentPasswordCharReadOnlySizeTextTextAlignUseSystemPasswordCharVisibleWidthWordWrap • Evenimente:AutoSizeChanged, BackColorChanged, BackgroundImageChanged, Click, CursorChanged, Disposed, DoubleClick, DragDrop, DragEnter, DragLeave, DragOver, EnabledChanged, GotFocus, KeyDown, KeyPress, KeyUp, LostFocus, MouseClick, MouseDown, MouseEnter, MouseHover, MouseLeave, MouseMove, MouseUp, MouseWheel, Move, ParentChanged, VisibleChanged, TextChanged • Metode:AppendTextBringToFrontClearContainsCopyDisposeEquals(Object)CutFocusHideRefreshResetCursorSelectAllSet Bounds ShowUpdateZOrder.

13. ControlulCasetă de text (TextBox) Exerciţiul 1: Să se realizeze o aplicaţiecaresărealizezeconcatenarea a douăşiruriintroduse de la tastatură. • Vomproiecta o formă pe carevomspecificafuncţiileaplicaţieişivom pune la dispoziţiautilizatoruluidouă casete de tip Text (Text Box) pentru a specifica cele douăşirurişi o a treiacasetăpentru a afişarezultatul. • Vommai pune la dispoziţiautilizatorului un buton de comandăpentru a determina procedura de calcul, un butonpentruieşireadinaplicaţieşiunulpentru a ştergeconţinutulcasetelorînvedereareluăriicalculului (un fel de Reset).

14. Controale Visual BasicExemplu 1

15. Controale Visual BasicExemplu 1 Proprietăţi modificate: • Form1.Text= “Concatenare” • Form1.Button1.Text= “Concatenare” • Form1.Button2.Text= “Reset” • Form1.Button3.Text= “Exit” • Form1.Label1.Text= “CONCATENAREA A DOUĂ ŞIRURI INTRODUSE DE LA TASTATURĂ” • Form1.Label2.Text= “+” • Form1.Label3.Text= “=” • Form1.textBox1.text=“” • Form1.textBox2.text=“” • Form1.textBox3.text=“”

16. Controale Visual BasicExemplu 1 – instrucţiuni (cod) Private Sub Button1_Click() TextBox3.Text = TextBox1.Text + TextBox2.Text End Sub Private Sub Button2_Click() sau Private Sub Button2_Click() TextBox1.Text = " “ TextBox1.Text = Empty TextBox2.Text = " " TextBox2.Text = Empty TextBox3.Text = " " TextBox3.Text = Empty End SubEnd Sub Private Sub Button3_Click() End End Sub

17. Controale Visual BasicExemplu 1 - RUN

18. Controale Visual BasicExemplu 2 Adăgaţi pe forma de mai sus un butonnou, la apăsareacăruiasă se calculeze suma a două numere introduse de la tastaturăprinintermediulcelordouă casete de text. Rezolvare: • Vom modifica maiîntâitextulafişatîn partea de sus pentru a precizacorectfuncţiileaplicaţiei. • Din analiza problemei, reiesecă se poatecere fie concatenarea (alipirea) valorilorintroduseîn cele două casete de text, fie sumaacestora, dacăaufostintrodusevalorinumerice.

19. Controale Visual BasicExemplu 2

20. Controale Visual BasicExemplu 2 Proprietăţi modificate: • Form1.Text= “Concatenare/Sumă” • Form1.Button1.Text= “Concatenare” • Form1.Button2.Text= “Reset” • Form1.Button3.Text= “Exit” • Form1.Button4.Text= “Sumă” • Form1.Label1.Text= “SUMA/CONCATENAREA A DOUĂ VALORI INTRODUSE DE LA TASTATURĂ” • Form1.Label2.Text= “+” • Form1.Label3.Text= “=” • Form1.textBox1.text=“” • Form1.textBox2.text=“” • Form1.textBox3.text=“”

21. Controale Visual BasicExemplu 2 Private Sub Button1_Click() TextBox3.Text = TextBox1.Text + TextBox2.Text End Sub Private Sub Button2_Click()sauPrivateSub Button2_Click() TextBox1.Text = " " TextBox1.Text = Empty TextBox2.Text = " " TextBox2.Text = Empty TextBox3.Text = " " TextBox3.Text = Empty End SubEnd Sub Private Sub Button3_Click() End End Sub Private Sub Button3_Click() TextBox3.text=Str(Val(textBox1.text)+Val(textBox2.text)) End Sub

22. Controale Visual BasicExemplu 2

23. CURS 2: END