Visual Basic 6.0 Sleep...

[icelandic]

Speciaal voor edmoor (maar iedereen leest mee):

1)Ik heb een paar maal geprobeerd vba 2010/12 te installeren, maar helaas!!
Beide programma's zeggen dat Microsoft.net framework 4.5 geïnstalleerd moet zijn/worden.
Als ik bij de site van Microsoft die/dat programma('s) wil installeren dan krijg ik de mededeling dat deze/die al geïnstalleerd zijn/is.

Zolang ik daar geen oplossing voor weet houd ik me daarom maar even bij VB 6.0

2) Jouw voorstel voor mijn knipperende label heb ik ingevoerd.

3) Werkt niet!

4) Ja, werkt wel! Als je tenminste BEAKPOINTS plaatst bij de regels ik een printopdracht heb staan. Dan kun je zien dat er wel degelijk geknipperd wordt! Maar zonder die breakpoints lijkt het er op dat die seconde wachttijd niet werkt!
_________________________________________________________________________

Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)

Sub Command1_Click()
Print 1
Sleep 1000 '1 Seconde
Me.Label1.Visible = IIf(Me.Label1.Visible, False, True) 'wordt nu True

Print 2
Sleep 1000 '1 Seconde
Me.Label1.Visible = IIf(Me.Label1.Visible, False, True) 'wordt nu False

Print 3
Sleep 1000 '1 Seconde
Me.Label1.Visible = IIf(Me.Label1.Visible, False, True) 'wordt nu True

End Sub
__________________________________________________________________________________

Het label bevat een bepaalde tekst en visible op False.

Misschien wil jij (of anderen) er nog eens naar kijken?

Vr.gr.,

Eric

 

[wampier]

Heb je deze geprobeerd:
http://www.microsoft.com/en-us/download/details.aspx?id=17851
voordat je deze probeert?:
http://www.microsoft.com/en-us/download/details.aspx?id=30653

Mogelijk moet je een refresh afdwingen zodat de labelverandering ook getoond wordt op het scherm? Als je op het einde een msgbox("klaar") toevoegt duurt het dan wel 3 seconden voordat je die krijgt?

 

[edmoor]

Ik denk dat de volgorde niet goed is maar ik kan het niet testen wegens ontbreken van VB6. Doe het eens zo:

Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)

Sub Command1_Click()
    Me.Label1.Visible = IIf(Me.Label1.Visible, False, True) 'wordt nu True
    Sleep 1000 '1 Seconde

    Me.Label1.Visible = IIf(Me.Label1.Visible, False, True) 'wordt nu False
    Sleep 1000 '1 Seconde

    Me.Label1.Visible = IIf(Me.Label1.Visible, False, True) 'wordt nu True
    Sleep 1000 '1 Seconde
End Sub

 

[icelandic]

@wampler:

Dit was het! DOEVENT
Trouwens, wel een wonderlijk iets: zoveel gebeurde er toch niet op de achtergrond, tóch moest het systeem de tijd hebben om op orde te komen...

Verder, ik dit geprobeerd:

http://www.microsoft.com/en-us/downl....aspx?id=17851
voordat je deze probeert?:
http://www.microsoft.com/en-us/downl....aspx?id=30653

maar beide downloadingen zeggen dat alles al geïnstalleerd is. Terwijl als ik Visual Basic 2010/12 wil installeren wordt mij meegedeeld dat ik eerst bovenstaande programmatuur moet installeren! Ik vind het heel jammer, het lijkt er nu op dat ik VB2010/12 niet kan installeren!

Vr, gr.,
Eric

 

[wampier]

Nog een poging:

http://go.microsoft.com/?linkid=9831986

Kijk ook of je wel alle veiligheidsupdates hebt gedaan in je updatecenter. Anders kun je altijd nog proberen te deinstalleren en herinstalleren.