Question

求大神指点 vb.net 怎么绘制一张有文字的图呢?并用 PictureBox1 显示出来

求大神指点 vb.net 怎么绘制一张有文字的图呢?并用 PictureBox1 显示出来

图用纯色的就好. 文字用红色 在图的中间 写上 "完成" 2个字

求大神指点, 要怎么写呀 .

Answer 1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim nBrush As New SolidBrush(Color.Red)
        Dim font As New Font("宋体", 12)
        Dim bmp As Bitmap = Bitmap.FromFile("c:\123.jpg")
        Dim info As String = "完成"
        Dim g As Graphics = Graphics.FromImage(bmp)
        Dim sizef As SizeF = g.MeasureString(info, font)
        Dim left As Single = (PictureBox1.Width - sizef.Width) / 2
        Dim top As Single = (PictureBox1.Height - sizef.Height) / 2
        g.DrawString(info, font, nBrush, left, top)
        g = PictureBox1.CreateGraphics
        g.DrawImage(bmp, 0, 0)
        g = Nothing
        bmp = Nothing
    End Sub

追问

这样不可行呀....窗体 最小化后在 还原 画面就消失了...

追答

那是因为最小化还原后窗体需要重绘，上面的代码放在按钮事件中，你把它放在Form_Paint事件中就可以了。