Procedura: Esporre una matrice a una proprietà definita dall'utente

Torna all'inizio

Requisiti

• Microsoft Visual Basic 6.0

Torna all'inizio

Procedura di esempio

1. Avviare Visual Basic 6.0 e quindi creare un nuovo standard EXE progetto.
   
   Per impostazione predefinita, viene aggiunto al progetto Form1.
2. Scegliere dal menu progetto , Aggiungi modulo di classe .
   
   Sullo schermo verrà visualizzata una finestra di dialogo Aggiungi modulo di classe .
3. Fare clic su per selezionare il Modulo di classe e quindi fare clic su Apri .
   
   Per impostazione predefinita, Class1 viene aggiunto al progetto.
4. Nella finestra Proprietà modificare il nome di classe calendariopersonale .
5. Incollare il codice seguente in calendariopersonale :

   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
   

6. Nella finestra Esplora progetti, fare doppio clic su Form1 .
7. Aggiungere un pulsante di comando a Form1.
8. Nella finestra Proprietà modificare la didascalia per Property Let .
9. Aggiungere un altro pulsante di comando a Form1.
10. Nella finestra Proprietà modificare la didascalia per Property Get .
11. Nella finestra Gestione progetti fare clic con il pulsante destro del mouse su Form1 e quindi scegliere Visualizza codice .
12. 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
    

13. Nel menu file , fare clic su Salva progetto per salvare il progetto.
14. Dal menu Esegui scegliere Avvia per eseguire l'applicazione.

Torna all'inizio

Verifica del funzionamento

1. Dopo aver eseguito l'applicazione, un form con il controllo CommandButton impostazione di proprietà e il controllo CommandButton ottenere proprietà visualizzata sullo schermo.
   
   Fare clic su Property Let per assegnare valori al DatesSelected proprietà.
   
   Il seguente messaggio:

   An array of dates is assigned to property Let

   Click OK .
2. Fare clic su Property Get per recuperare le date che la routine Property Let assegna alla matrice che espone la proprietà.
   
   Ognuno dei sei date la matrice viene visualizzato in una serie di finestre di messaggio.

Torna all'inizio