mario.deghetto

[VB.NET] Aggiungere una “filigrana” a un’immagine

Avete la necessità di aggiungere del testo a un’immagine (tecnicamente una “filigrana” o “watermark”)? Per esempio per un’immagine pubblicitaria…

Niente di più facile!

1. Create un nuovo progetto
2. aggiungete tre controlli: un PictureBox, un TextBox e un Button
3. modificate la proprietà Image del controllo PictureBox per importare il vostro file contenente l’immagine
4. inserite il codice seguente nel gestore dell’evento Click del pulsante:

Public Class Form1
    Private Sub Button1_Click(
                ByVal sender As System.Object,
                ByVal e As System.EventArgs) _
                Handles Button1.Click
        Dim NF As New Font("Impact", 36, FontStyle.Italic)
        Dim NB As New SolidBrush(
            Color.FromArgb(64, 192, 255, 255))
        NB.Color = Color.FromArgb(128, 0, 0, 0)
        PictureBox1.CreateGraphics.DrawString(
            TextBox1.Text, NF, NB, 10, 10)
    End Sub
End Class

Avviate il programma, scrivete qualcosa nella casella di testo e premete il pulsante: il gioco è fatto!

Download del progetto di esempio

Print | posted on lunedì 25 ottobre 2010 6.42 |