Newsgroup: it.comp.appl.access
Titolo: activeX mio personale

per creare un mio controllo personalizzato cosi' fatto
100 quadrati messi come una griglia:
si puo' fare con i moduli di classe ?
qualcuno li ha mai fatti oppure sa dove reperire esempi di come si
costruiscono
questi controlli personalizati tramite moduli di classe ?
vanno bene anche esempi similari che facciano capire la metodologia
costruttiva
grazie

 ha scritto nel messaggio
news:3EA957B7...@lycos.it...

Con Access gli ActivX non sono facilmente fattibili....!
Però ti vengono in soccorso le Maschere.
Perchè non ti fai una Maschera con i tuoi 100 quadrati
e la rendi flessibile usandola come fosse un Modulo di Classe
se servisse, esponendone Metodi e Proprietà Publiche.
Io ho realizzato, ma come credo molti anno fatto, il famigerato
CALENDARIO usando questo sistema, perchè non mi va di usare OCX.
Ho fatto la mia bella Mascherina con 31 quadratini + Mese + Anno + alcuni
pulsanti
e la richiamo in modo generico, quando scelgo la data, questa mi viene
trasferita
nella mia TxtBox, proprio come l'OCX............!
Ciao.
@Alex.

 Con Access gli ActivX non sono facilmente fattibili....!
Direi che non siano per nulla fattibili  ;-)
Però non è un grosso problema riusare ActiveX creati in Delphi o VB nelle
Forms di Access.

 se servisse, esponendone Metodi e Proprietà Publiche.
qui non ho la piu' pallida idea.
Inoltre anche facendo tale maschera mi rimane sempre lo stesso problema
che ad ogni click su ogni quadratino codice specifico:
oppure poi si puo' fare una cosa simile:
Private Ssub MiaForm100quadrati_click (i as integer)
          MiaForm100quadrati(i).coloresfondo = nero
end sub

 ha scritto nel messaggio
news:3deqa.66775$iy5.1...@twister2.libero.it...

Mi riferivo proprio ad OCX fatti con altri linguacci ed utilizzabili( C++ o
Delphi), lascia perdere VB che ti
obbliga a tirarti dietro Runtime, non che non vadano, ma se devi
iniziare....!!!
Ciao.
@Alex.

 ha scritto nel messaggio
news:3EA97F35...@lycos.it...

No, solo con VB puoi.
Ma come ti dicevo prova a vedere meglio ciò che ti ho indicato
nel precedente Post...!
Es.: ctlQuadretto1
Su Evento Click metti : =Premuto(1)
Es.: ctlQuadretto2
Su Evento Click metti : =Premuto(2)
Es.: ctlQuadretto3
Su Evento Click metti : =Premuto(3)
Poi ti fai la Function :
Private Function Premuto(index as Integer)
    Select Case Index
        Case 1
            'fai quello che vuoi
        Case 2
            ................
        Case 3
            ............
    End Select
End Function
Ciao.
@Alex.

 ha scritto nel messaggio
news:3EA957B7...@lycos.it...

E se facessi una tabella con 100 campi e usi questa tabella per alimentare
la maschera.
Graficamente, nella maschera, usi un aspetto quanto più simile ad un
quadratino, per ogni controllo e li affianchi a mo di griglia.
Puoi anche ovviare alla tabella creando 100 controlli non associati. La
tabella ti permette di memorizzare il valore che potrai usare anche in un
secondo momento.
Ti crei una sub, interna alla maschera, che compie l'operazione che vuoi,
del tipo:
Private Sub ImpostaColore(ctl As String)
Dim ct As Control
Set ct = Me.Controls(ctl)
With ct
.BackColor = 0
End With
End Sub
Per ogni controllo dovrai però scrivere questo semplice codice:
ImpostaColore (Me.ActiveControl.ControlName)
Con copia e incolla sarà questione di 2 minuti.
Facci sapere
Ciao, Carlo

"@Alex" wrote:

non conoscendo il c++ e il delphi in un certo qual senso sono quasi obbligato
a usare VB anche per gli ocx;
ma se poi questi ocx uno li usa ad esempio in access creano problemi in qualche
sistema
operativo da win 95 in poi?
oppure è solo un fatto di dimensione?
scusa per il fatto che devo iniziare perchè è meglio svilupparli in delphi o
c++ ?
c'è un motivo particolare ?

solo a titolo di curiositą, ipotizzo che tu conosca bene anche delphi:
ma che vantaggi ha rispetto a Vb ?
quando č preferibile usare l'uno e invece quando l'altro ?
ma sono simili come linguaggi ?

 ma sono simili come linguaggi ?
Non conosco Delphi, ma ho iniziato C++, e rispetto a VB
ci sono pro e contro come in tutte le cose, ma la cosa
più scomoda e non poter creare eseguibili senza doversi
portare il fardello del Runtime, vale a dire tutte le librerie
necessarie all'interprete VB......!
@Alex.

 ImpostaColore (Me.ActiveControl.ControlName)
il problema è che per i rettangoli e le label l'activecontrol non è
riconosciuto
ho postato specificatamente il problema