Keskustelu: Ohjelmointikysymykset: VB6: Nappula-apua

Häsään VB:llä jotain hämärää ja ohjelmassani on nappula. Jos nappulaa rämpyttää niin ohjelma vetää jönkkiin, enkä muutenkaan haluaisi että nappulaa voisi rämpyttää. Olisko siis mahdollista asettaa nappulaan "cooldown"(WoW) timerilla tai jollain?

Toki.

Global Nappi_Painettu As Boolean

Sub Klikkaus
  ' Onko nappia jo painettu?
  If Nappi_Painettu Then End Sub

  ' No nyt ainakin on
  Nappi_Painettu = True

  ' Ja timeri käyntiin
  Timer.Interval = 1000

  ' Sitten muut jutut
End Sub

Sub Timer
  ' Timerillä merkitään, että nappia saa taas painaa
  Nappi_Painettu = False;
  Timer.Interval = 0
End Sub

Tietenkin Nappi-Painettu-muuttujan sijaan voi tarkkailla vain tuota Timerin intervallia, sekin riittää välineeksi. Idea on joka tapauksessa sama.

THAX

no PE***LE eihän tämä nyt toiminukkaa. Valittaa tosta As Booleanista.

Valittaa mitä? Informaatioon hukkuessani kristallipallo sanoo, että esittelet muuttujan väärin. Korvaa Global Private:lla formi-tasolla, tai Public:lla module-tasolla.

Pistä Dim Nappi_Painettu as Boolean