Private Shared Function SetCursorpos (Byval X als Ganzzahl, Byval y als Ganzzahl) als Boolescher
Endfunktion
Private Kreise als neue Liste (Rechteck)
Privat RND als neuer Zufall ()
Private sub myscreensaver_load (Absender als Objekt, e as eventArgs) verarbeitet MyBase.load
'Legen Sie die Hintergrundfarbe ein
Me.backcolor =color.black
'Setzen Sie Formulareigenschaften für Vollbildmaterial
Me.formborderSyle =formborderSyle.none
Me.top meiste =true
Me.windowState =formstate.maximized
'Timer für Animation starten
Timer1.Start ()
Ende sub
Private sub timer1_tick (Absender als Objekt, e as EventArgs) Timer1.tick übernimmt
'Ungültig, um Lackierereignisse auszulösen
Me.invalidate ()
Ende sub
Private sub myscreensaver_paint (Absender als Objekt, e as PainteventArgs) verarbeitet MyBase.paint
'Vorhandene Kreise löschen
Kreise.Clear ()
'Erstellen Sie neue zufällige Kreise
Für i als Integer =0 bis 10 'Anpassung der Anzahl der Kreise hier
Dimgröße als Ganzzahl =RND.NEXT (20, 80) 'Einstellen von Kreisgrößenbereich
Dim x als Integer =Rnd.Next (0, me.width - Größe)
Dim y als Integer =Rnd.Next (0, me.height - Größe)
circles.add (neues Rechteck (x, y, Größe, Größe))
Nächste
'Zeichnen Sie Kreise
Verwenden Sie G as Graphics =e.graphics
G.SmoothingMode =SmoothingMode.antialias
Für jedes Rechteck als Rechteck in Kreisen
Verwenden Sie Pinsel als Solidbrush =New SolidBrush (color.fromargb (Rnd.Next (256), Rnd.Next (256), Rnd.Next (256)) 'zufällige Farbe
G. -Fillellipse (Pinsel, RECT)
Enden mithilfe
Nächste
Enden mithilfe
Ende sub
Private sub myscreensaver_mousemove (Absender als Objekt, E als MouseEventArgs) verarbeitet MyBase.mousemove
'Beenden Sie auf Mausbewegung
Me.close ()
Ende sub
Private sub myscreensaver_keydown (Absender als Objekt, E als KeyEventArgs) übernimmt MyBase.Keydown
'Beenden Sie auf Taste Presse
Me.close ()
Ende sub
'Verhindern, dass Bildschirmschoner aktiviert wird, während dies ausgeführt wird
Geschützte Überschreibungen subaktiviert (e als EventArgs)
Mybase.onaktiviert (e)
SetCursorpos (me.width \ 2, me.height \ 2)
Ende sub
Endklasse
`` `
kompilieren und möglicherweise bereitstellen dies:
1. Erstellen Sie ein neues VB.NET Windows Forms App -Projekt.
2. Ersetzen Sie den Code des Standardformulars durch den obigen Code.
3. Fügen Sie dem Formular eine Timer -Steuerung (Timer1) hinzu.
4. das Projekt kompilieren. Dadurch wird eine ausführbare Datei (.exe) erstellt.
als Bildschirmschoner bereitgestellt: Dies ist * wesentlich * komplexer und erfordert das Verständnis von Bildschirmschoner -Bereitstellungsmechanismen (die über Windows -Versionen variieren). In der Regel müssen Sie ein Installationsprojekt (z. B. mit dem Setup -Projekt von Visual Studio) erstellen, das Registrierungseinträge und Dateiplatzierung zur Integration Ihres .exe als ordnungsgemäße Bildschirmschoner -Option in Windows integrieren. Der Installationsprogramm muss die ausführbare Datei mit dem Windows -Bildschirmschoner -System registrieren. Es sind Tutorials und Ressourcen online verfügbar, um Sie durch den Bildschirmschoner -Bereitstellungsprozess zu führen. Die Suche nach "VB.NET -Bildschirmschoner -Bereitstellung" ist hilfreich. Dieser Schritt geht über den Umfang eines einfachen Codebeispiels hinaus.
Wichtige Überlegungen:
* Fehlerbehandlung: Der bereitgestellte Code fehlt eine robuste Fehlerbehandlung. Ein produktionsbereitete Bildschirmschoner müsste robustere Fehlerprüfungen erfordern.
* Leistung: Bei sehr hohen Auflösungen oder vielen Kreisen benötigen Sie möglicherweise Optimierungstechniken, um eine reibungslose Bildrate aufrechtzuerhalten.
* Anpassung: Sie können das Erscheinungsbild problemlos ändern, indem Sie die Kreisgröße, Farbe und Anzahl ändern. Es könnten auch ausgefeiltere Grafiken implementiert werden.
Denken Sie daran, dass die Verteilung eines Bildschirmschoners eine sorgfältige Berücksichtigung der Lizenzierung und potenziellen Sicherheitsprobleme erfordert. Testen Sie Ihren Bildschirmschoner gründlich, bevor Sie ihn verteilen.
