VB2008：数据绑定

打开一个数据库连接，获得其中一个表项。
将label、textbox等部件的数据绑定的某属性(一般是text、tag属性)，选中数据表中的某一字段。高级选项允许为数据设置格式。

 

绑定向导：BindingNavigator
使用该部件方便数据浏览
如使用代码移动数据库指针，可使用Me.EmployeesBindingSource.MoveNext
(MoveFirst/MoveLast/MoveNext/MovePrevious)，或直接跳转Me.EmployeesBindingSource.Position = 10

 

使用代码控制绑定：
从工具箱查找BindingSource，并放入窗体，设置BindSource的DataSource(数据库)、DataMember(数据表)，对部件设置绑定字段
Label1.DataBindings.Add("Text", Me.BindingSource1, "City")

 

绑定到类的属性上：

Public Class man Property Age() Get Age = "30" End Get Set(ByVal value) End Set End Property End Class Public Class Form1 Dim m As New man Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load LinkLabel1.DataBindings.Add("Text", m, "Age") End Sub End Class

 

控件之间属性也可绑定：Label1.DataBindings.Add("Text", TextBox1, "Text")

 

图像属性

Get属性:pic = Image.FromFile("d:/share/104528_94.jpg")

Me.PictureBox1.DataBindings.Add("Image", m, "pic")

 

 DataGridView与XML：

载入XML

Dim ds As New DataSet
ds.ReadXml("xmlfile1.xml")
DataGridView1.DataSource = ds.Tables(0)

datagridviewz在使用了绑定源时，最终有一个数据集，如dataset1。

保存数据只需使用Dataset1.writexml("d:\abc.xml")

Treeview与XML：

Treeview没有datasouce属性，手动载入

Private Sub Form2_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim x As New Xml.XmlDocument()

        x.Load(Application.StartupPath + "\xmlfile1.xml")
        Dim z As TreeNode
        z = TreeView1.Nodes.Add("xml")
        bindXmlToTree(x.DocumentElement.ChildNodes, z)
End Sub

 

Sub bindXmlToTree(ByVal a As Xml.XmlNodeList, ByVal b As TreeNode)
        Dim c
        Dim k As Xml.XmlNode

        For Each k In a
            If k.NodeType <> Xml.XmlNodeType.Text Then
                c = b.Nodes.Add(k.Name)
                bindXmlToTree(k.ChildNodes, c)
            End If
        Next
End Sub

 

将Treeview数据写入XML：

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim doc = New XElement("root")
        For Each a In TreeView1.Nodes
            doc.Add(iterNodes(a))
        Next
        Debug.Print(doc.ToString)
End Sub
Function iterNodes(ByVal z)
        Dim k As String
        k = z.text

        Dim mm As New XElement(k)
        For Each a In z.Nodes
            mm.Add(iterNodes(a))
        Next
        iterNodes = mm
End Function

 

ApplicationSetting：
设置属性在窗体启动时载入，在窗体卸载时保存的参数。
如需要保存窗体的位置，设置Location属性即可。类似于将数据保存在注册表或ini文件中。