Πηγητικός κώδικας για το σχεδιασμό μιας προφύλαξης οθόνης στο VB;

Αυτός ο κώδικας VB.NET δημιουργεί μια απλή προφύλαξη οθόνης που εμφανίζει τυχαία μεγέθους και τοποθετημένους κύκλους. Περιλαμβάνει χαρακτηριστικά για την ανίχνευση της κίνησης του ποντικιού για έξοδο και χειρίζεται τις απαραίτητες ιδιότητες οθόνης. Θυμηθείτε ότι η ανάπτυξη μιας προφύλαξης οθόνης απαιτεί πρόσθετα βήματα πέρα από την απλή κατάρτιση του κώδικα. Θα χρειαστεί να δημιουργήσετε ένα πρόγραμμα εγκατάστασης οθόνης.

`` vb.net

Εισαγωγικό σύστημα

Εισαγωγές System.Drawing

Εισαγωγές System.Drawing.Drawing2D

Εισαγωγές System.Windows.forms

Εισαγωγές System.Runtime.Interopservices

Δημόσια τάξη myscreensaver

«Δηλώστε τη λειτουργία API για να αποτρέψετε την ενεργοποίηση της προφύλαξης οθόνης

Ιδιωτική κοινή λειτουργία setcursorpos (byval x ως ακέραιος, byval y ως ακέραιος) ως boolean

Τελική λειτουργία

Ιδιωτικοί κύκλοι ως νέος κατάλογος (του ορθογωνίου)

Ιδιωτικό RND ως νέο Random ()

Ιδιωτική υπο -myscreensaver_load (αποστολέας ως αντικείμενο, e ως eventArgs) χειρίζεται mybase.load

'Ρυθμίστε το χρώμα φόντου

Me.backcolor =color.black

«Ρυθμίστε τις ιδιότητες φόρμας για πλήρη οθόνη

Me.formborderstyle =formborderstyle.none

Me.topmost =true

Me.windowState =formState.Maximized

«Ξεκινήστε το χρονοδιακόπτη για κινούμενα σχέδια

Timer1.start ()

Τερματισμός

Ιδιωτικό sub timer1_tick (αποστολέας ως αντικείμενο, e ως eventArgs) χειρίζεται το timer1.tick

«Απενεργοποιήστε την ενεργοποίηση του γεγονότος βαφής

Me.inValidate ()

Τερματισμός

Ιδιωτικό sub myscreensaver_paint (αποστολέας ως αντικείμενο, e ως painteventargs) χειρίζεται mybase.paint

«Καθαρίστε τους υπάρχοντες κύκλους

circles.clear ()

«Δημιουργήστε νέους τυχαίους κύκλους

Γιατί εγώ ως ακέραιος =0 έως 10 'προσαρμόστε τον αριθμό των κύκλων εδώ

Το μέγεθος του Dim ως ακέραιος

Dim x As Integer =rnd.Next (0, me.width - μέγεθος)

Dim y ως ακέραιος

Circles.add (νέο ορθογώνιο (x, y, μέγεθος, μέγεθος))

Επόμενος

«Σχεδιάστε κύκλους

Χρήση G ως γραφικά =e.graphics

g.smoothingMode =smoothingMode.Antialias

Για κάθε ορθογώνιο ως ορθογώνιο σε κύκλους

Χρήση της βούρτσας ως SolidBrush =New SolidBrush (Color.FromarGB (RND.NEXT (256), RND.NEXT (256), RND.NEXT (256))) 'Τυχαίο χρώμα

G.Fillellipse (βούρτσα, ορθό)

Τελειώστε τη χρήση

Επόμενος

Τελειώστε τη χρήση

Τερματισμός

Ιδιωτική υπο -myscreensaver_mousemove (αποστολέας ως αντικείμενο, e ως mouseeventargs) χειρίζεται mybase.mousemove

«Έξοδος στην κίνηση του ποντικιού

Me.close ()

Τερματισμός

Ιδιωτική υπο -myscreensaver_keydown (αποστολέας ως αντικείμενο, e ως keyeventargs) χειρίζεται mybase.keydown

«Έξοδος στο πλήκτρο

Me.close ()

Τερματισμός

«Αποτρέψτε την ενεργοποίηση της προφύλαξης οθόνης, ενώ αυτό λειτουργεί

Προστατευμένες παρακάμψεις υπο -ενεργοποιημένες (e ως eventArgs)

Mybase.onactivated (e)

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

Τερματισμός

Τελική τάξη

`` `

για να συντάξετε και ενδεχομένως να αναπτύξετε αυτό:

1.

2. Αντικαταστήστε τον κωδικό προεπιλεγμένου τύπου με τον παραπάνω κωδικό.

3. Προσθέστε ένα έλεγχο χρονοδιακόπτη (timer1) στη φόρμα.

4. Συγκεντρώστε το έργο. Αυτό θα δημιουργήσει ένα εκτελέσιμο αρχείο (.exe).

Για να αναπτυχθεί ως προφύλαξη οθόνης: Αυτό είναι * σημαντικά * πιο περίπλοκο και απαιτεί κατανόηση μηχανισμών ανάπτυξης οθόνης (οι οποίοι ποικίλλουν μεταξύ των εκδόσεων των Windows). Θα χρειαστεί συνήθως να δημιουργήσετε ένα έργο εγκατάστασης (π.χ., χρησιμοποιώντας το έργο εγκατάστασης του Visual Studio) που χειρίζεται τις καταχωρήσεις μητρώου και την τοποθέτηση αρχείων για να ενσωματώσετε το .exe σας ως κατάλληλη επιλογή screensaver μέσα στα Windows. Το πρόγραμμα εγκατάστασης πρέπει να καταχωρήσει το εκτελέσιμο με το σύστημα οθόνης προβολής των Windows. Υπάρχουν μαθήματα και πόροι που διατίθενται στο διαδίκτυο για να σας καθοδηγήσουν μέσω της διαδικασίας ανάπτυξης οθόνης. Η αναζήτηση για "VB.NET Screensaver Deployment" θα είναι χρήσιμη. Αυτό το βήμα είναι πέρα από το πεδίο εφαρμογής ενός απλού παράδειγμα κώδικα.

Σημαντικές εκτιμήσεις:

* Χειρισμός σφαλμάτων: Ο παρεχόμενος κώδικας δεν διαθέτει ισχυρό χειρισμό σφαλμάτων. Μια προφύλαξη οθόνης έτοιμων για παραγωγή θα χρειαζόταν πιο ισχυρούς ελέγχους σφαλμάτων.

* απόδοση: Για πολύ υψηλές αναλύσεις ή πολλούς κύκλους, ίσως χρειαστεί τεχνικές βελτιστοποίησης για να διατηρήσετε έναν ομαλό ρυθμό καρέ.

* Προσαρμογή: Μπορείτε εύκολα να αλλάξετε την εμφάνιση τροποποιώντας το μέγεθος του κύκλου, το χρώμα και τον αριθμό. Θα μπορούσαν επίσης να εφαρμοστούν πιο εξελιγμένα γραφικά.

Θυμηθείτε ότι η διανομή μιας προφύλαξης οθόνης απαιτεί προσεκτική εξέταση της αδειοδότησης και των πιθανών ζητημάτων ασφάλειας. Δοκιμάστε διεξοδικά την προφύλαξη οθόνης πριν τη διανείμετε.