(Winforms vb.net)
Eu estava na ideia que para escrever por cima duma imagem, bastava arrastar uma label e alterar o backColor para Transparent. Mas pelos vistos não funciona :)
Aqui fica a solução:
Imports
System.Drawing.Graphics
Private
Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
Dim drawString As String = "Texto a escrever por cima da imagem"
Dim drawFont As New Font("Comic Sans MS", 21)
Dim drawBrush As New SolidBrush(Color.Black)
Dim drawPoint As New PointF(20.0F, 50.0F)
e.Graphics.DrawString(drawString, drawFont, drawBrush, drawPoint)
End Sub
posted on Tuesday, August 22, 2006 7:59 AM