主题：如何在图片上增加文字

Dim bmp = getimage(flt)  '生成一个空白图片
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(flt)
bmp.Dispose()  'dispose()方法关闭的窗体可以使用pack 或 show 方法恢复,并且可以恢复到dispose前的状态

ndr.DataRow.SQLInsertFile("附件",flt) '插入文件