Newsgroup: it.comp.lang.visual-basic
Titolo: Proprietà di un oggetto

Ciaooooo!!!
clap clap clap clap!!!!!
Ladies and gentlemen
"la ciliegina sulla torta delle ore 3.45 am"
Si può mettere un array in una proprietà di un oggetto?
A) Si
B) No
A me viene di accendere la lettera A. L'accendiamo?
In poche parole ho una condizione dentro una proprietà di oggetto e a
seconda di questa
condizione questa proprietà deve andare a prendere il valore dentro un array
( oppure l'altro).
Prima i 2 array (TabellaA, TabellaB) li avevo dentro la GET e non avevo
nessun problema ma non mi piaceva
perchè quei 2 array mi servono anche per altri calcoli e per non ripetere lo
stesso codice
ho pensato di portarli all'esterno della GET ma mi sto un pò incasinando
allora prima di continuare ad incasinarmi
volevo chiedere a voi se si poteva fare.
Debby ----)@
PS
Si vede dalla domanda che questa sera sono uscità?
A) Si
B) No

 ha scritto nel messaggio
news:IJ1Hc.73001$G%.27608@tornado.fastwebnet.it...


 Notte
HTH,
Andrea

 SMack
si chiama debug confessionale. nel momento in cui devi formalizzare la
descrizione di un problema, per renderlo comprensibile a qualcun altro, è
molto probabile che lo capisca anche tu.
-- 
Salutoni
Sergio
per rispondere... togli il group dall'indirizzo

 si chiama debug confessionale. 
Aaaaarrgghhh!
Un Reality NG :P
-- 
Math Parser : 
http://www.neodatatype.net
Sito Comune : 
http://www.it-lang-vb.net

molto probabile che lo capisca anche tu.
Tu ci scherzi, ma non sai quante volte l'ho applicato io. E' uno dei
motivi per cui mi piace lavorare in team. Uno dei difetti di lavorare
da soli e' che molto spesso ti incaponisci a affrontare le cose in un
certo modo rifiutando di vedere le possibili e efficaci alternative.
Il malcapitato di turno pero' non era cosi' felice... :))))
--
Ciao!
Luca Menegotto

 Tu ci scherzi
luca, non stavo affatto scherzando, sono pienamente e assolutamente convinto
della validità della cosa, e la pratico costantemente.
la cosa divertente è che non c'è bisogno che l'interlocutore capisca
qualcosa di informatica, anzi, se è diguino della materia, bisogna sforzarsi
di spiegare meglio la cosa, ed è ancora più facile che la soluzione si
presenti "da sola".


 presenti "da sola".
Infatti io lo faccio con la morosa :) che poverina è semplcemente un art e
non capisce una mazza di programmazione :)
Saluti 
-- 
[CapoBecchino]
www [dot] boundlessminds [dot] it
Da Barzellette.it:
 In una lapide di un cimitero c'è questo epitaffio:
"Qui riposa, per la seconda volta, Ernesto Rossi. Una prece."
Un tizio, incuriosito, chiede informazioni al necroforo che, fra l'altro,
conosceva il defunto e così gli risponde:
- Vede signore, il defunto Rossi in vita lavorava in Comune...
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Mettilo in una classe, ed hai risolto|
mmm, decisamente meglio due function: lLe property Get 
parametrizzate non sono standard per COM.
tutt'al piů (ma č bruttissimo e scomodo):
    Dim c As Class1
    Dim array1() As Variant
    Dim array2() As Variant
 
    Set c = New Class1
    array1() = Array("a", "b", "c", "d", "e")
    c.arr() = array1()
 
    array2() = c.arr()
 
    MsgBox array2(1)
con Class1:
Option Explicit
Dim m_arr() As Variant
Public Property Get arr() As Variant()
    arr = m_arr()
End Property
Public Property Let arr(ByRef a() As Variant)
    m_arr() = a
End Property
brrrr... meglio due function :-)
Ciao,
Moreno
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Moreno
Andrea

Io alla fine ho fatto cosi:
(è sempre il solito progetto di mesi e mesi fa, per le anime pie che mi
hanno dato una mano in tutto
questo tempo... non vi mettete a ridere, per me è un hobby e non ho scadenze
ma ho come il presentimento
che mi sia salvata dalla rivoluzione in aereoporto, leggasi Alitalia,
proprio per quest'hobby).
Il mio prossimo ostacolo sarà capire come lavorare con i database visto che
molti dati dovranno essere
archiviati per fare poi dei controlli incrociati con statistiche annesse...
Mah!!!
Inizialmente nella condizione IF DV.ANNOBP < 2004 avevo inserito
2  array lunghissimi (uno prima dell'else e uno dopo) che non sono altro che
2 tabelle parametrali.
Continuando a sviluppare il progetto ho notato che queste 2 tabelle mi
servono anche per altri calcoli
quindi ho deciso di metterle in 2 parti separate e richiamarle a seconda dei
casi
StipTabellaA e StipTabellaB sono diventate due funzioni dove gli passo i
parametri Riga e Colonna e
mi restituiscono il valore.
Penso di aver fatto tutto bene.... spero! (funziona :)))  )
------------------------------------------------
Public Property Get StipendioBase() As Double
Dim intcolonna As Integer
Dim intriga As Integer
intriga = Anz.AnzianitàFisso
intcolonna = Collega.Qualifica
If intcolonna = -1 Then
    If intriga = 0 Then
        intcolonna = 0
        intriga = 0
        StipendioBase = 0
        Exit Property
    End If
End If
If DV.AnnoBP < 2004 Then
    StipendioBase = StipTabellaA(intriga, intcolonna)
Else
    StipendioBase = StipTabellaB(intriga, intcolonna)
End If
Debug.Print "StipendioBase"; StipendioBase; "Euro"
End Property
-----------------------------------------------------
Public Function StipTabellaA(Riga As Integer, Colonna As Integer) As Double
Dim Stipendio(0 To 25, 0 To 2) As Double
----
----
----
[CUT ]
StipTabellaA = Stipendio(Riga, Colonna)
End Function

 molto probabile che lo capisca anche tu.
Sei sempre pieno di risorse... non ci avevo mai pensato ma effettivamente è
cosi e ora che ci penso
mi è capitato più volte di riuscire a trovare una soluzione mentre cercavo
di spiegarlo al mio
boy.
Grazie Sergiooooooooo
Debby ----)@