版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。

窗体上我们设置了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 教程 目录

 

 

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

版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。

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