以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]用程序保存的图片都有黑边，能去掉么？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=83995)
--  作者：新福星
--  发布时间：2016/4/20 21:27:00
--  [求助]用程序保存的图片都有黑边，能去掉么？
Dim Chart As WinForm.Chart \'定义一个图表变量
Chart= e.Form.Controls("Chart1")
zpdz=报表目录  & "Xbar.wfm"
Chart.SaveImage(zpdz)
用这种方式保存的图片都有一个黑边，能去掉么？

怎么没有发图片的功能了？
--  作者：新福星
--  发布时间：2016/4/20 21:29:00
--  
上传附件的功能怎么没了？
--  作者：大红袍
--  发布时间：2016/4/20 21:34:00
--  

 截取，如下面的代码，截取test.jpg，从坐标(20,30)开始截取，截取50*50的大小

 

Dim bmp As new Bitmap(50, 50)
Dim g = graphics.fromimage(bmp)
Dim img = getimage("d:\\test.jpg")
g.DrawImage(img, new Rectangle(0, 0, img.Width, img.Height), new Rectangle(20, 30, img.Width, img.Height), GraphicsUnit.Pixel)
bmp.Save("d:\\test05.jpg")
bmp.dispose