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 PropertyEnd ClassPublic 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 SubEnd 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 DataSetds.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        NextEnd 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 SubFunction 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 = mmEnd Function

 

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