Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
`` `vb.net
Importovať systém
Importuje System.Drawing
Imports System.Drawing.Drawing2d
Imports System.Windows.Forms
Imports System.Runtime.Interopservices
Verejná trieda myScreensaver
'Declate funkciu API, aby ste zabránili aktivácii obrazovky Screensaver
Súkromné zdieľané funkcie setCurpos (ByVal x ako celé číslo, ByVal y ako celé číslo) ako boolean
Koncová funkcia
Súkromné kruhy ako nový zoznam (obdĺžnika)
Súkromné RND ako nový náhodný ()
Private subscreensaver_load (odosielateľ ako objekt, e ako eventArgs) spracováva MyBase.Load
„Nastavte farbu pozadia
Me.backcolor =color.black
„Nastavte vlastnosti formulára pre celú obrazovku
Me.formBordersTyle =formBorderstyle.none
Me.topost =true
Me.WindowState =FormState.maximalizované
„Spustite časovač pre animáciu
Časovač1.start ()
Koncový
Private Sub Timer1_tick (odosielateľ ako objekt, e ako EventArgs) Rieši časovač1.tick
'Inplaidte na spustenie udalosti maľovania
Me.inValidate ()
Koncový
Súkromný subscreensaver_paint (odosielateľ ako objekt, e ako paintevenTargs) rieši mybase.Paint
„Vyčistite existujúce kruhy
kruhy.Clear ()
„Vytvorte nové náhodné kruhy
Pre I ako celé číslo =0 až 10 'upravte počet kruhov tu
Dim veľkosť ako celé číslo =rnd.next (20, 80) 'Nastavte rozsah veľkosti kruhu
Dim x ako Integer =rnd.next (0, me.width - veľkosť)
Dim y ako Integer =rnd.next (0, me.height - veľkosť)
kruhy.add (nový obdĺžnik (x, y, veľkosť, veľkosť))
Najbližší
„Nakreslite kruhy
Použitie g ako grafika =e.graphics
g.SmoothingMode =SmoothingMode.antialias
Pre každý rektívny ako obdĺžnik v kruhoch
Použitie kefy ako Solidbrush =new Solidbrush (color.fromArgb (rnd.next (256), rnd.next (256), rnd.next (256))) 'náhodná farba
g.fillelipse (kefa, rect)
Ukončiť
Najbližší
Ukončiť
Koncový
Súkromný subscreensaver_mousemove (odosielateľ ako objekt, e ako myšeVentArgs) manipuluje s mybase.mousemove
„Výstup na pohyb myši
Me.close ()
Koncový
Súkromné subscreensaver_keydown (odosielateľ ako objekt, e ako keyEvenTargs) sa zaoberá mybase.keydown
„Exit na tlačidle stlačte
Me.close ()
Koncový
„Zabráňte aktivácii Screensaver v aktivácii
Chránené prepísanie sub onaktivovaných (e ako eventArgs)
MyBase.Onactivované (e)
SetCursorpos (me.width \ 2, me.height \ 2)
Koncový
Koncová trieda
`` `
Zostaviť a potenciálne nasadiť toto:
1. Vytvorte nový projekt aplikácie VB.NET Windows Forms.
2. Nahraďte kód predvoleného formulára vyššie uvedeným kódom.
3. Pridajte do formulára ovládací prvok časovača (Timer1).
4. Zostavte projekt. Tým sa vytvorí spustiteľný súbor (.exe).
nasadiť ako obrazovky: Toto je * výrazne * zložitejšie a vyžaduje si pochopenie mechanizmov nasadenia obrazovky (ktoré sa líšia v rámci verzií Windows). Zvyčajne by ste potrebovali vytvoriť inštalačný projekt (napr. Používanie projektu Visual Studio's Setup Project), ktorý spracováva položky registra a umiestnenie súborov, aby ste integrovali váš .exe ako správnu možnosť obrazovky v systéme Windows. Inštalátor musí zaregistrovať spustiteľné prispôsobiteľné v systéme Scindowser Scindment Scindment. Existujú návody a zdroje k dispozícii online, ktoré vás prevedú procesom nasadenia obrazovky; Užitočné bude hľadanie „nasadenia obrazovky vb.net“. Tento krok presahuje rozsah jednoduchého príkladu kódu.
Dôležité úvahy:
* Manipulácia s chybami: Poskytovaný kód nemá robustné spracovanie chýb. Screensaver pripravený na výrobu by si vyžadoval robustnejšie kontroly chýb.
* Výkon: Pre veľmi vysoké rozlíšenie alebo mnoho kruhov môžete potrebovať optimalizačné techniky, aby ste udržali hladkú snímkovú frekvenciu.
* Prispôsobenie: Vzhľad môžete ľahko zmeniť úpravou veľkosti, farby a čísla kruhu. Je možné implementovať aj sofistikovanejšiu grafiku.
Pamätajte, že distribúcia obrazovky si vyžaduje dôkladné zváženie licenčných problémov a potenciálnych bezpečnostných problémov. Pred rozdelením dôkladne otestujte svoj obrazovky.