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

左手的ㄟ右手 2022-09-10 15:27 97阅读 0赞

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。  
窗体上我们设置了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教程][vb.net]目录看

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

[vb.net]: https://www.xin3721.com/eschool/vbnetxin3721/