Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto con modulo di classe...

Salve,
ho creato un ogetto, nel modulo di classe ho inserito una property get
e una let, entrambe dichiarate come public, riesco a salvare il valore
che passo all' oggetto ma quando vado a rileggerlo non mi passa
niente. Eppure nella variabile che dichiaro nel modulo, il valore che
voglio riprendere dopo ce lo mette!!
Incollo quanto ho scrito:
Nella form ho messo: (ma perchè si dice LA e non IL form?)
Private Sub CmdOk_Click()
    'definisco l' oggetto Info
    Dim Info As cls_Info
 
    'istanzio l' oggetto info
    Set Info = New cls_Info
    ----
    ----
    ----
    ----
    frm_Principale.lblDatabase_2.Caption = Info.GetPathCompleto
End Sub
mentre nel modulo:
Private strPathCompleto As String
    ----
    ----
    ----
    ----
    ----
'propietà in scrittura, memorizza il path più il nome del database
Public Property Let LetPathCompleto(ByVal PathCompleto As String)
    strPathCompleto = PathCompleto
End Property
'propietà in lettura, restituisce il path più il nome del database
Public Property Get GetPathCompleto()
    strPathCompleto = strPathCompleto
End Property
perchè quando arrivo ad eseguire, in uscita dal modulo:
	frm_Principale.lblDatabase_2.Caption = Info.GetPathCompleto
Info.GetPathCompleto è vuoto???
e quando invece eseguo, dentro il modulo:
	strPathCompleto = strPathCompleto
mantiene il valore giusto???
Aspetto news, grazie,
Saluti, ciao ciao.

 'propietà in scrittura, memorizza il path più il nome del database


End Property
5=5, pippo=pippo, "Lunapop - Giorno Migliore (2000)" = "Ocean Colour Scene - Better Day (1997)".
Elementare Watson!
;-)
Ciao,
Moreno
#sirri#@#morenosoft#.com
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.morenosoft.com/MSVBSite/
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------

End Property
Rileggi bene quello che hai scritto e poi dietro la lavagna!
Ciao

> 'propietà in lettura, restituisce il path più il nome del database
Bhè spetta!! Li ho fatto ctrl/c ctrl/v...bastava sbagliare una volta
che...ecco il risultatto :)) Allora sai le volte che l' ho scritto
male nel mio progetto...mo correggo :))
Il problema è che digito a 10 dita e...controllarle tutte è un
macello...considera che già 5 erano fuggite sulla tetta della mia
ragazza :)))

Elementare Watson!
Elementare che??
quello che scritto è giusto..nel modulo, quando arrivo all' itruzione
frm_Principale.lblDatabase_2.Caption = Info.GetPathCompleto e va nel
modulo, quando esce per ritornare di la nel form, il valore lo
mantiene!!! e ' quando gli dico di assegnarlo alla proprietà caption
della label che mi si svuota.
Se io dico...pippo = 5, e poi dico, scrivimi pippo = al valore di
pippo; quanto vale pippo? 5!!! Perchè non posso farlo? Bhà, non ho
capito dove ho sbagliato....

capito dove ho sbagliato....
Confermo...

 wrote in message
news:3a30eda9...@news.libero.it...

Oggi mi sento buono:
'Non:
Public Property Get GetPathCompleto()
    strPathCompleto = strPathCompleto
End Property
'Bensi':
Public Property Get GetPathCompleto()
    GetPathCompleto= strPathCompleto
End Property
Riguardo alla faccenda il/la form, in inglese tale parola ha, tra i vari
significati, quello di "modulo, scheda".
Ergo:
se intendi "modulo" allora "il form", se intendi "scheda" allora "la form"
L' incontro si chiude con un nulla di fatto. :-)
Ciao
Aldo

End Property
E perchč? allora se io scrivo:
Dim intPippo As Integer
Private Sub Command1_Click()
    Call pippo(1)
 
    Text1.Text = intPippo
End Sub
Public Sub pippo(ByVal num As Integer)
    intPippo = 0    
    intPippo = intPippo + num
End Sub
dovrei scrivere Text1.Text = pippo??? 

 dovrei scrivere Text1.Text = pippo???
Infatti non lo puoi scrivere. pippo e' dichiarata come Sub, quindi non
restituisce valori.
<CHAT smile=true>
Ma tu, scrivi il codice direttamente dentro freeagent ?
</CHAT>
Ciao
Aldo

</CHAT>
Si, perchè che altro ho fatto questa volta?

End Property
è come scrivere
Public Property Get GetPathCompleto()
    1 = 1 ' Sì, vero... e allora?
End Property
e GetPathCompleto rimane vuota.
A proposito, mai sentito parlare di "valori tipizzati", "non usare i
variant", ecc.?
Anche la tua sub è corretta come sintassi e stavolta funziona pure
l'esempietto che hai fatto, ma non è molto pulito usare una var globale per
lo scopo.
Inoltre non ho capito che relazione c'è tra i due codici: porti la teoria
della sub a sostegno di quella della prop. ma sono due cose completamente
diverse!
Come dire "il cielo è azzurro (vero) perchè le formiche sono degli insetti
(vero) allora io ho ragione (falso! FALSISSIMO!)".
Non sempre due sentenze vere portano ad una conclusione vera.
Ciao

 Rileggi bene quello che hai scritto e poi dietro la lavagna!
^____^
--
Fibia "Sakamoto" FBI
URL: 
www.geocities.com/fibiafbi
E-Mail: 
fibi...@hotmail.com
ICQ UIN 63586057
Membro #25 delle Brigate Takahashi Sez. Sud