[VB.NET] Testo su PictureBox

[c-enrico]

Per scrivere del testo su una pictureBox che contiene un'immagine uso il seguente codice:

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Dim Brush As New SolidBrush(Color.Red)
Dim nFont As New System.Drawing.Font("Arial", 12)

PictureBox1.Visible = True
PictureBox1.Refresh()

Dim gr1 As Graphics = PictureBox1.CreateGraphics()

gr1.DrawString("Ciao", nFont, Brush, 20, 20)

PictureBox1.Refresh()

End Sub

ma non scrive niente, dove sbaglio?
Ciao

[eziogsv]

prova a togliere il secondo codice

PictureBox1.Refresh()

quello inserito dopo il draw
.

[c-enrico]

avevi ragione, tolto Refresh funziona
ma ho dovuto anche mettere PicutureBox.Top = 0
Grazie mille
Ciao

[c-enrico]

c'e' però una cosa: il testo non diventa parte integrante dell'immagine,
infatti se faccio

[CODE]
Form3.PictureBox1.Image = PictureBox1.Image
[\CODE]

il testo non viene riportato!!!

C'è modo di avere anche il testo?

[c-enrico]

Ho provato anche con Paint con il codice che suggerisci
tu, stampa anche questo il testo ma se lo salvo o se
copio in altro PictureBox non viene fuori il testo

io sono convinto che ci deve essere un modo
nessuno mi può aiutare?

AddHandler PictureBox1.Paint, AddressOf PictureBox1_Paint

Form3.PictureBox1.Image = PictureBox1.Image

Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint

Dim Font As New System.Drawing.Font("Arial", 12)
e.Graphics.DrawString("Ciao", Font, Brushes.Blue, 20, 20)

End Sub

[oregon]

Le cose sono un po' diverse ... guarda questo esempio ...

        Dim testo As String = "Quello che vuoi ..."

        PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage   ' Se necessario

        PictureBox1.Image = Image.FromFile("Immagine.jpg")
        Dim g As Graphics = Graphics.FromImage(PictureBox1.Image)
        Dim myFont As New Font("Arial", 12, FontStyle.Regular)

        Dim grandezzaTesto As SizeF = g.MeasureString(testo, myFont)
        Dim xLocation As Single = PictureBox1.Image.Width - grandezzaTesto.Width
        Dim yLocation As Single = PictureBox1.Image.Height - grandezzaTesto.Height

        g.DrawString(testo, myFont, Brushes.Blue, xLocation, yLocation)
        g.Save()
        PictureBox1.Image.Save("ImmagineConTesto.jpg")

        g.Dispose()

[c-enrico]

Funziona a meraviglia!!!
Grazieeeeeeeeeeeeeeee!!!