|
Faire un économiseur d'écran en utilisant Visual Basic.NET 2010 peut facilement être accompli en utilisant un projet Windows Forms. Dans VB.NET , vous pouvez créer une interface utilisateur avec les contrôles pour faire votre économiseur d'écran. Vous pouvez utiliser un contrôle " ListBox " pour charger les images que vous souhaitez afficher et un " PictureBox " pour afficher les images. Pour actualiser la " PictureBox " vous pouvez utiliser un contrôle "Timer " pour charger différentes images pendant que votre économiseur d'écran est en marche. Instructions
1 Lancement de Microsoft Visual Studio 2010, cliquez sur " Fichier" puis "Nouveau projet" , puis développez Cliquez sur " Windows" et double-cliquez sur "Application Windows Forms " à " Visual Basic ". créer un nouveau projet. Double -cliquez sur " ListBox " dans le volet Boîte à outils pour ajouter une nouvelle liste de contrôle de zone . Ajouter un " PictureBox " en utilisant la même technique. Double- cliquez sur "Button " pour ajouter un bouton à votre formulaire .
2 Double- cliquez sur le formulaire pour créer un événement de chargement du formulaire et ajoutez le code suivant pour remplir la liste de contrôle de la boîte avec le nom de les images trouvées :
Pour chaque pic As String Dans 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 définir le chemin de vos images en ajoutant ce qui suit ligne de code comme une variable globale au-dessus de " Private Sub Form1_Load : "
imagesPath privé As String = " C: \\ images \\"
4 Revenez au mode Création de formulaire et double- cliquez sur le bouton pour créer un événement clic du bouton . Ajoutez le code suivant pour lancer le chronomètre et masquer le bouton et la liste de contrôle de la boîte:
ListBox1.Visible = FalseListBox1.SelectedIndex = 0Timer1.Start () = Faux Me.Button1.Visible
5 Double -cliquez sur le contrôle Timer pour créer un événement de tique. Ajoutez le code suivant pour afficher l'image en cours en utilisant le contrôle de la zone d'image :
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 Appuyez sur la touche "F5" pour exécuter le programme et lancer l'exécution de votre écran En savoir plus.
|
