Applicazione del 25-10-2011
Out-put grafico
Vb.net mette a disposizione tre oggetti per la visualizzazione grafica dell’out-put:
1) PictureBox
Consente di visualizzare immagini nella propria applicazione, le immagini possono essere già esistenti oppure possono essere create e successivamente caricate; la proprietà image permette di caricare immagini da un file con la funzione fromfile o dalle risorse con la funzione My.Resources.
2) BitMap
E’ la superficie sulla quale si va a disegnare, è l’immagine fatta di pixel;
-
Creare il Bitmap
Dim bitmap as new Bitmap (x,y)
– X è la larghezza del BitMap
– Y è l’ altezza del BitMap
3) Graphics
E’ l’oggetto che fornisce tutti i metodi per poter disegnare sul BitMap.
-
Creare il Graphics
Dim g as Graphics= Graphics.FromImage(bitmap)
g. […] permette di visualizzare tutti i metodi a disposizione del graphics;
Ad esempio g.DrawRectangles() crea una serie di rettangoli.
Creare una immagine
Per creare una immagine, ad esempio rettangolo, vb.net mette a disposizione diversi metodi, tra i quali:
1. Dim rettangolo As New Rectangle(10, 10, 100, 50)
g.DrawRectangle(Pens.DarkBlue, rettangolo)
– (10,10) indicano la posizione nel Bitmap dell’angolo in alto a sinistra
–100 è la larghezza del rettangolo
– 50 è la altezza del rettangolo
– Pens.DarkBlue è il colore della penna e quindi del rettangolo
2. Dim penna As New Pen(Color.Pink, 4)
g.DrawRectangle(penna, 50, 50, 100, 50)
– Color.Pink è il colore della penna
– 4 sono i pixel, ossia la grandezza della penna
L’oggetto pen può essere istanziato , come abbiamo visto, oppure si possono usare penne messe già a disposizione dal linguaggio (Pens.blue).
Programma:
– Si crea un form al quale vengono applicati:
- Bottone: utilizzando l’applicazione “Button” dalla casella degli strumenti;
- PictureBox: utilizzando l’applicazione “PictureBox” dalla casella degli strumenti;
– Creazione dell’immagine
Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ‘creazione del Bitmap’ Dim bitmap As New Bitmap(800, 600) ‘creazione del graphics’ Dim g As Graphics = Graphics.FromImage(bitmap) ‘impostazione background: riempe l’area interna di un rettangolo specificato,’ ‘l’oggetto brush determina le caratteristiche del riempimento, in questo caso il colore’ g.FillRectangle(Brushes.White, New Rectangle(0, 0, bitmap.Width, bitmap.Width)) ‘creazione dell’rettangolo’ ‘primo modo:’ Dim rettangolo As New Rectangle(10, 10, 200, 50) g.DrawRectangle(Pens.DarkViolet, rettangolo) ‘secondo modo:’ ‘penna personalizzata’ Dim penna As New Pen(Color.Pink, 4) ‘4 sono i pixel ossia la grandezza della penna’ g.DrawRectangle(penna, 50, 50, 200, 50)Download dell’applicazione
http://www.megaupload.com/?d=GGV2SBIX
Creare una immagine in movimento
Costruire due rettangoli, uno si muove in orizzontale e l’altro in verticale.
Programma:
– Si crea un form al quale vengono applicati:
- Timer: utilizzando l’applicazione “Timer” dalla casella degli strumenti.
- PictureBox: utilizzando l’applicazione “PictureBox” dalla casella degli strumenti.