Πώς να κάνει μια προφύλαξη οθόνης σε Visual Basic 2010

Κάνοντας μια προφύλαξη οθόνης χρησιμοποιώντας το Visual Basic.NET 2010 μπορεί εύκολα να επιτευχθεί με τη χρήση ενός έργου Forms Windows. Στην VB.NET , μπορείτε να δημιουργήσετε ένα περιβάλλον εργασίας χρήστη με χειριστήρια για να κάνουν προφύλαξη οθόνης σας . Μπορείτε να χρησιμοποιήσετε ένα " πλαίσιο λίστας " ελέγχου για να φορτώσετε τις εικόνες που θέλετε να εμφανίσετε και " PictureBox " για να εμφανίσετε τις εικόνες . Για να ανανεώσετε το " PictureBox " , μπορείτε να χρησιμοποιήσετε ένα " Timer" ελέγχου για να φορτώσετε διαφορετικές εικόνες , ενώ η προφύλαξη οθόνης σας τρέχει . Οδηγίες
Η 1

την εφαρμογή Microsoft Visual Studio 2010 , κάντε κλικ στο " Αρχείο" και στη συνέχεια " New Project" ? Στη συνέχεια, αναπτύξτε " Visual Basic ". Κάντε κλικ στο "Windows" και κάντε διπλό κλικ στο " Windows Forms Application " για να δημιουργήσετε ένα νέο έργο . Κάντε διπλό κλικ στο " πλαίσιο λίστας " από το παράθυρο Toolbox για να προσθέσετε ένα νέο στοιχείο ελέγχου πλαισίου λίστας . Προσθέστε ένα " PictureBox " χρησιμοποιώντας την ίδια τεχνική . Κάντε διπλό κλικ στο " κουμπί" για να προσθέσετε ένα κουμπί στη φόρμα σας . 2

διπλό κλικ στη φόρμα για να δημιουργήσετε ένα συμβάν φόρτωσης της φόρμας και προσθέστε τον παρακάτω κώδικα για να συμπληρώσετε τη λίστα κουτί ελέγχου με το όνομα του οι εικόνες που βρέθηκαν :

For Each pic Όπως String Σε My.Computer.FileSystem.GetFiles _ ( imagesPath , FileIO.SearchOption.SearchTopLevelOnly , " * " ) ListBox1.Items.Add ( IO.Path.GetFileName ( pic ) ) NextTimer1.Interval = 2000PictureBox1.SizeMode = PictureBoxSizeMode.ZoomPictureBox1.Width = Me.WidthPictureBox1.Height = Me.Height
εικόνων 3

Ορίστε τη διαδρομή για τις εικόνες σας με την προσθήκη της ακόλουθης γραμμή κώδικα ως μια παγκόσμια μεταβλητή παραπάνω " Private Sub Form1_Load : "

Ιδιωτική imagesPath As String = " C : \\ εικόνες \\ "
Η 4

Επιστρέψτε για να σχηματίσουν άποψη σχεδιασμού και κάντε διπλό κλικ στο κουμπί για να δημιουργήσετε ένα συμβάν κλικ του κουμπιού . Προσθέστε τον ακόλουθο κώδικα για να ξεκινήσει το χρονόμετρο και να κρύψει το κουμπί και το στοιχείο ελέγχου πλαισίου λίστας :

ListBox1.Visible = FalseListBox1.SelectedIndex = 0Timer1.Start ( ) Me.Button1.Visible = False
Η 5

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

If Not ListBox1.SelectedIndex = ListBox1.Items.Count - 1 ThenListBox1.SelectedIndex + = 1PictureBox1.Image = Image.FromFile ( imagesPath & ListBox1.SelectedItem ) ElseListBox1.SelectedIndex = 0PictureBox1.Image = Image.FromFile ( imagesPath & ListBox1.SelectedItem ) End If
Η

6 Πατήστε το πλήκτρο " F5 " για να τρέξει το πρόγραμμα και να αρχίσει να τρέχει στην οθόνη σας προφύλαξη .
Η
εικόνων