Newsgroup: it.comp.appl.access
Titolo: Passare parametri a evento mouseDown : URCA Funziona!

Non so come ne perche' ma il tutto funziona.Un grazie al "Maestro" namor 
che ha indicato la via e visto un certo interesse mi dilungo presentando 
il tutto.
Ho scritto poco!
---------------------------------------------
1) Classetta con la withevents (di nome clsCheck)
----------------------------------------------
Option Compare Database
Option Explicit
Public WithEvents oCheck As CheckBox
--
Public Function setItem(oCk As Control)
	Set oCheck = oCk
End Function
--
Private Sub oCheck_MouseDown(Button As Integer, Shift As Integer, X As 
Single, Y As Single)
	If Button = acRightButton And oCheck Then
     	' ------------->qui faccio un po di fatti miei
		oCheck.Parent!tCommento.Visible = Not _
		 	oCheck.Parent.Form!tCommento.Visible
	End If
End Sub
---------------------------------------------------
2) poiche' non mi piace disperdere variabili in giro la seguente 
definizione in un modulicchio
--------------------------------------------------
Public colChecks As New Collection
--------------------------------------------------
3) Pesante integrazione nell'evento di Load_Form
--------------------------------------------------
Private Sub Form_Load()
Dim objCheck As clsCheck
Dim oCtrl As Control
	For Each oCtrl In Controls
	    If Left(oCtrl.Name, 2) = "cT" Then
	        Set objCheck = New clsCheck
	        objCheck.setItem Me("cT" & Right(oCtrl.Name, 2))
	        colChecks.Add objCheck
	    End If
	Next
End Sub
-----------------------------------------------------------------------
4) Una ricca selezione multipla sul form per tutti i ckx che mi 
interessavano e attivazione del mousedown a "[Routine Evento]" (manco il 
codice di base mi ha generato e credo sia giusto cosi')
-----------------------------------------------------------------------
5) Fine le gie' son fe'
s.e. & o.
--
a.cara

 il tutto.
Hai scritto una cosa da Manuale quali sono i tuoi dubbi...?
[CUT]
Posso fare una critica molto banale...??
3) Pesante integrazione nell'evento di Load_Form
 Private Sub Form_Load()
 Dim objCheck As clsCheck
 Dim oCtrl As Control
 	For Each oCtrl In Controls
 	    If Left(oCtrl.Name, 2) = "cT" Then
 	        Set objCheck = New clsCheck
Ho cambiato questa riga in quanto è assurdo ricostruire
il nome della Classe da passare alla Collection dato che
ci stai già su con il For each....!!!
'---------------  NUOVA RIGA
 	        objCheck.setItem oCtrl 
'---------------  VECCHIA RIGA
           objCheck.setItem Me("cT" & Right(oCtrl.Name, 2))
 	        colChecks.Add objCheck
 	    End If
 	Next
End Sub
Ciao
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 End Sub
Sacrosanta correzione vado subito a sistemare la cosa.
(questi sono spesso gli "orrori" del copiaincolla)
c'era anche un'altra piccolezza molto meno appariscente
e gia' che ci sono sistemo pure quella
Danke
--
a.cara

 il tutto.
Scusa se ti chiedo:
hai frequentato un corso di VB oppure fa parte del tuo bagaglio scolastico?
Te lo chiedo perché ho da poco cominciato con access e sto prendendo in 
considerazione di frequentare un corso.
grazie, ciao. 

 -----------------------------------------------------------------------
L'impostazione di "[Routine Evento]" puoi anche farla direttamente dalla
classe (vedi mio esempio 
www.sitocomune.com
, modules 5.22).
E' giusto che non ci sia codice nel modulo della form, perchè è già nella
classe. Se ci fosse codice anche negli eventi mousedown nella form,
verrebbe eseguito prima di quello della classe.
Ciao.
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

 verrebbe eseguito prima di quello della classe.
ohhh Namor ti rivoglio bene ........ anche se quest'ultima cosa potrebbe 
essere opinabile.
-- 
alessandro

 considerazione di frequentare un corso.
Il corso, *se ben fatto*, e' consigliabile. Un corso, fondamentalmente, 
non ti deve insegnare a scrivere quattro istruzioni, quelle le trovi sui 
manuali o in rete, ti deve insegnare le logiche di approccio ai problemi 
ed a "leggere" i manuali.  Fatto questo tutti i linguaggi, e sottolineo 
*tutti*, hanno tre istruzioni il resto e' quasi tutto superfluo.
L'informatica in fondo e' riassunta da una vecchia canzone di Salvi, mi 
sembra, "C'e' da spostare una macchina..."
Come direbbero i colti "imho"
--
alessandro
P.S. Cmq su questo NG ci sono un po' di soggetti che dovresti seguire
hanno tanto da insegnare. Magari qualcuno, alcune volte, lo fa in modo 
un po' confuso (ogni riferimento a persone o cose e' voluto). Se hai dei 
dubbi non ti far scrupolo di chiedere e se anche qualcuno ti cazzia 
(ogni riferimento e' rivoluto) non ti curar di lui pigliati la cazziata 
e insisti, dietro la scorza burbera c'e' pur sempre un uomo.
--
ari a.

 alessandro
---
Daniele 

 :)
che c'e' cidi, invidia?
--
a.cara


Si stanno formando troppe coppiette a questo Cisa.
Forse Luciano aveva ragione.
-- 
_ _
Ciao
MAssimiliano Amendola
Cisa1 - I° Conferenza Italiana per Sviluppatori Access Arezzo 4+5
Giugno 2005 Sono aperte le iscrizioni  Info:  
www.donkarl.com/it


---
Daniele 

 Forse Luciano aveva ragione.
E sě che gliel'avevo detto di non dirlo in giro...
Vatti a fidare!
