🚀 go-pugleaf

De Greef Johan wrote:
 
> Is het mogelijk om in Vb4 of Vb5
> bv: gedurende 1:45 uur de achtergrond van een form doen te veranderen van
> kleur na het indrukken van de CMDbutton, tot 1 minuut is dit geen probleem .

Als je de timer control gebruikt is het maximum inderdaad maar 32.7
seconden (signed integer) of 65.4 seconden (unsigned), dit omdat de
property 'interval' in milliseconden is uitgedrukt, en alleen maar
integer (16 bit = 2**16) verdraagt.

Mijn oplossing is als volgt:

Je definieert een timer, die je enabled, en waarvan het interval op 1000
staat (dus je krijgt een timer event elke seconde).

Definitie: Dim Startime As Single.

Begin:

 StartTime = Timer (Timer geeft de huidige tijd in seconden in single
formaat).
 .. zet je oorspronkelijke kleur ..

In het timer event:
 If (Timer-StartTime) > ((60.0+45.0)*60.0) Then
   .. verander je kleur ..
   Timer.Enabled = False
 End If

Met vriendelijke groeten,
Hugo Maes
_________________________
Deze Usenet posting weerspiegelt een persoonlijke mening, en bindt op
geen enkele manier mijn Internet-provider (KULeuven Net).