以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  painter图片保存  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=123659)

--  作者:colink
--  发布时间:2018/8/20 16:33:00
--  painter图片保存
我在painter画图,用p.Save()保存图片,但是保存的图片清晰度很低,有什么办法保存成清晰度高的图片吗?
--  作者:有点蓝
--  发布时间:2018/8/20 16:55:00
--  
绘图分辨率设置大一点,不要保存为gif
--  作者:colink
--  发布时间:2018/8/20 17:02:00
--  
用g.FillRectangle(Brushes.Red,10,10,100,50)画的,分辨率怎么设置,我保存的是png

--  作者:有点蓝
--  发布时间:2018/8/20 17:28:00
--  
请上传实例测试
--  作者:colink
--  发布时间:2018/8/20 18:09:00
--  
Dim p As WinForm.Painter = e.Form.Controls("Painter1")
Dim g As Graphics = p.Graphics
Dim br As Brush = Brushes.black
Dim i,i1,x,y As Integer
For i=0 To 41
For i1=0 To 41
x=6*i1+1+2
y=6*i+1+2
g.FillRectangle(Brushes.black ,x,y,3,3)
Next
Next
p.repaint()
p.Save("C:\\Users\\lance\\Desktop\\模板.png")

--  作者:有点蓝
--  发布时间:2018/8/20 20:22:00
--  
也就这种效果了。狐表毕竟不是专业用来绘图的