• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Knipperende waarschuwing

Status
Niet open voor verdere reacties.
M

mulderwme

Gebruiker
Lid geworden
12 dec 2014
Berichten
210
Hallo allemaal,

Ik wil voorkomen dat gebruikers zich afvragen of er nu iets gebeurd of niet.
Is het mogelijk om op een form een labeltje te maken dat wanneer een proces loopt, bijv. als waarschuwing geeft: "Even geduld a.u.b."
En dan het liefst knippend.

Als extraatje zou ik dan het labeltje willen zien wanneer een proces na 2 seconden nog niet afgerond is.

groet
willem
 
Meestal duurt het proces door een knipperende waarschuwing juist langer.
Is het niet beter het proces te optimaliseren?
 
Test dit eens
(ben het wel eens met Alphamax)
Code: 
Application.ScreenUpdating = False
 Application.Cursor = xlWait
 Application.DisplayStatusBar = True
 'uw boodschap
Application.StatusBar = "Vooruit met de geit..."
 
'uw code hier
 
Application.Cursor = xlDefault
Application.StatusBar = False
Application.ScreenUpdating = True
 
Bedankt, gast0660, dat werkt.

Ik wilde de msg echter in een labeltje hebben. Met jouw idee kon ik wel verder

Ik heb er het volgende van gemaakt. Label1 onderaan een usderform. Ik maak het form hoger. Label kan default op Visible staan.
Aan het eind maak ik het form weer lager. Ik heb een wait ingebouwd omdat hij te snel door de code rolde.

Code: 
Me.Height = 185

'Label1.Visible = True
Label1.Caption = "*** Een ogenblik geduld ***"
Application.Wait (Now() + 0.00002)

'overige code hier

Me.Height = 160
'Label1.Visible = False

Alleen knippert hij nog niet. Maar dit is al prima.

Groet,
Willem
 
Als er toch beweging moet inzitten kan je hier misschien nog wat inspiratie uithalen:D
 

Bijlagen

  • label scroller.xlsb
    23,2 KB · Weergaven: 73
Knipper de knip:D
 

Bijlagen

  • vorm laten knipperen.xlsb
    17,4 KB · Weergaven: 85
Hallo gast0660,

Dat zijn allebei leuke oplossingen. Ik ga kijken of ik er een knipperend label van kan maken. Een combi van beide oplossingen.

Bedankt!

Willem
 
Bedankt, gast0660, je maakt het me zo wel erg makkelijk. Dit is wel precies wat ik bedoelde!

groet
Willem
 
Mooi zo:thumb:
Ik heb van al dat geknipper er bijna een epileptische aanval aan overgehouden.:eek:
 
Ha gast0660,

Hoe kan ik die kleurcodes maken? Zijn het HEX codes? Ik kan nergens vinden hoe ik die omzet.
Van Groen wil ik grijs maken. De kleur van het form, zodat het net is of het uit en aan gaat.
 
Bij de eigenschappen van uw userform BackColor staat de code
 
Ja idd. Ik wist dat ik het ergens gezien had. Nu heb ik zitten rommelen met gymp, maar dat ging dus niet.

Bedankt.
 
Snap ik het goed dat de processen (een aantal kolommen verwijderen) pas worden uitgevoerd wanneer hij klaar is met knipperen?
 
Hallo gast0660

Hierbij een bestandje.

Het verwijderen van een personeelslid werkt, maar het duurt lang. Excel loopt dus niet vast.

Groet
Willem
 

Bijlagen

  • Knipper-test.xlsm
    949,9 KB · Weergaven: 47
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan