Come associare un ArrayList o un insieme di strutture a un Windows Form utilizzando Visual Basic .NET o Visual Basic 2005

Traduzione articoli Traduzione articoli
Identificativo articolo: 313638 - Visualizza i prodotti a cui si riferisce l?articolo.
Questo articolo Ŕ stato archiviato. L?articolo, quindi, viene offerto ?cosý come Ŕ? e non verrÓ pi¨ aggiornato.
Espandi tutto | Chiudi tutto

In questa pagina

Sommario

In questo articolo viene illustrata come associare un ArrayList di strutture a un Windows Form. L'esempio include un Windows Form con tre caselle di testo per visualizzare i membri di struttura e quattro pulsanti di comando per scorrere l' ArrayList .

Requisiti

Microsoft Visual Basic .NET o Microsoft Visual Basic 2005

Descrizione delle code

Questa sezione vengono descritti i concetti di codifica importanti necessari per completare questa attivitÓ.

Progettazione della struttura

Una struttura che dovrÓ essere associata a un form deve disporre di funzioni di accesso ai membri. Funzioni membro di struttura di accesso Ŕ praticamente gli stessi il Set di proprietÓ / Get struttura che si trova in una classe. La struttura utilizzata per l'esempio in questo articolo dispone di tre membri (viene indicato solo uno). Inoltre, un costruttore con parametri viene fornito ma non necessario.
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
				

Aggiunta di istanze della struttura a un ArrayList

T creare istanze e aggiungerle ArrayList , attenersi alla seguente procedura:
  1. Dichiarare una variabile del tipo della struttura.
  2. Dichiarare un ArrayList .
  3. Creare istanze della struttura e quindi aggiungerli l' 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)
				

Associazione di membri di struttura ai controlli di form

Dopo l' ArrayList viene popolato, Ŕ possibile associare i singoli membri della struttura ai controlli Windows Form. Per effettuare questa operazione, Ŕ necessario chiamare il metodo Add della proprietÓ DataBindings Textbox e passare la proprietÓ da associare, il nome di ArrayList e il membro della struttura.
TextBox1.DataBindings.Add("Text", al, "make")
TextBox2.DataBindings.Add("Text", al, "model")
TextBox3.DataBindings.Add("Text", al, "year")
				

Fornire un modo di spostamento tramite l'ArrayList

Il passaggio finale del processo consiste nel fornire un modo per scorrere l' ArrayList . Per effettuare questa operazione, Ŕ necessario utilizzare un oggetto CurrencyManager . Consente di associare CurrencyManager del form BindingContext , in questo caso, l' ArrayList di strutture.
Private cMan As CurrencyManager

cMan = CType(Me.BindingContext(al), CurrencyManager)
				
l'oggetto CurrencyManager dispone di una proprietÓ di posizione che pu˛ essere modificata per scorrere i membri di ArrayList . Aggiunta a o sottraendo il valore corrente della posizione , Ŕ possibile visualizzare diversi membri di ArrayList nel form.
'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
				

Procedura di esempio

  1. Consente di aprire un nuovo progetto applicazione Windows in Visual Basic .NET o in Visual Basic 2005.
  2. Aggiungere tre caselle di testo a Form1 e disporre quindi i controlli orizzontalmente.
  3. Aggiungere quattro pulsanti di comando a Form1 e disporre quindi i controlli orizzontalmente.
  4. Modificare la proprietÓ Text di Button1 in Avanti .
  5. Modificare la proprietÓ Text di Button2 in precedente .
  6. Modificare la proprietÓ Text di Button3 prima .
  7. Modificare la proprietÓ Text di Button4 in ultimo .
  8. Aggiungere il codice seguente alla sezione Declaration di 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. Aggiungere il codice riportato di seguito all'evento 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. Aggiungere il seguente codice dopo l'evento 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. Compilare ed eseguire il progetto.
  12. Fare clic sui pulsanti per visualizzare diversi elementi di ArrayList . ╚ possibile modificare i valori degli oggetti.

Utilizzo di un insieme

╚ possibile utilizzare un oggetto Collection per memorizzare le strutture. Per verificare l'utilizzo di un insieme , individuare la seguente riga di codice nella routine evento Form_Load :
Private al As New ArrayList()
sostituire la precedente riga di codice con il codice riportato di seguito, e rieseguire l'esempio:
Private al As New Collection()

RIFERIMENTI

Vedere il seguente argomento nella documentazione di Visual Studio .NET o della Guida in linea di Visual Studio 2005:
Consumer di dati in Windows Forms

ProprietÓ

Identificativo articolo: 313638 - Ultima modifica: lunedý 24 febbraio 2014 - Revisione: 3.3
Le informazioni in questo articolo si applicano a:
  • Microsoft Visual Basic .NET 2002 Standard Edition
  • Microsoft Visual Basic .NET 2003 Standard Edition
  • Microsoft Visual Basic 2005
Chiavi:á
kbnosurvey kbarchive kbmt kbvs2005swept kbvs2005applies kbhowtomaster KB313638 KbMtit
Traduzione automatica articoli
Il presente articolo Ŕ stato tradotto tramite il software di traduzione automatica di Microsoft e non da una persona. Microsoft offre sia articoli tradotti da persone fisiche sia articoli tradotti automaticamente da un software, in modo da rendere disponibili tutti gli articoli presenti nella nostra Knowledge Base nella lingua madre dell?utente. Tuttavia, un articolo tradotto in modo automatico non Ŕ sempre perfetto. Potrebbe contenere errori di sintassi, di grammatica o di utilizzo dei vocaboli, pi¨ o meno allo stesso modo di come una persona straniera potrebbe commettere degli errori parlando una lingua che non Ŕ la sua. Microsoft non Ŕ responsabile di alcuna imprecisione, errore o danno cagionato da qualsiasi traduzione non corretta dei contenuti o dell?utilizzo degli stessi fatto dai propri clienti. Microsoft, inoltre, aggiorna frequentemente il software di traduzione automatica.
Clicca qui per visualizzare la versione originale in inglese dell?articolo: 313638
LE INFORMAZIONI CONTENUTE NELLA MICROSOFT KNOWLEDGE BASE SONO FORNITE SENZA GARANZIA DI ALCUN TIPO, IMPLICITA OD ESPLICITA, COMPRESA QUELLA RIGUARDO ALLA COMMERCIALIZZAZIONE E/O COMPATIBILITA' IN IMPIEGHI PARTICOLARI. L'UTENTE SI ASSUME L'INTERA RESPONSABILITA' PER L'UTILIZZO DI QUESTE INFORMAZIONI. IN NESSUN CASO MICROSOFT CORPORATION E I SUOI FORNITORI SI RENDONO RESPONSABILI PER DANNI DIRETTI, INDIRETTI O ACCIDENTALI CHE POSSANO PROVOCARE PERDITA DI DENARO O DI DATI, ANCHE SE MICROSOFT O I SUOI FORNITORI FOSSERO STATI AVVISATI. IL DOCUMENTO PUO' ESSERE COPIATO E DISTRIBUITO ALLE SEGUENTI CONDIZIONI: 1) IL TESTO DEVE ESSERE COPIATO INTEGRALMENTE E TUTTE LE PAGINE DEVONO ESSERE INCLUSE. 2) I PROGRAMMI SE PRESENTI, DEVONO ESSERE COPIATI SENZA MODIFICHE, 3) IL DOCUMENTO DEVE ESSERE DISTRIBUITO INTERAMENTE IN OGNI SUA PARTE. 4) IL DOCUMENTO NON PUO' ESSERE DISTRIBUITO A SCOPO DI LUCRO.

Invia suggerimenti

 

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