Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
e.Form.Controls("Painter1").save(dlg.FileName)
上面这段代码保存的绘图版文件,绘图版背景色是白色,为何保存后成了黑底了呢?
很奇怪,BMP文件是黑底,JPG 和GIF 格式的就是白底了
经测试,发现,如果在一打开窗口,就设置绘图版为清除为白色背景色,就是这段代码,等画好后再保存就是白底的了
Dim p As WinForm.Painter = e.Form.Controls("Painter1")
Dim g As Graphics = p.Graphics
g.Clear(Color.White) '清除所有内容,并将背景颜色设为白色
p.Repaint()