نوشتن روس عکس

[behzadk]

می خواستم روی یک عکس چطوری میشه یه نامی رو بنویسم

[Keyvan_Y]

Dim WMFont As New Font(“Comic Sans MS”, 20, FontStyle.Bold)'Define font 

Dim WMBrush As New SolidBrush(Color.FromARGB(92, 230, 80, 120)) 'Define colour

PictureBox1.CreateGraphics.DrawString("MY Text", WMFont, WMBrush, 100, 40)'add it to the picture box

[ghafoori]

البته این کد روی کنترل چیزی را می نویسد کد بهتر ان این است

 Dim b As New Bitmap(200, 200)

        Dim g As Graphics = Graphics.FromImage(b)

        g.DrawLine(Pens.Black, 10, 10, 100, 100)

        Me.PictureBox1.Image = b