Como associar um ArrayList ou conjunto de objectos a um formulário do Windows utilizando o Visual Basic 2005 ou o Visual Basic .NET

IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine translation ou MT), não tendo sido portanto revisto ou traduzido por humanos. A Microsoft tem artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais. O objectivo é simples: oferecer em Português a totalidade dos artigos existentes na base de dados do suporte. Sabemos no entanto que a tradução automática não é sempre perfeita. Esta pode conter erros de vocabulário, sintaxe ou gramática… erros semelhantes aos que um estrangeiro realiza ao falar em Português. A Microsoft não é responsável por incoerências, erros ou estragos realizados na sequência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza actualizações frequentes ao software de tradução automática (MT). Obrigado.

313640
Este artigo foi arquivado. Este artigo é oferecido "tal como está" e deixará de ser actualizado.
Para obter uma Microsoft Visual C# .NET versão deste artigo, consulte 313634.
Sumário
Este artigo passo a passo descreve como associar um ArrayList de objectos a um formulário de Windows da Microsoft no Microsoft Visual Basic 2005 ou no Microsoft Visual Baisc. NET. O exemplo neste artigo inclui um formulário de Windows com três caixas de texto para apresentar as propriedades de objecto. O exemplo também inclui quatro botões de comando para procurar a ArrayList .

Requisitos

A lista seguinte descreve o hardware recomendado, software, infra-estrutura de rede e service packs que necessita:
  • Visual Basic 2005 ou do Visual Basic .NET
Este artigo pressupõe que tenha uma compreensão intermédia de conceitos de programação Visual Basic.

Descrição do código

Esta secção realça os conceitos de codificação são necessários para realizar esta tarefa.

Estruturar a classe

Uma classe que será ligada a um formulário tem de ter os acessores de propriedade. Qualquer propriedade que será ligada tem de ter o Conjunto de propriedades e métodos Obter propriedade . A classe utilizada para o exemplo neste artigo tem três propriedades (só é mostrado nesta secção). O exemplo neste artigo também inclui um construtor com parâmetros, embora não seja necessário.
Public Class guitar    Private m_make As String    Private m_model As String    Private m_year As Short    Public Sub New(ByVal make, ByRef model, ByVal year)        Me.make = make        Me.model = model        Me.year = year    End Sub    Public Property make() As String        Get            Return m_make        End Get        Set(ByVal Value As String)            m_make = Value        End Set    End PropertyEnd Class				

Adicionar um ArrayList instâncias de classes

O passo seguinte consiste em criar objectos e adicione-os à classe ArrayList :
Private al As New ArrayList()al.Add(New guitar("Gibson", "Les Paul", 1958))al.Add(New guitar("Fender", "Jazz Bass", 1964))al.Add(New Guitar("Guild", "Bluesbird", 1971))				

Ligar as propriedades do objecto a controlos de formulário

Depois da ArrayList estiver preenchido, pode ligar propriedades individuais do objecto para controlos de formulários do Windows. Para efectuar este procedimento, chame o método de Adicionar da propriedade DataBindings do controlo de caixa de texto . Passe para além disso, a propriedade que será ligada, o nome do ArrayList e a propriedade do objecto.
TextBox1.DataBindings.Add("Text", al, "Make")TextBox2.DataBindings.Add("Text", al, "Model")TextBox3.DataBindings.Add("Text", al, "Year")				

Fornecem um meio para procurar a ArrayList

O passo final deste processo, pode utilizar uma classe CurrencyManager para procurar ArrayList . Para efectuar este procedimento, associa o CurrencyManager BindingContext de formulário (neste caso, a ArrayList ).
Private cMan As CurrencyManagercMan = CType(Me.BindingContext(al), CurrencyManager)				
a classe CurrencyManager tem uma propriedade de posição que pode manipular para iterar através de membros do ArrayList . Adicionando ou subtraindo do valor actual de posição , pode apresentar diferentes membros de ArrayList no formulário. Por exemplo:
'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				

Exemplo passo a passo

  1. Crie um novo projecto de aplicação do Windows no Visual Basic 2005 ou no Visual Basic. NET. Form1 é adicionado ao projecto por predefinição.

    Nota Tem de alterar o código do Visual Basic 2005. Por predefinição, o Visual Basic cria dois ficheiros para o projecto quando cria um Windows formulários de projecto. Se o formulário é o nome Form1, os dois ficheiros que representam o formulário são denominados Form1.VB e Form1.Designer.vb. Tem de escrever o código no ficheiro Form1.VB. O Windows Forms Designer escreve o código no ficheiro Form1.Designer.vb. Os Windows Forms Designer utiliza a palavra-chave parcial para dividir a implementação do Form1 em dois ficheiros separados. Este comportamento impede que o código gerado pelo estruturador a ser intercalados com o código.

    Para obter mais informações sobre novos melhoramentos de idioma do Visual Basic 2005, visite o seguinte Microsoft Developer Network Web site (MSDN): Para obter mais informações sobre classes parciais e o Windows Forms Designer, visite o seguinte site da Web MSDN:
  2. Adicione uma classe ao projecto.
  3. Substituir o código Class1.vb o seguinte código:
    Public Class guitar    Private m_make As String    Private m_model As String    Private m_year As Short    Public Sub New(ByVal make, ByRef model, ByVal year)        Me.make = make        Me.model = model        Me.year = year    End Sub    Public Property make() As String        Get            Return m_make        End Get        Set(ByVal Value As String)            m_make = Value        End Set    End Property    Public Property model() As String        Get            Return m_model        End Get        Set(ByVal Value As String)            m_model = Value        End Set    End Property    Public Property year() As Short        Get            Return m_year        End Get        Set(ByVal Value As Short)            m_year = Value        End Set    End PropertyEnd Class					
  4. Adicione três controlos de caixa de texto ao Form1 e, em seguida, horizontalmente a dispor os controlos.
  5. Adicione quatro controlos botão ao Form1 e, em seguida, horizontalmente a dispor os controlos.
  6. Altere a propriedade texto dos botões da seguinte forma:
    BotãoTexto
    Button1Seguinte
    Button2Anterior
    Button3Primeiro
    Button4Apelido
  7. Adicione o seguinte código à secção declaração do Form1:
    Private al As New ArrayList()Private cMan As CurrencyManager					
  8. Adicione o seguinte código ao evento Form_Load :
    al.Add(New guitar("Gibson", "Les Paul", 1958))al.Add(New guitar("Fender", "Jazz Bass", 1964))al.Add(New Guitar("Guild", "Bluesbird", 1971))cMan = CType(Me.BindingContext(al), CurrencyManager)TextBox1.DataBindings.Add("Text", al, "make")TextBox2.DataBindings.Add("Text", al, "model")TextBox3.DataBindings.Add("Text", al, "year")					
  9. Adicione o seguinte código depois do evento Form_Load :
    Private Sub Button1_Click(ByVal sender As System.Object, _ByVal e As System.EventArgs) Handles Button1.Click        cMan.Position += 1End SubPrivate Sub Button2_Click(ByVal sender As System.Object, _ByVal e As System.EventArgs) Handles Button2.Click        cMan.Position -= 1End SubPrivate Sub Button3_Click(ByVal sender As System.Object, _ByVal e As System.EventArgs) Handles Button3.Click        cMan.Position = 0End SubPrivate Sub Button4_Click(ByVal sender As System.Object, _ByVal e As System.EventArgs) Handles Button4.Click        cMan.Position = al.Count - 1End Sub					
  10. Crie e execute o projecto.
  11. Clique nos botões para apresentar elementos da matriz diferente. Tenha em atenção que pode editar os valores dos objectos.

Utilizar um objecto colecção

Também pode utilizar um objecto da colecção para armazenar as estruturas. Para testar a utilização de um objecto da colecção , siga estes passos:
  1. Localize o seguinte código no procedimento de evento Form_Load :
    Private al As New ArrayList()					
  2. Substitua o código acima com o seguinte código:
    Private al As New Collection()					
  3. Guardar as alterações ao projecto e, em seguida, execute novamente o projecto.
Referências
Para mais informações, consulte o tópico "Consumidores de dados em formulários do Windows" na documentação do Visual Studio 2005 ou ajuda do Visual Studio .NET online.

Aviso: Este artigo foi traduzido automaticamente

Propriedades

ID do Artigo: 313640 - Última Revisão: 02/24/2014 20:25:14 - Revisão: 4.5

  • Microsoft Visual Basic 2005
  • Microsoft Visual Basic .NET 2003 Standard Edition
  • Microsoft Visual Basic .NET 2002 Standard Edition
  • kbnosurvey kbarchive kbmt kbvs2005swept kbvs2005applies kbhowtomaster KB313640 KbMtpt
Esta informação foi útil?