Visualizzazione dei risultati da 1 a 3 su 3
  1. #1

    [VB6] Proprietà indicizzata di una classe

    Tra le varie proprietà di una classe ne ho una indicizzata:
    codice:
    Private Type Lavoro
      Codice As String
      ...
      LavorazioniPreviste(MaxLavorazioniPreviste) As String
      ...
    End Type
    Private l As Lavoro
    
    Public Property Let Codice(StrApp As String)
      l.Codice = Trim(StrApp)
    End Property
    
    Public Property Get Codice() As String
      Codice = l.Codice
    End Property
    ...
    Come faccio riferimento a LavorazioniPreviste(Indice)?

  2. #2
    Utente di HTML.it L'avatar di Boolean
    Registrato dal
    Oct 2005
    Messaggi
    758

    Re: [VB6] Proprietà indicizzata di una classe

    Originariamente inviato da Luciano79
    Tra le varie proprietà di una classe ne ho una indicizzata:
    codice:
    Private Type Lavoro
      Codice As String
      ...
      LavorazioniPreviste(MaxLavorazioniPreviste) As String
      ...
    End Type
    Private l As Lavoro
    
    Public Property Let Codice(StrApp As String)
      l.Codice = Trim(StrApp)
    End Property
    
    Public Property Get Codice() As String
      Codice = l.Codice
    End Property
    ...
    Come faccio riferimento a LavorazioniPreviste(Indice)?
    dovrebbe bastare:

    codice:
    Public Property Let LavorazioniPreviste(ByVal Index As Integer, ByVal s As String)
    l.LavorazioniPreviste(Index) = s
    End Property
    
    Public Property Get LavorazioniPreviste(ByVal Index As Integer) As String
    LavorazioniPreviste = l.LavorazioniPreviste(Index)
    End Property
    Boolean

  3. #3

    Re: Re: [VB6] Proprietà indicizzata di una classe

    Originariamente inviato da Boolean
    dovrebbe
    Con te il condizionale non serve mai...
    Funge, grazie!

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.