Rubriky
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:
Seriály
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.
Zakázat klávesové zkratky Ctrl-Alt-Del, Ctrl-Esc a Alt-Tab
SystemParametersInfo SPI_SCREENSAVERRUNNING, 1, 0, 0Okno š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)
Nejčtenější články
-
25. listopadu 2012
-
30. srpna 2002
-
10. října 2002
-
4. listopadu 2002
-
12. září 2002
Nejlépe hodnocené články
-
25. listopadu 2012
-
28. července 1998
-
31. července 1998
-
28. srpna 1998
-
6. prosince 2000
-
27. prosince 2007
-
4. května 2007
