Nakon ponovnog pokretanja VB.Net-a 2008 dobili smo Start Page i da bi pokrenuli naš započeti projekat u prozoru Recent Projects izabraćemo stavku Prvi Projekat.

Imamo pripremljenu prvu aplikaciju, vreme je da zadamo našim objektima određene poslove.

Da bi dugmetu komo smo za sad dali naziv Dugme dodelili određeni posao potrebno je da na njega kliknemo dva puta. Dobili smo prozor za uređivanje koda aplikacije. Naš kod treba da izgleda ovako:

Public Class Aplikacija


Private Sub Dugme_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Dugme.Click

End Sub
End Class

Ceo kod koji se nalazi između linija

Public Class Aplikacija

i

End Class

odnosi se na formu Aplikacija.

Linije:

Private Sub Dugme_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Dugme.Click

i

End Sub

označavaju početak i kraj koda za naše dugme.

Da bi dugmetu dodelili određeni posao potrebno je ubacimo kod između ove dve linije.

Zadatak: Klikom na dugme promeniti tekst ispisan u labeli

Rešenje:

• Ubacićemo kod kojim će se klikom na dugme u labeli pojaviti tekst "promena teksta u labeli". Kod za izvršavanje ovakve komande glasi:

Labela.Text = "promena teksta u labeli"

 

dakle, ceo kod naše Aplikacije glasiće:

 

Public Class Aplikacija


Private Sub Dugme_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Dugme.Click
Labela.Text = "promena teksta u labeli"
End Sub
End Class

Da bi se vratili na dizajn aplikacije kliknućemo na karticu Form1.vb [Design]

Da bi sprobali funkionalnost naše aplikacije pritisnućemo taster F5.

Zadatak: kreirati novo dugme koje će da izvrši novu promenu teksta u labeli u "nova promena".

Rešenje:

• u toolboxu dvostrukim klikom na objekat Button ubacićemo novo dugme na formu. Pomerićemo ga ispod prvog dugmeta, promenićemo mu svojstvo Name u drugoDugme i svojstvo Text u "Drugo Dugme" i malo ćamo mu povećati dimenzije da bi text bio u potpunosti ispisan.
• Dvostrukim klikom prećićemo na kod aplikacije i na kod našeg drugog dugmeta unećemo sledeću liniju:

Labela.Text = "nova promena"

ceo kod aplikacije treba da izgleda ovako:

Public Class Aplikacija


Private Sub Dugme_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Dugme.Click
Labela.Text = "promena teksta u labeli"
End Sub

Private Sub drugoDugme_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles drugoDugme.Click
Labela.Text = "nova promena"
End Sub
End Class

Da bi sprobali funkionalnost naše aplikacije pritisnućemo taster F5.

Naša aplikacija na kraju druge lekcije treba da izgleda ovako: