Dim bmp = getimage("d:\test.jpg") '生成一个空白图片 Dim g = Graphics.FromImage(bmp) Dim fnt As New Font("黑体",40) Dim msg As String = "foxtable" g.DrawString(msg,fnt,Brushes.Red,20,40) '在指定的位置,用指定的画刷和字体,绘制指定的文本 bmp.Save("d:\test.jpg") bmp.Dispose() 'dispose()方法关闭的窗体可以使用pack 或 show 方法恢复,并且可以恢复到dispose前的状态