ScreenSaver a Visual Basic - Builder.cz - Informacni server o programovani

Odběr fotomagazínu

Fotografický magazín "iZIN IDIF" každý týden ve Vašem e-mailu.
Co nového ve světě fotografie!

 

Zadejte Vaši e-mailovou adresu:

Kamarád fotí rád?

Přihlas ho k odběru fotomagazínu!

 

Zadejte e-mailovou adresu kamaráda:



Visual Basic

ScreenSaver a Visual Basic

2. května 2000, 00.00 | Vytvořit ScreenSaver ve Visual Basicu není nic obtížného. Základními prvky jsou Hlavní Form na kterém se bude celý průběh šetřiče odehrávat...

Vytvořit ScreenSaver ve Visual Basicu není nic obtížného. Základními prvky jsou Hlavní Form na kterém se bude celý průběh šetřiče odehrávat. Preview Form, který je vidět na malé obrazovce v dialogu Spořič Obrazovky a také Konfigurační Form, kde si budete moci nakonfigurovat svůj šetřič.

Celý šetřič je spustitelný soubor .exe přejmenovaný na .scr.

1) začátek

ve Visual Basicu si vytvořte 3 formy (frmMain, frmPreview, frmConfigure) a jeden modul (modScreenSaver). Ve vlastnostech projektu ve složce "General" nastavte "Startup Object" jako SubMain. Spouštěcí procedura nebude hlavní form jako to bývá, ale procedura Main(), která bude obsluhovat příkazy příkazové řádky ke spuštění, konfiguraci či preview šetřiče.

Tyto příkazy získáte z funkce Command()

jsou to:

"/s"        spustit šetřič
"/p" <hwnd> spustit šetřič v okně preview 
            ve vlastnostech obrazovky/šetřiče.
"/c" <hwnd> spustit konfigurační dialog
"/a"        ukázat dialog na heslo šetřiče
<hwnd> je handle okna, které vyvolává příkaz.

procedura Main() by měla vypadat asi takto:
Public Sub Main()
Dim mParam As String
Dim mCommand As String
Dim mhwnd As Long
Dim mPrev As Long

    ' parametr příkazové řádky
    mCommand = Command()
    mParam = UCase(Left(mCommand, 2))

    
    Select Case mParam
    Case "/S"

    Case "/C"

    Case "/A"

    Case "/P"
 
    End Select
End Sub
2) důležité funkce které šetřič musí ovládat.

Při událostech MouseDown, MouseMove, Click, Double Click, KeyPress, KeyDown musí se ukončit šetřič

Zakázat vícekrát spuštění šetřiče než 1krát.
    Nelze použít funkci App.PrevInstance, jelikož při zobrazení šetřiče v Preview okně dialogu šetřičů je již jednou spuštěn a tak by nemohl být spuštěn při stisku tlačítka náhled.
Číst z registru, zda-li je ukončení šetřiče podmíněno vložením hesla.

Zakázat klávesové zkratky Ctrl-Alt-Del, Ctrl-Esc a Alt-Tab
SystemParametersInfo SPI_SCREENSAVERRUNNING, 1, 0, 0
Okno šetříče stále nahoře
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE

Skrýt a znovu odkrýt kursor
    ShowCursor True/False

3) vytvořit animaci,
která bude spuštěna po startu a bude se odehrávat na hlavním okně či preview okně.

4) vytvořit konfigurační dialog pro šetřič.
Hodnoty je nejlepší ukládat do registru.

5) zkompilovat, přejmenovat na *.scr a zkopírovat do adresáře windows/system

to je vše. Příklad šetřiče vytvořeného ve Visual Basicu, který všechny tyto funkce ovládá můžete stáhnou ze stránky věnované Visual Basicu (http://vbasic.zde.cz) a to přímo zde (http://vbasic.zde.cz/download/screensaver.zip nebo https://www.builder.cz/data/screensaver.zip)

Tématické zařazení:

 » Rubriky  » Visual Basic  

 » Rubriky  » Windows  

 

 

 

Nejčtenější články
Nejlépe hodnocené články

 

Přihlášení k mému účtu

Uživatelské jméno:

Heslo: