VISIBLE (VIDLJIVOST)
ENABLE (AKTIVNOST)
Visible
• Ponekad je potrebno da se objekat na formi pa i sama forma učini potpuno nevidljivim.
• U tu svrhu se koristi osobina VisibleVisible, 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
PRIMJER
• 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
Osobine
Command3
Name cmdPrikazi
Caption Prikazi dugmad
Command4
Name cmdCrveno
Caption Crveni obrazac
FORMA
Name frmIgra
Caption Igra
Command1
Name cmdSmanji
Caption Smanji obrazac
Command2
Name cmdPovecaj
Caption Povecaj obrazac
Command5
Name cmdPlavo
Caption Plavi obrazac
Command6
Name cmdSkloni
Caption Skloni dugmad
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 - 200End Sub
Private Sub cmdPovecaj_Click() frmIgra.Height = frmIgra.Height + 1000 frmIgra.Width = frmIgra.Width + 2000End 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
Top Related