[VB.NET] Scrivere testo in un controllo PictureBox

[titto96]

Salve vorrei scrivere su un picturebox1 un testo scritto in una textbox alla pressione di un pulsante

volendo mi potete dire la soluzione anche per scrivere una label su un picturebox dato che per adesso mi sono arrangiato ad associare una label (posizionata per bene) alla textbox corrispondente e poi usare lo strumento cattura di windows 7

Uso VB10, Grazie

[Jeremy75]

Ciao
Prova così

 Private Sub PictureBox1_Paint(sender As Object, e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
        e.Graphics.DrawString(Label1.Text, Label1.Font, Brushes.Black, New PointF(0, 0))
    End Sub

Facci sapere....
Ciao

[titto96]

Funziona ma avendo messo un pulsante per salvare il tutto

Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click 
Dim savefiledialog1 As New SaveFileDialog 
Try 
savefiledialog1.Title = "Salva scontrino" 
savefiledialog1.FileName = "Scontrino.bmp" 
savefiledialog1.Filter = "BMP (.bmp) |*.bmp" 
If savefiledialog1.ShowDialog() = DialogResult.OK Then 
Picturebox1.Image.Save(savefiledialog1.FileName, System.Drawing.Imaging.ImageFormat.Bmp) 
End If
Catch ex As Exception 
End Try 
End Sub

Mi salva in bianco

Grazie comunque per la risposta

[Jeremy75]

Ciao.
Se eseguissi il codice in debug, ti accorgeresti che in realtà ricevi un'eccezione NullReferenceException.
Ad ogni modo, anche se risolvessi l'eccezione valorizzando la proprietà Image del PictureBox, non risolveresti il problema comunque, perche fai sempre e comunque riferimento al File Bitmap di origine.
Quello che dovresti fare è creare un nuovo Bitmap, lavorarci sopra, e poi destinarlo al salvataggio del file.

Dim bitmap As Bitmap = New Bitmap(PictureBox1.Image)
        Dim graph As Graphics = Graphics.FromImage(bitmap)
        g.DrawString(Label1.Text, Label1.Font, Brushes.Red, New PointF(50, 50))
        PictureBox1.Image = bitmap
etc ....

Facci sapere...
Ciao

[titto96]

Per me è difficile ma ci proverò sai sono alle prime armi

P.s come lo dichiaro ""g"?

[Jeremy75]

Partendo da questo codice non dovrebbe essere difficile ottenere ciò che ti serve

Public Class Form1
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim savefiledialog1 As New SaveFileDialog
        Try
            savefiledialog1.Title = "Salva scontrino"
            savefiledialog1.FileName = "Scontrino.bmp"
            savefiledialog1.Filter = "BMP (.bmp) |*.bmp"
            If savefiledialog1.ShowDialog() = DialogResult.OK Then
                PictureBox1.Image.Save(savefiledialog1.FileName, System.Drawing.Imaging.ImageFormat.Bmp)
            End If
        Catch ex As Exception
            Stop
        End Try
    End Sub
    Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        Dim bitmap As Bitmap = New Bitmap(PictureBox1.Image)
        Dim Graph As Graphics = Graphics.FromImage(bitmap)
        Graph.DrawString("Modificato", Label1.Font, Brushes.Red, New PointF(50, 50))
        PictureBox1.Image = bitmap
    End Sub
End Class

Facci sapere...
Ciao

[titto96]

Funziona ma come cambio la dimensione della scritta?

[Jeremy75]

Graph.DrawString("Modificato", New Font(Label1.Font.FontFamily, 48), Brushes.Red, New PointF(50, 50))

[titto96]

Grande!!! Funziona!