Codice sorgente per progettare uno screensaver in VB?

Questo codice VB.NET crea un semplice screensaver che visualizza i cerchi di dimensioni casuali e posizionate. Include caratteristiche per rilevare il movimento del mouse per uscire e gestire le proprietà di screensaver necessarie. Ricorda che la distribuzione di uno screensaver richiede ulteriori passaggi oltre la semplice compilazione del codice; Dovrai creare un installatore di screensaver.

`` `VB.NET

Sistema di importazioni

Importa System.Drawing

Importa System.Drawing.Drawing2D

Importa System.Windows.forms

Importa System.Runtime.Interopservices

Classe pubblica MyScreensaver

'Dichiarare la funzione API per impedire l'attivazione dello screensaver

Funzione condivisa privata setCursorPos (byval x come intero, byval y come intero) come booleano

Funzione di fine

Cerchi privati ​​come nuovo elenco (del rettangolo)

RND privato come nuovo casuale ()

Private sub myscreensaver_load (mittente come oggetto, e come eventargs) gestisce mybase.load

'Imposta il colore di sfondo

Me.backColor =color.black

'Imposta proprietà del modulo per schermo intero

Me.FormBordersTyle =FormBorderstyle.none

Me.Top Most =true

Me.WindowState =formState.Maximized

'Avvia timer per l'animazione

Timer1.start ()

Fine sub

Private sub timer1_tick (mittente come oggetto, e come eventArgs) gestisce timer1.tick

'Invalidare per innescare l'evento di verniciatura

Me.invalidate ()

Fine sub

Privato sub myscreensaver_paint (mittente come oggetto, e come pipteventargs) gestisce mybase.paint

'Cancella cerchi esistenti

cerchi.Clear ()

'Crea nuovi cerchi casuali

Per i come intero =da 0 a 10 'Regola numero di cerchi qui

Dimensione Dim come intero =rnd.next (20, 80) 'REGOLA LA DIMENSIONE DELLA DESIZIONE

Dim x come integer =rnd.next (0, me.width - size)

Dim y come integer =rnd.next (0, me.height - dimensione)

cerchi.add (nuovo rettangolo (x, y, dimensioni, dimensioni))

Prossimo

'Disegna cerchi

Usando G come grafica =E.GRAPHICS

G.SmoothingMode =SmoothingMode.Antiasia

Per ogni retto come rettangolo in cerchi

Usando il pennello come SolidBrush =new SolidBrush (color.fromargb (rnd.next (256), rnd.next (256), rnd.next (256)) "Colore casuale

G.Fidellipse (pennello, retto)

Terminare usando

Prossimo

Terminare usando

Fine sub

Privato sub myscreensaver_mousemove (mittente come oggetto, e come mouseeventargs) gestisce mybase.mousemove

'Uscita sulla mossa del mouse

Me.close ()

Fine sub

Privato sub myscreensaver_keydown (mittente come oggetto, e come keyeventargs) gestisce mybase.keydown

'Esci al tasto Premere

Me.close ()

Fine sub

'Impedire l'attivazione di screensaver mentre questo è in esecuzione

Sostituzione protetta subnactivated (E come eventArgs)

Mybase.onactivated (e)

SetCursorPos (me.width \ 2, me.height \ 2)

Fine sub

Classe di fine

`` `

per compilare e distribuire potenzialmente:

1. Crea un nuovo progetto di app per moduli Windows VB.net.

2. Sostituire il codice del modulo predefinito con il codice sopra.

3. Aggiungi un controllo del timer (timer1) al modulo.

4. Compilare il progetto. Questo creerà un file eseguibile (.exe).

da distribuire come screensaver: Questo è * significativamente * più complesso e richiede la comprensione dei meccanismi di distribuzione dello screensaver (che variano tra le versioni di Windows). In genere dovresti creare un progetto di installazione (ad esempio, utilizzando il progetto di configurazione di Visual Studio) che gestisce le voci di registro e il posizionamento dei file per integrare il tuo .exe come opzione corretta da screensaver all'interno di Windows. Il programma di installazione deve registrare l'eseguibile con il sistema di screenSaver di Windows. Ci sono tutorial e risorse disponibili online per guidarti attraverso il processo di distribuzione dello screensaver; Sarà utile la ricerca di "Distribuzioni di screensaver VB.NET". Questo passaggio va oltre lo scopo di un semplice esempio di codice.

Considerazioni importanti:

* Gestione degli errori: Il codice fornito manca di una robusta gestione degli errori. Uno screensaver pronto per la produzione avrebbe bisogno di controlli di errore più solidi.

* Performance: Per risoluzioni molto alte o molti cerchi, potrebbe essere necessario tecniche di ottimizzazione per mantenere una frequenza di frame regolare.

* Personalizzazione: Puoi facilmente cambiare l'aspetto modificando la dimensione del cerchio, il colore e il numero. Potrebbe anche essere implementata una grafica più sofisticata.

Ricorda che la distribuzione di uno screensaver richiede un'attenta considerazione delle licenze e potenziali problemi di sicurezza. Testa accuratamente lo screensaver prima di distribuirlo.

• Quali sono i vantaggi del software open source? 
• Quali sono le sfide del software open source?