绑定数据实现格式化输出

Posted 2022-05-12 VB.Net

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

普通绑定的代码：

    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim bd As New Binding("text", TextBox1, "text")
        Label1.DataBindings.Add(bd)
    End Sub

当文本框内输入的数据改变时，标签文本跟随改变：

 借助于Binding的Format事件，可以实现对数据的格式化，例如保留到小数点后2位：

    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim bd As New Binding("text", TextBox1, "text")
        Label1.DataBindings.Add(bd)
        AddHandler bd.Format, AddressOf bd_Format
    End Sub

    Private Sub bd_Format(sender As Object, e As ConvertEventArgs)
        e.Value = Single.Parse(e.Value).ToString("0.00")
    End Sub

运行如下：

 当然，还可以变其他形式，如：

    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim bd As New Binding("text", TextBox1, "text")
        Label1.DataBindings.Add(bd)
        AddHandler bd.Format, AddressOf bd_Format
    End Sub

    Private Sub bd_Format(sender As Object, e As ConvertEventArgs)
        e.Value = e.Value & " kg"
    End Sub

运行结果如下：

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

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