如何将绑定到 Windows 窗体的 ArrayList 或结构的集合,通过使用 Visual Basic.net 或 Visual Basic 2005

文章翻译 文章翻译
文章编号: 313638 - 查看本文应用于的产品
本文已归档。它按“原样”提供,并且不再更新。
展开全部 | 关闭全部

本文内容

概要

本分步指南介绍演示如何将结构的 ArrayList 绑定到 Windows 窗体。该示例包含三个文本框与 Windows 窗体以显示结构成员和四个命令按钮 ArrayList 中移动。

要求

Microsoft Visual Basic.net 或 Microsoft Visual Basic 2005

代码的讨论

本部分介绍在完成此任务所需的重要编码概念。

设计结构

要将绑定到窗体的结构必须具有成员访问器。结构成员访问器实际上是相同的 属性集 / 获取 构造的类中找到。使用本文中示例的结构有三个成员 (显示只有一个)。一个 参数化构造函数 还提供了,但不是必需的。
Private Structure guitar
    Friend mmake As String
    Friend mmodel As String
    Friend myear As Short

    Public Sub New(ByVal make, ByVal model, ByVal year)
        Me.mmake = make
        Me.mmodel = model
        Me.myear = year
    End Sub

    Public Property make() As String
        Get
            make = mmake
        End Get
        Set(ByVal Value As String)
            mmake = Value
        End Set
    End Property
End Structure
				

将结构实例添加到 ArrayList

T 创建实例,并将它们添加到 ArrayList,请按照下列步骤:
  1. 声明结构的类型的变量。
  2. 声明 ArrayList
  3. 创建结构的实例,然后将它们添加到 ArrayList
Private myStruct As guitar
Dim al As New ArrayList()

myStruct = New guitar("Gibson", "Les Paul", 1958)
al.Add(myStruct) 
myStruct = New guitar("Fender", "Jazz Bass", 1964)
al.Add(myStruct)
myStruct = New guitar("Guild", "Bluesbird", 1971)
al.Add(myStruct)
				

绑定到窗体控件的结构成员

填充 ArrayList 后,您可以将结构的各个成员绑定到 Windows 窗体控件。若要这样做您必须调用该 文本框数据绑定 属性的 Add 方法,并将绑定属性、 ArrayList 中的名称和结构的成员进行传递。
TextBox1.DataBindings.Add("Text", al, "make")
TextBox2.DataBindings.Add("Text", al, "model")
TextBox3.DataBindings.Add("Text", al, "year")
				

提供一种通过在 ArrayList 移动到的方法

在过程中的最后一步是提供一种 ArrayList 中移动的方法。若要执行此操作必须使用一个 CurrencyManager。在窗体的 BindingContext,在本例中的结构的 ArrayList 相关联 CurrencyManager
Private cMan As CurrencyManager

cMan = CType(Me.BindingContext(al), CurrencyManager)
				
CurrencyManager 对象具有循环访问 ArrayList 的成员可以操作的 位置 属性。通过向,添加或减去当前值的 位置,您可以在窗体上显示 ArrayList 的不同成员。
'Move forward one element.
 cMan.Position += 1
'Move back one element.
cMan.Position -= 1
'Move to the beginning.
cMan.Position = 0
'Move to the end.
cMan.Position = al.Count - 1
				

分步示例

  1. 在 Visual Basic.net 中或 Visual Basic 2005 中,请打开一个新的 Windows 应用程序项目。
  2. 将三个文本框添加到 Form1,然后横向排列控件。
  3. 将四个命令按钮添加到 Form1,然后横向排列控件。
  4. 下一处 更改 Button1 的 文本属性
  5. 更改为 上一动画同时文本属性 的 Button2。
  6. 将 Button3 的 文本属性 更改为 第一次
  7. 上次 更改的 Button4 文本属性
  8. 下面的代码添加到声明 Form1 节:
    Private Structure guitar
        Friend mmake As String
        Friend mmodel As String
        Friend myear As Short
    
        Public Sub New(ByVal make, ByVal model, ByVal year)
            Me.mmake = make
            Me.mmodel = model
            Me.myear = year
        End Sub
    
        Public Property make() As String
            Get
                make = mmake
            End Get
            Set(ByVal Value As String)
                mmake = Value
            End Set
        End Property
        Public Property model() As String
            Get
                model = mmodel
            End Get
            Set(ByVal Value As String)
                mmodel = Value
            End Set
        End Property
        Public Property year() As Short
            Get
                year = myear
            End Get
            Set(ByVal Value As Short)
    
    
            myear = Value
            End Set
        End Property
    End Structure
    
    Private myStruct As guitar
    Private al As New ArrayList()
    Private cMan As CurrencyManager
    					
  9. 将下面的代码添加到 Form_Load 事件:
    myStruct = New guitar("Gibson", "Les Paul", 1958)
    al.Add(myStruct)
    myStruct = New guitar("Fender", "Jazz Bass", 1964)
    al.Add(myStruct)
    myStruct = New guitar("Guild", "Bluesbird", 1971)
    al.Add(myStruct)
    
    cMan = CType(Me.BindingContext(al), CurrencyManager)
    
    TextBox1.DataBindings.Add("Text", al, "make")
    TextBox2.DataBindings.Add("Text", al, "model")
    TextBox3.DataBindings.Add("Text", al, "year")
    					
  10. Form_Load 事件发生后添加以下代码:
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
    System.EventArgs) Handles Button1.Click
            cMan.Position += 1
    End Sub
    
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
    System.EventArgs) Handles Button2.Click
            cMan.Position -= 1
    End Sub
    
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As
    System.EventArgs) Handles Button3.Click
            cMan.Position = 0
    End Sub
    
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As
    System.EventArgs) Handles Button4.Click
            cMan.Position = al.Count - 1
    End Sub
    					
  11. 生成并运行该项目。
  12. 单击以显示不同 ArrayList 元素按钮。注意您可以编辑该对象的值。

使用集合

使用 集合 对象可以存储该结构。若要测试的 集合 使用,Form_Load 事件过程中找到下面的代码行:
Private al As New ArrayList()
前面的代码行替换为下面的代码,然后再运行该示例:
Private al As New Collection()

引用

在 Visual Studio.net 或 $ Visual Studio 2005 联机帮助文档中下面的主题,请参阅:
Windows 窗体上的数据的使用者

属性

文章编号: 313638 - 最后修改: 2014年2月24日 - 修订: 3.3
这篇文章中的信息适用于:
  • Microsoft Visual .NET 2002 标准版
  • Microsoft Visual Basic .NET 2003 标准版
  • Microsoft Visual Basic 2005
关键字:?
kbnosurvey kbarchive kbmt kbvs2005swept kbvs2005applies kbhowtomaster KB313638 KbMtzh
机器翻译
注意:这篇文章是由无人工介入的微软自动的机器翻译软件翻译完成。微软很高兴能同时提供给您由人工翻译的和由机器翻译的文章, 以使您能使用您的语言访问所有的知识库文章。然而由机器翻译的文章并不总是完美的。它可能存在词汇,语法或文法的问题,就像是一个外国人在说中文时总是可能犯这样的错误。虽然我们经常升级机器翻译软件以提高翻译质量,但是我们不保证机器翻译的正确度,也不对由于内容的误译或者客户对它的错误使用所引起的任何直接的, 或间接的可能的问题负责。
点击这里察看该文章的英文版: 313638
Microsoft和/或其各供应商对于为任何目的而在本服务器上发布的文件及有关图形所含信息的适用性,不作任何声明。 所有该等文件及有关图形均"依样"提供,而不带任何性质的保证。Microsoft和/或其各供应商特此声明,对所有与该等信息有关的保证和条件不负任何责任,该等保证和条件包括关于适销性、符合特定用途、所有权和非侵权的所有默示保证和条件。在任何情况下,在由于使用或运行本服务器上的信息所引起的或与该等使用或运行有关的诉讼中,Microsoft和/或其各供应商就因丧失使用、数据或利润所导致的任何特别的、间接的、衍生性的损害或任何因使用而丧失所导致的之损害、数据或利润不负任何责任。

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com