Foxtable(狐表) → 用户栏目 → 专家坐堂 → painter图片保存


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

主题：painter图片保存
帅哥哟，离线，有人找我吗？
colink
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：208 积分：1878 威望：0 精华：0 注册：2015/6/22 11:24:00 		painter图片保存  发帖心情 Post By：2018/8/20 16:33:00 [显示全部帖子]

我在painter画图，用p.Save()保存图片，但是保存的图片清晰度很低，有什么办法保存成清晰度高的图片吗？

 回到顶部
帅哥哟，离线，有人找我吗？
colink
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：208 积分：1878 威望：0 精华：0 注册：2015/6/22 11:24:00 		  发帖心情 Post By：2018/8/20 17:02:00 [显示全部帖子]

用g.FillRectangle(Brushes.Red,10,10,100,50)画的，分辨率怎么设置，我保存的是png
 回到顶部
帅哥哟，离线，有人找我吗？
colink
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：208 积分：1878 威望：0 精华：0 注册：2015/6/22 11:24:00 		  发帖心情 Post By：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")

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 5 次数据查询