vb.net 教程 5-12 绘图实例之统计图 4 注意事项

前端之家收集整理的这篇文章主要介绍了vb.net 教程 5-12 绘图实例之统计图 4 注意事项前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
窗体上我们设置了4个按钮,还有一个就是将绘制的统计图保存下来:
  1. Private Sub btnSave_Click(sender As Object,e As EventArgs) Handles btnSave.Click
  2. bmp.Save("d:\testa.png",Imaging.ImageFormat.Png)
  3. End Sub
此处略为简化,将图片使用png格式保存为testa.png。注意是保存的bmp,而不是graphics对象。

以上代码就基本上完成了。我们可以试一下各个按钮的效果,当然,如果柱状图、折线图、饼图都按一遍的话,应该可以得到下面的运行结果:
!!!!!!!
这肯定不是我们想要的结果。我们在回想一下每个按钮的代码,我们每次操作只进行了绘图,而少了重要的一个操作:清屏。
这样使得我们每次的操作叠加到了一起。
那么我们建立一个清屏的方法:clearForm(),代码如下:
  1. Private Sub clearForm()
  2. g.Clear(Color.Transparent)
  3. End Sub
清屏方法对我们建立的graphics(g)进行了清除,并用透明色(Color.Transparent)作为背景。
当然绘图的三个按钮代码加入清屏方法
  1. Private Sub btnDraw_Click(sender As Object,e As EventArgs) Handles btnBarGraph.Click
  2. Call clearForm()
  3. Call DrawAxis()
  4. Call DrawBarGraph()
  5. Call DrawToForm()
  6. End Sub
  7.  
  8. Private Sub btnLineChart_Click(sender As Object,e As EventArgs) Handles btnLineChart.Click
  9. Call clearForm()
  10. Call DrawAxis()
  11. Call DrawLine()
  12. Call DrawToForm()
  13. End Sub
  14.  
  15. Private Sub btnPie_Click(sender As Object,e As EventArgs) Handles btnPie.Click
  16. Call clearForm()
  17. Call DrawPie()
  18. Call DrawToForm()
  19. End Sub
我们再次进行测试,按下三个按钮。
What!为什么还是没有发生改变。各位观众,请原谅我的懒惰,没有再截图,因为确确实实2张图片一样的,没有改变。
但是我们点击保存,打开保存的图片
显然,保存了最后按下的饼图。为什么显示的和保存的不一致呢?
再次回顾一下我们的代码,DrawToForm()
  1. '将bmp绘制到窗体表面
  2. Private Sub DrawToForm()
  3. Dim g1 As Graphics = Me.CreateGraphics
  4. g1.DrawImage(bmp,New Point(0,0))
  5. End Sub

我们每次绘制都将bmp绘制到了窗体表面,即使我们调用了g.clear(),实际上只是将g清屏了,并没有清除窗体表面。
那么,我们只需要清除g的同时,清除窗体表面就可以了。修改clearForm()如下:
  1. Private Sub clearForm()
  2. g.Clear(Color.Transparent)
  3. Dim gg As Graphics = Me.CreateGraphics
  4. gg.Clear(Me.BackColor)
  5. End Sub

再次测试,这下终于对了。

由于.net平台下C#和vb.NET很相似,本文也可以为C#爱好者提供参考。

学习更多vb.net知识,请参看 vb.net 教程 目录

猜你在找的VB相关文章