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

当前位置:

首页 > 编程开发 > vb >

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

窗体上我们设置了4个按钮，还有一个就是将绘制的统计图保存下来：

Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click

bmp.Save("d:\testa.png", Imaging.ImageFormat.Png)

End Sub

此处略为简化，将图片使用png格式保存为testa.png。注意是保存的bmp，而不是graphics对象。

以上代码就基本上完成了。我们可以试一下各个按钮的效果，当然，如果柱状图、折线图、饼图都按一遍的话，应该可以得到下面的运行结果：

！！！！！！！

这肯定不是我们想要的结果。我们在回想一下每个按钮的代码，我们每次操作只进行了绘图，而少了重要的一个操作：清屏。

这样使得我们每次的操作叠加到了一起。

那么我们建立一个清屏的方法：clearForm()，代码如下：

Private Sub clearForm()

g.Clear(Color.Transparent)

End Sub

清屏方法对我们建立的graphics(g)进行了清除，并用透明色（Color.Transparent）作为背景。

当然绘图的三个按钮代码加入清屏方法

Private Sub btnDraw_Click(sender As Object, e As EventArgs) Handles btnBarGraph.Click

Call clearForm()

Call DrawAxis()

Call DrawBarGraph()

Call DrawToForm()

End Sub

Private Sub btnLineChart_Click(sender As Object, e As EventArgs) Handles btnLineChart.Click

Call clearForm()

Call DrawAxis()

Call DrawLine()

Call DrawToForm()

End Sub

Private Sub btnPie_Click(sender As Object, e As EventArgs) Handles btnPie.Click

Call clearForm()

Call DrawPie()

Call DrawToForm()

End Sub

我们再次进行测试，按下三个按钮。

What!为什么还是没有发生改变。各位观众，请原谅我的懒惰，没有再截图，因为确确实实2张图片一样的，没有改变。

但是我们点击保存，打开保存的图片：

显然，保存了最后按下的饼图。为什么显示的和保存的不一致呢？

再次回顾一下我们的代码，DrawToForm()

'将bmp绘制到窗体表面

Private Sub DrawToForm()

Dim g1 As Graphics = Me.CreateGraphics

g1.DrawImage(bmp, New Point(0, 0))

End Sub

我们每次绘制都将bmp绘制到了窗体表面，即使我们调用了g.clear()，实际上只是将g清屏了，并没有清除窗体表面。

那么，我们只需要清除g的同时，清除窗体表面就可以了。修改clearForm()如下：

Private Sub clearForm()

g.Clear(Color.Transparent)

Dim gg As Graphics = Me.CreateGraphics

gg.Clear(Me.BackColor)

End Sub

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

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

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

————————————————

原文链接：https://blog.csdn.net/uruseibest/article/details/68951826

栏目列表