190 likes | 336 Views
VISIBLE (VIDLJIVOST) ENABLE (AKTIVNOST). Visible. P onekad je potrebno da se objekat na formi pa i sama forma učini potpuno nevidljivim. U tu svrhu se koristi osobina Visible , koja može da poprimi vrijednosti True ili False.
E N D
Visible Ponekad je potrebno da se objekat na formi pa i sama forma učini potpuno nevidljivim. U tu svrhu se koristi osobina Visible, koja može da poprimi vrijednosti True ili False. Slično prethodno opisanoj osobini, i ova osobina se može mijenjati kroz programski kôd.
Primjer za to je: cmdIzlaz.Visible = False U ovom primjeru, kontrolno dugme cmdIzlaz će biti proglašeno nevidljivim, dok bi kôd za ponovno omogućavanje prikaza tog dugmeta bio: cmdIzlaz.Visible = True
Enabled Ukoliko se želi onemogućiti da korisnik pristupi određenom objektu (npr. komandom dugmetu), moguće je objekt učiniti nedostupnom korišćenjem osobine Enabled. Ako se vrijednost ove osobine postavi na False, tada je taj objekt vidljiv, ali je nedostupan (malo je "bljeđi" pri prikazu nego ostali objekti).
Da bi objekt postao dostupan u vrijeme izvršavanja aplikacije, potrebno je omogućiti ("osloboditi") njegovo korišćenje putem programskog kôda. Primjer za oslobađanje jednog komandnog dugmeta bi bio: cmdIzlaz.Enabled = True Da bi ovo dugme ponovo bilo proglašeno nedostupnim ("zamrznutim") potrebno je upotrijebiti sljedeću naredbu: cmdIzlaz.Enabled = False
KREIRATI FORMU SA TRI KOMANDNA DUGMETA • PRILIKOM OTVARANJA FORME PRVO DUGME JE AKTIVNO I VIODLJIVO, DRUGO DUGME JE NEAKTIVO A TREĆE NEVIDLJIVO • KLIKOM NA PRVO DUGME DRUGO DUGME POSTAJE AKTIVO A TREĆE VIDLJIVO
Private Sub Form_Load() cmd2.Enabled = False cmd3.Visible = False End Sub
Private Sub cmd1_Click() cmd2.Enabled = True cmd3.Visible = True End Sub
Prvo ćemo ispisati proceduru cmdSmanji_Click. U ovoj proceduri smanjujemo visinu i širinu obrasca. frmIgra.Height = frmIgra.Height – 500 frmIgra.Width = frmIgra. Width – 200 Procedura cmdPovecaj_Click povećava visinu i širinu obrasca. frmIgra.Height = frmIgra.Height + 1000 frmIgra.Width = frmIgra. Width+ 1000
Private Sub cmdSmanji_Click() frmIgra.Height = frmIgra.Height - 500 frmIgra.Width = frmIgra.Width - 200 End Sub Private Sub cmdPovecaj_Click() frmIgra.Height = frmIgra.Height + 1000 frmIgra.Width = frmIgra.Width + 2000 End Sub
cmdCrveno_Click menja boju pozadine obrasca u crvenu. frmIgra.BackColor = vbRed cmdPlavo_Click menja boju pozadine obrasca u plavu. frmIgra.BackColor = vbBlue
Private Sub cmdCrveno_Click() frmIgra.BackColor = vbRed End Sub Private Sub cmdPlavo_Click() frmIgra.BackColor = vbBlue End Sub
Private Sub cmdPrikazi_Click() cmdSkloni.Visible = True End Sub Private Sub cmdSkloni_Click() cmdSkloni.Visible = False End Sub