VB.NETAccount对象简介

VB.NET有很多值得学习的地方，这里我们主要介绍VB.NET Account对象，包括介绍是Load方法的Click事件等方面。

让客户满意是我们工作的目标，不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户，将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴，公司提供的服务项目有：空间域名、网站空间、营销软件、网站建设、甘井子网站维护、网站推广。

本文介绍三个文本框都用于保持当前VB.NET Account对象的数据。它们分别叫txtAccountID、txtCustomerName和 txtBalance.显示Load的按钮叫btnLoad，用于载入帐号集合。另两个按钮在记录间导航，分别叫btnBack 和 btnForward.

帐号对象集合可以保持在ArrayList（数组列表）中，因此下面一行代码应该在窗体代码的最前面：

Dim colAccounts As ArrayList

下面是Load方法的Click事件代码。它建立了一些VB.NET Account对象并把它们放入一个集合中，接着把该集合绑定到文本框。

 
 
 

  
  
  
colAccounts = New ArrayList()  
  
  
  
colAccounts.Add(New Account(1, "ABC Company", 10))  
  
  
  
colAccounts.Add(New Account(2, "XYZ, Inc.", -10))  
  
  
  
colAccounts.Add(New Account(3, "MNP Limited", 0))  
  
  
  
 
  
  
  
txtAccountID.DataBindings.Add(New _   
  
  
  
Binding("Text", colAccounts, "AccountID"))  
  
  
  
txtCustomerName.DataBindings.Add(New _   
  
  
  
Binding("Text", colAccounts, "CustomerName"))  
  
  
  
txtBalance.DataBindings.Add(New _  
  
  
  
Binding("Text", colAccounts, "Balance"))  
  
  
  
txtBalance.DataBindings.Add(New _   
  
  
  
Binding("BackColor", colAccounts, "BackColor")) 
 
 
 

注意最后两行。txtBalance的Text属性绑定到一个帐号的Balance属性，并且该控件的BackColor属性绑定到帐号对象的BackColor属性。它演示了。NET框架组件绑定一个以上属性到不同数据项。

现在点击btnBack的Click事件，填入一下代码：

 
 
 

  
  
  
If Me.BindingContext(colAccounts).Position > 0 Then  
  
  
  
Me.BindingContext(colAccounts).Position -= 1 
  
  
  
End If  
  
  
  
在btnForward的Click事件中写入以下代码：  
  
  
  
If Me.BindingContext(colAccounts).Position < colAccounts.Count - 1 Then  
  
  
  
Me.BindingContext(colAccounts).Position += 1  
  
  
  
End If 
 
 
 

文章标题：VB.NETAccount对象简介
文章地址：http://www.shufengxianlan.com/qtweb/news18/304018.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联