Newsgroup: it.comp.appl.access
Titolo: Esempio Speciali effetti sito comune...

Salve a  tutti  volevo domandare se qualcuno ha avuto lo stesso problema che
ho avuto io con un esempio prelevato dal sito comune.
Ho importato un file di esempio riguardante effetti speciali su pulsanti
 ma provando provando mi veniva sempre un errore su questa Runtime che non
riuscivo a capire,l'errore è di questo genere..."Rilevato nome non univoco:
BildArray",è si apre la finestra del debug di vb . Ok ho pensato che forse
sono stato io a commettere degli sbagli controllo niente sepre lo
stesso,quindi ho pensato .provo a importarmi la maschera del db di esempio
per vedere se nel mio db andava.........sorpresa mi riporta lo stesso
errore.......io allora mi domando.. come mai nel db dell'esempio andava è
nel mio avendo la stessa maschera con le stesse funzioni non và.? io uso
access 2000.
 Sub BildArray()
'Questo Array serve per velocizzare la Gestione e non Ricorrere a
For..Each..Next
'nel caso si vogliano aumentare i Controlli aggiungere un Gruppo e
ridimensionare
'l'Array all'inizio del Modulo
'Il nome (Stringa) che contraddistingue il Gruppo Controllo è quello che
darà il
'nome a tutti i controlli del Gruppo aggiungendo il "Progressivo"
   ArrayCtl(0) = "Mail"
   ArrayCtl(1) = "Save"
   ArrayCtl(2) = "Search"
   ArrayCtl(3) = "Stop"
End Sub
--
Ps : non ho scritto tutto il codice per non avere un messaggio enorrme.
 grazie a tutti come sempre.
Gianni B.

 ha scritto nel messaggio
news:3ecddaff$1...@news.bluewin.ch...

A occhio sembrerebbe che nel tuo database, oltre alla Sub di cui sopra,
esista un qualche altro oggetto che si chiama BildArray.
Prova ad aprire l'ditor di VBA ed a ricercare su tutto il database la parola
BildArray.
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 ha scritto nel messaggio
news:temza.25359$Ny5.7...@twister2.libero.it...

 Ciao Roberto come sempre sei puntualissimo ma vedi questo è il codice del
db di esempio che ho prelevato dal sito comune come ti ho detto.....
importando la maschera con tutto il suo codice nel MIO db non và.......forse
devo installare qualcosa che non so.????
-- 
Gianni B.

 Gianni B.


Prova ad importare la maschera dell'esempio in un nuovo database che non
contiene alcunché; apri la maschera e se funziona significa, come io penso,
che c'è qualcosa che non va nei nomi contenuti nel tuo database e nel quale
tenti di importare quella maschera, comprensiva del suo modulo di classe,
con tutto quello che ne può conseguire.


 ha scritto nel messaggio
news:3ecdf...@news.bluewin.ch...

Forse non hai notato che nei Controlli Label c'è una Funzione e che se i
nomi
delle Label e delle Icone non sono = potresti avere conflitti......!!!
Forse hai errato il numero dei Controlli ed essendo la Funzione BildArray
dimensionata per 3 nel caso ne trovasse meno andrebbe in Conflitto.
Mi intrometto come padre del giochino citato............!!!
@Alex.

 ha scritto nel messaggio
news:ToaAa.32188$lK4.9...@twister1.libero.it...

Beh ciao Alex è bello parlare con il Padre mentre io cerco di far Amicizia
con il figlio ..........
Comunque Alex io credo che devo essere un tipo strano perchè nel mio db ho
fatto delle label che assomigliano al tuo Figlio ma non è che sia molto
contento dei risultati  anche se funzionano l'esempio del Tuo figlio lo
trovo molto + pratico è sopratutto molto + pulito del mio...
io ho fatto in questo modo:
Function Size(ctl As String)
Me("" & ctl).SpecialEffect = 1
Me("" & ctl).FontBold = True
Me("" & ctl).ForeColor = 16711680
End Function
Sull'intestazione maschera dove si trovano le "label mascherate":
Private Sub IntestazioneMaschera_MouseMove(Button As Integer, Shift As
Integer, x As Single, y As Single)
For init = 0 To 4
Me("Puls1" & ctl).SpecialEffect = 3
Me("Puls1" & ctl).FontBold = False
Me("Puls1" & ctl).ForeColor = 0
next unit
end sub
Sul'evento maus spostato di ogni "label":
Private Sub Puls1_MouseMove(Button As Integer, Shift As Integer, x As
Single, y As Single)
Size ("Puls1")
End Sub
 Quindi io "Scusami" non so se nel mio db sto usando la funzione "Array" ma
credo di no perchè non ci ho avuto mai a che fare ma con il tuo esempi
"Figlio" mi risparmierei un sacco di lavoro dato che di pulsanti ne ho un
Casotto "Tanti"..........
Scusami è grazie comunque a te ed anche a Roberto che siete sempre molto
presenti è sopratutto aiutate tipi come me che hanno voglia di imparare
sempre qualcosa............. GRAZIE ALEX GRAZIE ROBERTO.
-- 
Gianni B.

 end sub
Quì sembra che tu voglia ripristinare l'aspetto originale al Controllo
"Puls1"....
Ctl cosa sarebbe visto che no gli passi nulla.............!!!!!!!
Ovviamente non può
funzionare...............!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Non sò quanta esperienza di VBA tu abbia, ma hai sicuramente fatto un pò
di confusione, e non hai ben analizzato il corretto funzionameto.
Sono in accordo con Roberto quando ti accennava alla
possibilità di COPIARE dalla Form dell'esempio sia i Controlli
che il Codice, quindi adattarli alle tue esigenze.!
E' brutto dirlo, ma fai il COPIA/INCOLLA e prova a studiarlo
apportando piccole modifiche e verificandone gli effetti.
Il giochino è molto meno banale di quanto sembra ad occhi inesperti.
@Alex.

 ha scritto nel messaggio
news:eVLAa.37123$Ny5.1...@twister2.libero.it...

 Ciao Alex grazie della tua risposta anche se Finalmente ho capito tutto
comunque io quello che so su Vb lo devo solo a voi perchè non sono uno che
và a scuola perchè lavoro quindi mi sono armato di libri è TANTA PAZIENZA ,è
Sopratutto con il vostro aiuto è la vostra pazienza mi diverto anchio in
questo mondo.
grazie di nuovo a te è a tutti quelli che lavorano per questo sito.
-- 
Gianni B.