Il codice in questione è il seguente, proviamo ad analizzarlo :

Public Class Form1
    Function timbra(ByRef img As Bitmap, ByRef timbro As Bitmap) As Bitmap
        Dim eg As Graphics
        timbra = New Bitmap(img.Width, img.Height)
        eg = Graphics.FromImage(timbra)
        eg.DrawImage(img, New Point(0, 0))
        eg.DrawImage(timbro, New Point((img.Width - timbro.Width) - 20, (img.Height - timbro.Height) - 20))
    End Function
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim timbro As Bitmap = New Bitmap("c:\tmp\timbro.png")
        Dim immagine As Bitmap = New Bitmap("c:\tmp\1.gif")
        Dim imgTimbrata As Bitmap = timbra(immagine, timbro)
        imgTimbrata.Save("c:\tmp\1t.jpg", Drawing.Imaging.ImageFormat.Jpeg)
    End Sub
End Class

La parte piu’ importante è la funzione Timbra la quale accetta due parametri di tipo bitmap e restituisce la nuova immagine modificata . Il primo parametro è l’immagine da timbrare mentre il secondo è il timbro da usare .

Function timbra(ByRef img As Bitmap, ByRef timbro As Bitmap) As Bitmap
        Dim eg As Graphics

Subito dopo la definizione della funzione , dichiariamo la variabile eg di tipo grapich, essa come abbiamo visto in un articolo precedente ( classe grapich ) si occupa della creazione e della modifica di immagini.

timbra = New Bitmap(img.Width, img.Height)

Timbra , la variabile di tipo bitmap , verrà restituita quando il codice della funzione sarà eseguito. Con questo pezzo di codice invochiamo il costruttore bitmap e dichiariamo le dimensioni della nuova immagine.

 eg = Graphics.FromImage(timbra)

Con Graphics.FromImage(timbra) passiamo il controllo dell’immagine timbra all’istanza della classe graphic eg .

eg.DrawImage(img, New Point(0, 0))
eg.DrawImage(timbro, New Point((img.Width - timbro.Width) - 20, (img.Height - timbro.Height) - 20))

Questa è la parte piu’ importante del codice e per capirla bene dovete sapere che DrawImage serve per copiare tutti i px di un immagine su un’altra immagine . La funzione , accetta due parametri, il primo parametro è l’immagine da copiare mentre il secondo sono le cordinate, x e y, dove incollare l’immagine .

Con queste due righe di codice non facciamo altro che duplicare l’immagine da timbrare e inserire l’immagine timbro in basso a destra .

I metodi della classe in questione sono tanti, proviamo ad analizzarne alcuni .

DrawLine(Pens.Olive, New Point(1, 1), New Point(100, 1))

La sintassi del metodo DrawLine è DrawLine(colore,punto di inizio,punto di fine) e serve a realizzare una linea

Se invece vogliamo disegnare un rettangolo occorre usare la funzione DrawRectangle(colore linea,x,y,larghezza,altezza)

Una visione a 360 gradi della classe grapch la trovate all’indirizzo http://msdn.microsoft.com/it-it/library/5y289054.aspx

Prima di concludere vi posto un semplice esempio di un progetto form con una picturebox

        Dim img As New Bitmap(500, 500)
        Dim eg As Graphics = Graphics.FromImage(img)
        eg.DrawLine(Pens.Olive, New Point(1, 1), New Point(100, 1))
        eg.DrawRectangle(Pens.Orange, New Rectangle(New Point(0, 0), New Size(100, 200)))
        PictureBox1.Image = img

Come potete notare dal codice, prima di inizializzare la classe graphics, occorre creare un oggetto bitmap specificando le dimensioni della nuova immagine .

Cliccare sulla linguetta .net e aggiungere la libreria Mysql.Data

L’applicazione che andremo a realizzare è costituita da 5 TextBox ,  4 label , 1 DataGridView e un Button.

( Accanto ad ogni textbox e button è presente il nome da dare all’elemento  )

Per correttezza e per rendere il codice più leggibile, inseriamo in testa al file form1.vb il comando per importare la libreria :

Imports MySql.Data.MySqlClient

Associamo la seguente sub quando l’utente clicca nel button Esegui :

Private Sub btn_start_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_start.Click
Dim connString As String = "Database=" & tb_database.Text & ";" & _
                         "Username=" & tb_user.Text & ";" &  _
                         "Password=" & tb_password.Text & ";" &  _
                         "Host=" & tb_host.Text & ";"
Dim conn As New MySqlConnection(connString)
Try
        conn.Open()
        Catch ex As MySqlException
            MsgBox("Errore nella connessione : " & ex.Message)
Finally
        Try
            Dim dataAdapter As New MySqlDataAdapter(tb_query.Text, conn)
            Dim table As New DataTable
            dataAdapter.Fill(table)
            DataGridView1.DataSource = table
            Catch ex As Exception
          MsgBox(ex.Message)
        End Try
End Try

Molto semplice vero ? Proviamo a commentare il codice per chi non è tanto pratico

Dim connString As String = "Database=" & tb_database.Text & ";" & _
                         "Username=" & tb_user.Text & ";" & _
                         "Password=" &  tb_password.Text & ";" & _
                         "Host=" & tb_host.Text & ";"

La variabile connString è una stringa che contiene i parametri per l’accesso al server mysql . Nel nostro caso i dati dovranno essere inseriti nelle 4 texbox in alto nel form .

Dim conn As New MySqlConnection(connString)

Conn è l’oggetto indispensabile per stabilire la connessione . Come parametro alla classe MysqlConnection passiamo la stringa creata precedentemente

Try
     conn.Open()
 
     Catch ex As MySqlException
            MsgBox("Errore nella connessione : " & ex.Message)

La funzione Open() prova a collegarsi all’host mysql specificato . Se qualcosa va storto viene visualizzato un messaggio con i dettagli dell’errore

Finally
    Try
         Dim dataAdapter As New MySqlDataAdapter(tb_query.Text, conn)
         Dim table As New DataTable
         dataAdapter.Fill(table)
         DataGridView1.DataSource = table
     Catch ex As Exception
         MsgBox(ex.Message)
     End Try
End Try
End Sub

Se la connessione al DB è avvenuta con successo creiamo l’oggetto dataAdapter e table . Quest’ultimo è un oggetto in grado di gestire i dati contenuti in una tabella . Con dataAdapter.Fill(table) non facciamo altro che memorizzare i dati restituiti dalla query mysql nell’oggetto table, infine segnaliamo al DataGridView1 di prelevare i dati nella tabella table Download progetto

In Visual Studio creiamo un nuovo progetto con interfaccia grafica e inseriamo una LinkLabel: uno speciale controllo che gestisce la visualizzazione dei link .

Nella casella proprietà, dopo aver selezionato il nuovo componente dal Form,  individuiamo l’attributo Text e inseriamo l’url del sito web .  Esempio : www.miositoweb.it

Facciamo doppio click sul LinkLabel e nella sub appena generata inseriamo il seguente codice :

System.Diagnostics.Process.Start("http://www.miositoweb.it")

Se vogliamo è possibile prelevare l’url direttamente dalla LinkLabel :

System.Diagnostics.Process.Start("http://" & sender.text)

Un esempio lampante è un programma che si collega a un database. L’utente deve modificare con facilità i dati per accedere al proprio database : host,user,password e database.

In visual studio disegniamo il seguente form con 4 texbox, 5 label e un button


Una tecnologia appropriata per questo scopo è certamente l’XML . Aggiungiamo un file xml al nostro progetto , andiamo in esplora soluzioni , “aggiungi nuovo elemento”, “file xml” e chiamiamolo con il nome di settings.xml

Nel file appena creato  aggiungiamo la seguente struttura :

<?xml version="1.0" encoding="utf-8" ?>
<Settings>
 <mysql>
 <server>myhost</server>
 <database>mydatabase</database>
 <user>myuser</user>
 <password>mypassword</password>
 </mysql>
</Settings>

Come ci colleghiamo al file xml ? Il framework .net mette a disposizione per noi sviluppatori la classe DataSet. Subito dopo la dichiarazione del form instanziamo la classe e impostiamo la patch del file settings.xml

Public Class frm_setting
Dim dbSet As New DataSet
Dim patch As String = Application.StartupPath + "\settings.xml"
...
...
End Class

Quando l’utente apre la finestra , le texbox devono contenere i valori memorizzati del file xml e quando clicca su Salva il file xml si deve aggiornare. Realizziamo quello che abbiamo appena scritto :

Private Sub frm_setting_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
dbSet.ReadXml(patch)
 txtServer.Text = dbSet.Tables("mysql").Rows(0).Item("server")
 txtDatabase.Text = dbSet.Tables("mysql").Rows(0).Item("database")
 txtPassword.Text = dbSet.Tables("mysql").Rows(0).Item("password")
 txtUser.Text = dbSet.Tables("mysql").Rows(0).Item("user")
End Sub
Private Sub btn_edit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_edit.Click
 dbSet.Tables("mysql").Rows(0).Item("server") = txtServer.Text
 dbSet.Tables("mysql").Rows(0).Item("user") = txtUser.Text
 dbSet.Tables("mysql").Rows(0).Item("password") = txtPassword.Text
 dbSet.Tables("mysql").Rows(0).Item("database") = txtDatabase.Text
 dbSet.WriteXml(patch)
End Sub

Con dbSet.Readml(patch) leggiamo il file xml e con dbSet.WriteXml(patch) salviamo i nuovi dati .

Download progetto

        ' Scrittura file TXT
        Dim file As String = "c:\p.txt"
        Dim sWriter As New IO.StreamWriter(file)
        sWriter.Write("Prova scrittura su file")
        sWriter.Close()
        ' Lettura file TXT
        Dim sReader As New IO.StreamReader(file)
        Dim testo = sReader.ReadToEnd
        sReader.Close()
        Console.WriteLine(testo)
        Console.ReadLine()

Il codice è molto banale . Se qualcuno ha qualche problema o dubbio sono a vostra disposizione

Scaricare un file da internet è davvero semplice. Ecco un esempio :

Sub main()
Try
  Dim webC As New Net.WebClient
  Dim patchFile As String = "http://www.google.it/intl/it_it/images/logo.gif"
  Dim filename As String = patchFile.Substring(patchFile.LastIndexOf("/") + 1)
  webC.DownloadFile(patchFile, filename)
Catch ex As Exception
  MsgBox(ex)
End Try
End Sub

1. Sto utilizzando un progetto console di visual studio. Sub Main è la routine principale . Viene invocata all’inizio del programma
2. Try..Catch..End Try è un importante costrutto per la gestione degli errori. Se all’interno di TRY si genera un errore , il programma non viene interrotto , ma viene eseguito il codice all’interno di CATCH
3. Instanziamo la classe Net.WebClient nell’oggetto  WebC
4. patchFile è l’indirizzo del file
5. filename è il nome del file . patchFile.LastIndexOf(“/”) restituisce la posizione dell’ultimo / . Con patchFile.Substring ritagliamo i caratteri che ci servono
6. DownloadFile è il cuore dello script . Come primo parametro occorre fornire l’indirizzo http del file. Il secondo parametro è invece l’indirizzo di destinazione

L’indirizzo di destinazione puo’ essere anche del tipo “C:\mydocument\nomefile.tipo”. Se passiamo solamante il nome del file, come nell’esempio sopra, il download viene salvato nella cartella bin del progetto (Visual Studio 2008\Projects\nameproject\nameproject\bin)