打开一个数据库连接,获得其中一个表项。
将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")
绑定到类的属性上:
控件之间属性也可绑定: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文件中。