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://www.f2er.com/vb/256726.html

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

猜你在找的VB相关文章