关于Graphics在图像上绘制文字问题

tong730 2010-12-18 11:42:21
我的代码如下:
Dim image As System.Drawing.Image = System.Drawing.Image.FromFile("D:\08.jpg")

Dim g As Graphics = Graphics.FromImage(image)
g.DrawImage(image, 0, 0, image.Width, image.Height)
g.PageUnit = GraphicsUnit.Display
g.CompositingQuality = Drawing2D.CompositingQuality.HighQuality

g.SmoothingMode = Drawing2D.SmoothingMode.HighQuality
Dim f As Font = New Font("黑体", 7, FontStyle.Regular)
Dim MyFormat As New StringFormat()
MyFormat.FormatFlags = StringFormatFlags.DirectionVertical
Dim b As Brush = New SolidBrush(Color.White)
g.TextRenderingHint = Drawing.Text.TextRenderingHint.ClearTypeGridFit
g.DrawString("123456890", f, b, 20, 20, MyFormat)
image.Save("d:\aa.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
g.Dispose()

我的问题就是保存后的JPG照片ACD和PhotoShop上都有文字在上面的,但在文件夹缩略图上为什么没有文字在上面,单击照片右键刷新缩略图后,文件夹缩略图上就有文字显示,请教朋友们如何才能保存后在文件夹缩略图上就有利用Graphics合成的文字显示而不用手动刷新,先谢过了!
...全文
479 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
tong730 2010-12-19
  • 打赏
  • 举报
回复
我用其它方法解决了 非常感谢楼上的2位朋友
tong730 2010-12-19
  • 打赏
  • 举报
回复
楼上的朋友 可能我没有说得太清楚,不好意思,我的意思是image.Save("d:\aa.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)后,在文件夹里的缩略图上就显示合成的文字. 像PhotoSHop里合成文字保存的JPG文件就没有这个问题.
古今多少事 2010-12-19
  • 打赏
  • 举报
回复
测试了下,没出现LZ所说的问题。
tong730 2010-12-19
  • 打赏
  • 举报
回复
没人知道什么原因吗,先顶一顶
wuyq11 2010-12-18
  • 打赏
  • 举报
回复
工具,文件夹选项,查看,不缓存缩略图

16,555

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧