E x a m i n e    W i n d o w s    F o r m    B i n d i n g s    

By Michael McIntyre

mikemc@getdotnetcode.com

Here is a code snippet that will allow you to examine Windows Form Bindings at Runtime.

    Private Sub PrintBindingMemberInfo()

        Dim thisControl As Control

        Dim thisBinding As Binding

        For Each thisBinding In Me.DataBindings

            ' Print the control's name and Binding information.

            Console.WriteLine(ControlChars.Cr + thisControl.ToString())

            Dim bInfo As BindingMemberInfo = thisBinding.BindingMemberInfo

            Console.WriteLine("Binding Path " + ControlChars.Tab _

                             + bInfo.BindingPath)

            Console.WriteLine("Binding Field " + ControlChars.Tab _

                             + bInfo.BindingField)

            Console.WriteLine("Binding Member " + ControlChars.Tab _

                             + bInfo.BindingMember)

        Next

        For Each thisControl In Me.Controls

            For Each thisBinding In thisControl.DataBindings

                ' Print the control's name and Binding information.

                Console.WriteLine(ControlChars.Cr + thisControl.ToString())

                Dim bInfo As BindingMemberInfo = thisBinding.BindingMemberInfo

                Console.WriteLine("Binding Path " + ControlChars.Tab _

                                 + bInfo.BindingPath)

                Console.WriteLine("Binding Field " + ControlChars.Tab _

                                 + bInfo.BindingField)

                Console.WriteLine("Binding Member " + ControlChars.Tab _

                                 + bInfo.BindingMember)

            Next thisBinding

        Next thisControl

    End Sub

Copyright © 2001-2003 aZ Software Developers. All rights reserved.