vb.net对象绑定 vb数据绑定

vb.net 中绑定自定义类到textbox的问题

如果只是把对象属性值赋值给文本框Text属性的话，它是不会立即改变的。TextBox的Text值需要你自己改变它。

创新互联建站是一家专注于成都网站建设、成都网站设计与策划设计,沙坪坝网站建设哪家好?创新互联建站做网站,专注于网站建设十余年,网设计领域的专业建站公司;建站业务涵盖:沙坪坝等地区。沙坪坝做网站价格咨询:13518219792

方法1：在修改完对象的GG值后立即给文本框赋值：

PZ1.GG = PZ1.GG "ABC"

TextBox1.Text = PZ1.GG

不过这方法不太好，不推荐。

方法2：用事件机制。在改变GG值后，由对象自身（谁）触发事件（什么时候），调用方绑定事件处理（做什么）。

在PZ类中定义事件：

Public Event GGChanged(ByVal GGValue As String)

在GG属性的Set访问器中触发事件：

Set(ByVal value As String)

M_GG = value

RaiseEvent GGChanged(value)

End Set

来看到调用方，推测你已经把它声明为成员变量了。在声明前面加个WithEvents：

Private WithEvents GG1 As New GG()

在调用窗体单独写一个处理方法：

Private Sub GG1_GGChanged(ByVal GGValue As String) Handles GG1.GGChanged 'Handles绑定对象的事件，只适用于成员变量

TextBox1.Text = GGValue

End Sub

这样虽然麻烦点，不过每当你改掉对象GG属性时，TextBox会自动更新，也减少了对象与调用方之间的耦合。

方法3：自己重写一个继承的TextBox，这里不再赘述了。

VB.net中什么叫后期绑定，后期绑定的作用是什么

参考MSDN中的内容:如果Dim xlApp As Excel.Application 这就不是后期绑定了是早期如果将对象分配给声明为 Object 类型的变量，则该对象为“后期绑定”。Dim xlApp As Object

Dim xlBook As Object

Dim xlSheet As Object

xlApp = CreateObject("Excel.Application")

' Late bind an instance of an Excel workbook.

xlBook = xlApp.Workbooks.Add

' Late bind an instance of an Excel worksheet.

xlSheet = xlBook.Worksheets(1)

xlSheet.Activate()

' Show the application.

xlSheet.Application.Visible = True

' Place some text in the second row of the sheet.

xlSheet.Cells(2, 2) = "This is column B row 2"

我主要就是在这时候用后期绑定,这样有个好处就是不用理会Excel的版本,2000/2003/2007都能调用.因为定义对象时并没有声明成Excel对象,不好的地方就是速度比较慢

vb.net datagridview绑定代码

'引用命名空间

Imports System.Data.SqlClient

Imports System.Windows.Forms

Public Class frmDataShow

Private Sub btnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk.Click

'数据库连接

Dim strConnection As String = "server=waly-pc;database=Login;uid=sa;pwd=123456;"

Dim sqlConnection1 As New SqlConnection(strConnection)

Dim dataAdapter As New SqlDataAdapter

Dim dst As New DataSet

Dim dt As New DataTable

sqlConnection1.Open() '打开数据库

Dim sql As String = "select * from UserInfo"

Dim cmd As SqlCommand = New SqlCommand(sql, sqlConnection1)

dataAdapter.SelectCommand = cmd

dataAdapter.Fill(dst, "info") '将数据库查询的数据绑定datatable

dt = dst.Tables("info")

sqlConnection1.Close() '关闭数据库

DataGridView1.AutoGenerateColumns = True '自动创建列

DataGridView1.DataSource = dt '将数据库查询的数据绑定到DataGridView1

End Sub

End Class