VB.NET如何在PictureBox1中的图片上写字,
Private Sub Button1_Click(ByVal sender As System。Object, ByVal e As System。EventArgs) Handles Button1。 Click Dim bitmap As Bitmap = bitmap。FromFile("f:1。jpg") Dim g As Graphics = Graphics。 FromImage(bitmap) g。DrawString("I am a Boy", Me。Font, Brushes。Black, 0, 0) bitm...全部
Private Sub Button1_Click(ByVal sender As System。Object, ByVal e As System。EventArgs) Handles Button1。
Click Dim bitmap As Bitmap = bitmap。FromFile("f:1。jpg") Dim g As Graphics = Graphics。
FromImage(bitmap) g。DrawString("I am a Boy", Me。Font, Brushes。Black, 0, 0) bitmap。
Save("f:2。jpg") Me。PictureBox1。Image = bitmap End Sub。收起