Keskustelu: Ohjelmointikysymykset: Buttoniin kaksi tai useampi funktio? (VB6)

Onkohän mahdollista pistää nappiin useampi kuin yksi toiminto? Esimerkiksi ensimmäisellä kerralla kun nappia painaa niin tulee esiin vaikkapa lisää nappeja ja toisella painalluksella saisi ne esille tulleet napit takaisin piiloon.

Kyl maar, olisit tuon varmaan hokassut itsekin jos olisit hieman tarkemmin miettinyt.

Private Sub Command1_Click()
  Static a As Boolean ' Static = muuttujaa ei alusteta uudelleen
                      '          jokaisella funktiokutsulla

  ' Boolean oletusarvo on False
  If a = False Then MsgBox "pekka" Else MsgBox "pätkä"

  a = Not a ' switchataan flagi
End Sub

Onnistuu tietty myös Static:n sijaan globaalilla muuttujalla mutta se ei ole suositeltavaa.

Ja vielä Checkboxien Style-arvoksi voi laittaa Graphical, jolloin ne näyttävät Commandbuttoneilta.