Newsgroup: it.comp.appl.access
Titolo: Label: emulare evento exit

Ciao a tutti,
ho una serie di etichette che clicko a seconda dei casi.
La loro funzione è altenativa (se clicko su una l'altra perde valore) e l'ho
gestita con i withevents.
Funziona.
L'unica cosa è che non riesco ad intercettare il valore dell'etichetta
precedente per farli fare una serie di
cose diverse.
Se fosse una textbox avrei l'evento exit, con le label no c'è qualcosa di
omologo?
Tks
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa1 - I° Conferenza Italiana per Sviluppatori Access Arezzo 4+5 Giugno
2005
Info:  
www.donkarl.com/it

 Tks
Puoi salvare in una variabile pubblica il nome dell'ultima etichetta
cliccata, cosě quando passi alla prossima sai qual'era la precedente e la
puoi 'lavorare'.
O usare textbox bloccate al posto delle etichette, pero poi si vede il
cursore, e non č tanto bello. Soprattutto adesso che ti stai sforzando per
migliorare l'estetica...
Namor
-- 
namor at inwind punto it
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Namor
non blocchiamolo in questa ardua odissea ... ;-)

 non blocchiamolo in questa ardua odissea ... ;-)
No, no, ma sentiremo tutti la mancanza delle sue piccole maschere morte...


 Namor
E' quello che hpo fatto,
Solo che mi ostinavo a definirla label e non string
quindi ho fatto
Public LblPrec As String
e nell'evento
    If LblPrec <> "" Then Screen.ActiveForm(LblPrec).ForeColor = vbWhite
poi chiaramente nel controllo con evento
ci metto
LblPrec = 
me.miocontrollo.name
e tutto va.
la chiave è stata quel as string
La bellezza delle mie nuove mascher è intatta


 Namor
Un'alternativa, a me non piace in questi casi 
l'uso di variabili Public esterne poichè
mi creano confusione e dispersione del codice
(è una considerazione personale), è ripassare alla
Form nella quale istanzi la classe l'evento che seleziona il controllo
Label e memorizzarlo in una variabile Private nella Form.
In pratica nella classe avrai l'evento Click, bene su questo generi un
evento Public di Classe con il RaiseEvents e gli passi il Controllo
oppure
il NomeControllo che mi pare nel tuo caso sia più utile, quindi dalla
Form dichiari la classe withEvents e ne gestisci l'evento Public:
Nella Classe:
'-------------------------------------------------------------------
Public Event SetLastLabel (strName as string)
' Questo dovrebbe essere l'Evento già gestito.
Private ctlLabel_Click()
   RaiseEvent SetLastLabel (ctl.Name)
   'altre procedure
End Sub
Nella Form:
Private WithEvents cL as NomeClasseLabel
Private NomeLabel as string
Private cL_SetLastLabel(strName as string)
   NomeLabel=strName
End sub
Dovrebbe essere chiaro.
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Namor
Un'alternativa, a me non piace in questi casi l'uso di variabili Public



Dai Massimiliano fai uno sforzo non e
difficile.....................:-))))))))))
Ti serve una mano!!!!
Rino®
