private sub timer1_timer() tehty = tehty + 1 label1.caption = tehty end sub
Niin toi muuttaa labelin vaan 1, mutta ei siitä ylöspäin. Do loopissa onnistu tollane lisääminen mut ei tässä.
Oletko määritellyt tuon muuttujan?
Pistä aivan koodin alkuun:
Dim tehty As Long
Muuten muuttuja nollaantuu aina, kun eventin suoritus päättyy.
Kiits nyt toimii. Määrittelin sen muuttujan form loadissa aiemmin ni ei toiminu.
Joo, jos määrittelet sen form_loadissa niin silloin sen arvo myös säilyy vain form_loadissa. Kun muuttujan pistää aivan alkuun, siitä tulee jaettu kaikkien aliohjelmien kesken.
Private Sub timer1_timer() Static tehty As Long tehty = tehty + 1 label1.caption = tehty End Sub
Aihe on jo aika vanha, joten et voi enää vastata siihen.