大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
如果只是把对象属性值赋值给文本框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,这里不再赘述了。
参考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对象,不好的地方就是速度比较慢
'引用命名空间
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