United States

Change

All Microsoft Sites

Help and Support

Identificativo articolo: 204823 - Ultima modifica: lunedì 19 maggio 2003 - Revisione: 1.1

HOW TO: esporre un gruppo tramite una proprietà definita dall'utente

Attenzione: Questo è un articolo tradotto in automatico.

Visualizza i prodotti a cui si riferisce l?articolo.

In questo articolo viene descritto come creare una proprietà che espone una matrice di Microsoft Visual Basic 6.0. In Visual Basic 6.0, l'istruzione Property Get e istruzione Property Let non supportano le matrici. Tuttavia, è possibile creare una proprietà che espone una matrice se la matrice viene incluso in una variabile di tipo variant.

Torna all'inizio

I requisiti

Nel seguente elenco vengono delineati l'hardware consigliato, software dell'infrastruttura di rete e service pack sono necessarie:

Microsoft Visual Basic 6.0

In questo articolo presuppone che siano familiarità con Visual Basic programmazione 6.0.

Torna all'inizio

Esempio dettagliata

Avviare Visual Basic 6.0 e quindi creare un nuovo standard EXE progetto.

Per impostazione predefinita, Form1 viene aggiunto al progetto.
Scegliere dal menu progetto Aggiungi modulo di classe .

Una finestra di dialogo Aggiungi modulo di classe visualizzata sullo schermo.
Fare clic per selezionare il modulo di classe , quindi Apri .

Per impostazione predefinita, Class1 viene aggiunto al progetto.
Nella finestra proprietà modificare il nome della classe MyCalendar .

Incollare il codice seguente in MyCalendar :

Option Explicit

Private tempArray As Variant

Public Property Get DatesSelected() As Variant
   DatesSelected = tempArray
End Property

Public Property Let DatesSelected(ByVal dates As Variant)
   tempArray = dates
End Property

Nella finestra Esplora progetti, fare doppio clic su Form1 .
Aggiungere un controllo CommandButton a Form1.
Nella finestra Proprietà, modificare la didascalia per Property Let .
Aggiungere un altro controllo CommandButton a Form1.
Nella finestra Proprietà, modificare la didascalia per ottenere proprietà .
Nella finestra Esplora progetti, fare clic con il pulsante destro del mouse su Form1 e quindi scegliere Visualizza codice .

Incollare il codice seguente in Form1: objMyCal

Option Explicit

Dim objMyCal As New MyCalendar

Private Sub Command1_Click()
   Dim i As Integer
   
   Dim arrDate(5) As Date 
   
   ' Creates the array containing six elements.
   ' Do not specify the dimensions for the array.
   For i = 0 To 5
      arrDate(i) = Int(Now) + i
   Next i
   
   ' Assign the array to the property.
   objMyCal.DatesSelected = arrDate
   
   MsgBox ("An array of Dates is assigned to property Let")
End Sub

Private Sub Command2_Click()
   Dim i As Integer
   Dim upper As Long
   Dim lower As Long

   Dim arrMyDates() As Date  ' Dynamic array
   
   ' Get the array from the property.
   arrMyDates = objMyCal.DatesSelected
    
   ' Determine the bounds of the array.

   lower = LBound(arrMyDates)
   upper = UBound(arrMyDates)

   For i = lower To upper
      MsgBox (arrMyDates(i))
   Next i

End Sub

inferiore = LBound(arrMyDates) superiore = UBound(arrMyDates) for i = MsgBox inferiore A superiore (arrMyDates(i)) Avanti i End Sub

Scegliere Salva progetto per salvare il progetto dal menu File .
esecuzione , scegliere dal menu Start per eseguire l'applicazione.

Torna all'inizio

Verifica del funzionamento

Dopo aver eseguito l'applicazione, un modulo con il controllo CommandButton Consenti alle proprietà e il controllo CommandButton ottenere proprietà visualizzata sullo schermo.

Fare clic su Consenti alle proprietà per assegnare valori alle DatesSelected proprietà.

Viene visualizzato il seguente messaggio:
An array of dates is assigned to property Let
Click OK .
Fare clic su Property Get per recuperare le date che la routine Property Let assegna a matrice che espone la proprietà.

Ogni le date sei in matrice è visualizzati in una serie di finestre di messaggio.

Torna all'inizio

Riferimenti

Per ulteriori informazioni, visitare i siti di Web MSDN seguenti:

Aggiunta di proprietà a una classe
http://msdn.microsoft.com/en-us/library/aa716300(VS.60).aspx (http://msdn.microsoft.com/en-us/library/aa716300(VS.60).aspx)

Proprietà Let istruzione
http://msdn.microsoft.com/en-us/library/aa243390(VS.60).aspx (http://msdn.microsoft.com/en-us/library/aa243390(VS.60).aspx)

Torna all'inizio

Le informazioni in questo articolo si applicano a:

Microsoft Visual Basic Enterprise Edition for Windows 6.0
Microsoft Visual Basic 6.0 Learning Edition
Microsoft Visual Basic 6.0 Professional Edition

Torna all'inizio

kbmt kbproperties kbhowtomaster KB204823 KbMtit

Torna all'inizio

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. Nel caso in cui si riscontrino degli errori e si desideri inviare dei suggerimenti, è possibile completare il questionario riportato alla fine del presente articolo.

Clicca qui per visualizzare la versione originale in inglese dell?articolo: 204823 (http://support.microsoft.com/kb/204823/en-us/ )

Torna all'inizio

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.