Applicazione dell’ 11-10-2011
Esercizio: mostrare un form cariando delle immagini che cambino ogni tot secondi. Creare un secondo form nel quale ci sia un servizio sveglia
1. Si crea un form al quale vengono applicati:
- Bottone: utilizzando l’applicazione “Button” dalla casella degli strumenti;
- Timer: utilizzando l’applicazione “Timer” dalla casella degli strumenti;
- Immagine: utilizzando l’applicazione “PictureBox” dalla casella degli strumenti;
- Ora: utilizzando l’applicazione “DateTimePicture” dalla casella degli strumenti (modificando nelle proprietà il formato e impostarlo come “Time”);
2. Si caricano nel programma le immagini che si vogliono far alternare nel form:
My progetc – Risorse – Aggiungi Risorsa- Aggiungi File esistente
Programma:
Public Class Form1‘quando si carica il form 1 si mette subito il timer: ‘
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load‘comando che fa partire il timer all’avvio del form1:’
Me.Timer1.Start() MessageBox.Show(“svegliaaaaaa”, “sveglia”, MessageBoxButtons.OK) End Sub‘dichiarazione del contatore:’
Public contatore As Integer‘dichiarazione dell’ evento tick:’
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick‘inizializzazione del contatore:’
Me.contatore += 1 Select Case Me.contatore Case Is = 1‘carica l’immagine che è stata memorizzata nelle risorse:’
Me.PictureBox1.Image = My.Resources.castel_dellovo_napoli Case Is = 2 Me.PictureBox1.Image = My.Resources.napoli_b100824b_big Case Is = 3 Me.PictureBox1.Image = My.Resources.Napoli_maschio_angioino Case Is = 4 Me.PictureBox1.Image = My.Resources.napoli2‘ per far ricominciare lo scorrimento delle immagini si impone il contatore uguale a zero:’
Me.contatore = 0 End Select End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub PictureBox1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs).Handles PictureBox1.Click End Sub End Class