Foxtable(狐表)用户栏目专家坐堂 → GDI另存图片后像素


  共有3115人关注过本帖树形打印复制链接

主题:GDI另存图片后像素

美女呀,离线,留言给我吧!
漂亮美眉vszh
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:893 积分:8064 威望:0 精华:0 注册:2013/5/30 11:27:00
GDI另存图片后像素  发帖心情 Post By:2019/8/30 15:51:00 [只看该作者]

老师:
图片点击可在新窗口打开查看此主题相关图片如下:456.png
图片点击可在新窗口打开查看
GDI绘图后,另存为图片,然后供输出表格和初始进入GDI后绑定,但另存的图片,字看上去不清析,昏,是不是像素太低了,如何把像素调的清析点?

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110825 积分:564069 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/8/30 15:55:00 [只看该作者]

写了什么代码?

 回到顶部
美女呀,离线,留言给我吧!
漂亮美眉vszh
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:893 积分:8064 威望:0 精华:0 注册:2013/5/30 11:27:00
  发帖心情 Post By:2019/8/30 16:16:00 [只看该作者]

.......      //一系列绘制GDI的代码,然后绘制完成后
p.Save(CF_Address & "FMEA\" & Tables("MainTable").current("Main_ID") & "\ProcStructPic.jpg")

初始进入窗口后

If FileSys.FileExists(CF_Address & "FMEA\" & Tables("MainTable").current("Main_ID") & "\ProcStructPic.jpg") Then
Dim p As WinForm.Painter = e.Form.Controls("Painter2")
Dim g As Graphics = p.Graphics
g.DrawImage(getImage(CF_Address & "FMEA\" & Tables("MainTable").current("Main_ID") & "\ProcStructPic.jpg"),0,0,p.Width,p.Height)
p.Repaint()
End If

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110825 积分:564069 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/8/30 16:34:00 [只看该作者]

这个没有办法,只能这样了。

建议换个背景,比如白色。或者试试使用不同的字体,比如黑体这种比较粗的字体。

 回到顶部