Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Programmeren

Screensaver zelf starten

CDirk
6 antwoorden
  • Om een toepassing in excell wat te beschermen heb ik de screensaver ingesteld met een paswoord. Maar ik zou nu graag in een dialoogvenster een knop voorzien waarmee je zelf de screensaver kan starten.
    Mijn vraag is nu hoe de actieve screensaver kan gestart worden (vanuit VBA excell).
  • [quote:0b1ef4c1a1]Question - How to Invoke a Screen Saver with a Windows Message.
    Answer - Here is how to invoke a screen saver directly. [/quote:0b1ef4c1a1]

    [code:1:0b1ef4c1a1]'Declare the SendMessage function. (Remember keep it on one line!)
    Declare Function SendMessage Lib "User" (ByVal hWnd, ByVal wMsg,

    ByVal wParam, lParam As Any) As Long

    'Declare the constants we'll need
    Global Const WM_SYSCOMMAND = &H112
    Global Const SC_SCREENSAVE = &HF140

    'Put this wherever you need to invoke the screen saver

    Dim result As Long
    result = SendMessage(Form1.hWnd, WM_SYSCOMMAND, SC_SCREENSAVE, 0&)[/code:1:0b1ef4c1a1]

    Bronpagina

    Google pagina
  • Misschien niet helemaal een wenselijk antwoord, :D

    Er is niets leukers dan het zelf programmeren .. :P

    Maar volgens mij kun je ook gewoon een snelkoppelling maken naar de gebruikte screensaver :

    En deze eventueel verplaatsen naar je taakbalk net naast de knop start,
    Zodat hij altijd in beeld is,
    en met een druk op het icoontje op te starten is.

    Met vriendlijke groet,
    Growskunk :wink:
  • Verdomd! :wink:

    Zelf nu ook gedaan, wel handig als ik weer eens van mijn plek ben hier op't werk.
  • :D

    Smart thinking,

    Isn't it !




    [i:297e4e6d6a]….Ergens TRRRROTS op zijn ![/i:297e4e6d6a] :lol:
  • Aan een snelkoppeling had ik nog niet gedacht. Ga alvast eens proberen met die routine, lukt het niet dan maar de snelkoppeling.
    Alvast bedankt voor de reactie.

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.