Newsgroup: it.comp.appl.access
Titolo: Problema : Public WithEvents MioOggetto() As MiaClasse

carissimi, ho necessità di usare una classe utilizzando una matrice per
poterla istanziare "n" volte dando ad ogni istanza un indice...
ovviamente non posso ne' dichiarare Pubblica nel modulo (ammenochè non
sia esterno ma a me non serve cosi') :
 
Es. Public MioOggetto() As MiaClasse
 
"Costanti, stringhe di lunghezza fissa, matrici, tipi di dati definiti
dall'utente e istruzioni Declare non ammesse come membri pubblici di
moduli di oggetto"
 
ne' ancor piu' attaccargli dietro il WithEvents per fargli ereditare gli
eventi della classe (COSA PER ME IN QUESTO CASO FONDAMENTALE)
 
Es. Public WithEvents MioOggetto() As MiaClasse
 
 
mmmmmmm datemi una idea pls...
 
-- 
--------------------------------
Pablitomf
 
Napoli sempre nel "Q"uore!
 

 ha scritto nel messaggio 
news:201203091...@mynewsgate.net...

Se ho ben capito tu crei un modulo di classe e visto che non è shared puoi 
istanziarlo n volte.
Hai anche una matrice che ti permette di istanziare la classe n volte. OK?
Quindi avendo un indice nella matrice anzichè scrivere:
Dim Pippo as new NomeClasse
Dim Pippo2 as new NomeClasse
potresti scrivere:
 
Dim i As Integer
Dim Pippo(10)
 
For i = 1 To 10
Set Pippo(i) = New NomeClasse
'qui fai le operazioni che ti servono, magari usando il preserve per 
mantenere la matrice
Next i
 
Insomma quasi un array di classi.
 
Ciao, Carlo
 
 
 
 
 

 ha scritto:

In teoria si, ma in pratica no... io ho specificato che mi interessa il
WhitEvents relativo alla matrice della Classe... ovvero, poter istanziare
"n" volte la classe avendone l'indice, ma sul singolo indice recuperare il
WhitEvents... 
 
Es.
 
Public WithEvents AgenteSegreto() As ScuolaDiSpionaggio
 
For i = 1 To 10
 Set AgenteSegreto(i) = New ScuolaDiSpionaggio
Next i
 
in ScuolaDiSpionaggio ci sarà un controllore che verifichera' gli eventi
dei singoli 10 AgentiSegreti, e al momento giusto attivera' quelli
allertati... 
 
Private Sub EventoFurto(Index as integer)
  Msgbox "Caro Agente Segreto n. " & _
         Index & _
         " ti stanno fottendo la macchina"
End Sub
 
..e haime' tale proprieta' non e' gestibile (almeno che io sasppia)... mi
chiedevo se ci fosse un modo per aggirare l'ostacolo.



Mauri' ho letto i tuoi due post e quello di Carlo.
Non e' che abbia capito molto di quello che ti serve.
Infilare l'istanza di classe in una collezione e' la cosa piu' normale 
del mondo. E poiche' la collezione e' un array associativo puoi 
richiamarla attraverso un indice mnemonico. Quando scatta il withevents 
viene eseguito su quell'istanza tutto quello che vuoi.
Spiega meglio. Ho un po di codice in giro. L'ho usato per intercettare 
il click di un "array" di check option (eran trecento eran giovani e 
forti e non me la sono sentita di scrivere troppo)
 
 
-- 
 
ac (x=y-1)

 chiedevo se ci fosse un modo per aggirare l'ostacolo.
 
 
Prova ad usare RaiseEvent per creare nella classe un evento
personalizzato. Trovi un esempio nella mia relazione della CISA1 sul sito
di Karl.
Ciao.
-Marco-
 
 
-- 
 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it
 
 
 


Ti risposi già in privato su questo argomento...!
Cosa non ti è chiaro...?
;-)
 
Tra gli esempi che ho fatto c'è proprio l'implementazione di una
Collection di Classi che indicizza gli eventi in PURO STILE OOP(per
quanto il VBA sia puro).
 
@Alex