Newsgroup: it.comp.appl.access
Titolo: Form : Caric.Immagini (Lebans ). Incorpora, non collega...

File : PictureBoxA2k
Modulo : Bas_CaricaImmagini
Autore : Lebans - 
http://www.lebans.com/DownloadFiles/PictureBoxA2K.zip
Come da oggetto, la routine per il caricamento di immaggini di Lebans, se
pur veloce, non collega le immagini alla form, ma le incorpora
(appesantendo vistosamente il db)...qualcuno ha risolto il problema
riuscendo a collegare l'immagine apportando modifiche al codice?
Grazie.
-- 
Pablitomf (Maurizio Facciuti)
“Quando non ti eserciti ricorda che qualcuno in qualche posto si sta
allenando e, quando lo incontrerai, ti batterà”.
Ed Macauley 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Grazie.
Non ho A2K sotto mano ma quanto dici mi pare poco probabile.
Non passando per il Design non sarebbe possibile incorporare
un oggetto, e poichè sono sicuro che non passa per il Design
non credo sia questo il problema.
Se le tue considerazioni nascono dal fatto che 
riaprendo la maschera mantiene l'immagine può
dipendere da un errato modo di liberare, o addirittura
da un mancato liberamento della proprietà Picture 
ma succede solo con MDB, hai provato a creare un MDE e
vedere se ti da lo stesso problema...?
La versione A97 che sto provando non dà assolutamente
questo difetto, oppure ho capito male.
Ciao
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 @Alex
Io la faccio passare per il DESIGN... poi creo il controllo
Set newctl = CreateControl("Frm_zzz", acImage, , , , x,y,z,w)
fLoadPicture newctl, "C:\\Img\xx.jpg"
'newctl.Picture = "C:\RistHotel\Img\Tabloid4.jpg"
newctl.Name = "Img" & CStr(a) & "_" & CStr(i)
newctl.PictureAlignment = 0
'newctl.PictureType = 1
come vedi se uso LEBAN, non posso usare il PictureType xkè mi disabilita
l'immagine... x questo devo usare il Picture e disabilitare fLoadPicture 
Sbaglio in qualcosa secondo te?


 Sbaglio in qualcosa secondo te?
Forse...! non saprei perchè non ho modo di provare:
1)Setta come ti dicevo la proprietà PictureType=0
poi la funzione di LEBANS la devi usare dopo averlo creato
e formattato il controllo non prima...!!!
[OSSERVAZIONE]
Sai che creando il controllo Runtime anche se gli dai
il nome non lo usa...!!!
Devi crearlo e RINOMINARLO altrimenti gli dà come ovvio
il nome con il progressivo classico.
Ciao
@ALex.


  fLoadPicture newctl, "C:\Imgxx.jpg"
Dici di fare questo?
Set newctl = CreateControl("Frm_zzz", acImage, , , , 20, 20, 12000, 30000)
newctl.PictureType = 1
fLoadPicture newctl, "C:\Img\xxx.jpg"
newctl.Name = "Img" & CStr(a) & "_" & CStr(i)
newctl.PictureAlignment = 0
Non funziona... ti ripeto, se sbaglio non lo so... ma credendo che la
risposta è "Si sbaglio" mi piacerebbe capire dove...
Se tu lo hai capito e me ne fai partecipe ti ringrazio Ale.
Ciao


 Ciao
Premetto che non sò se sbagli, come ti dicevo non ho modo
di testare il tutto.
Credo però che sia concettualmente sbagliato quello che
vuoi fare.
Il caricamento dell'immagine si dovrebbe fare dalla modalità
normale non in Design.
Passare un tipo dato stdPicture in DesignView che io 
sappia non è da fare e non dovrebbe essere possibile
farlo.
Non capisco perchè tu debba caricare l'immagine durante il
Design in quel modo.....??????
Se spieghi meglio cosa vuoi realmente ottenere, forse ci sono
soluzioni alternative...!!!
Ciao
@Alex.


 @Alex.
Se hai news fammi sapere
Se ti serve sapere altro chiedi pure, ma credo ti bastiquesto no?
Ciao Ale


 Cmq, funziona, ma leban era + veloce.
NOn solo, il runtime non legge il picture
MAssimiliano

 Ciao Ale
Come può memorizzare senza INGLOBARLO se non gli passi il RIFERIMENTO
ma una STRUTTURA dai Complessa come stdPicture.....????
Come ti dicevo è concettualmente impossibile.
Così come fai tu gli passi la PATH dell'immagine ed il controllo
la MEMORIZZA cosicchè aprendo la Form la recupera.
Come vorresti fare con LEBANS gli passi una struttura dato di tipo
BYTE(anche se non la vedi) se la INGLOBI durante il DESIGN deve
funzionare
se invece la vuoi collegata......
CHIEDITI 
che riferimento ha per recuperarla...?????!!!!!!!
NOn gli hai dato un riferimento fisso ma un PACCHETTO di Byte
che lui converte in IMMAGINE.
NOn saprei come spiegarti meglio per mè è estremamente chiaro.
Secondo me dovresti memorizzare in qualche posto il nome dell'Oggetto
Immagine che hai appena creato e su OPEN della Form recuperare
l'oggetto e passarlo alla Funzione di LEBANS.
Qualche esempio di dove salvarli:
FILE.INI
FILE.TXT
Tabella Dedicata
Registro
ProprietàDelDB
....................
Ti basta creare una Funzione Generica che passandogli il Nome
del Controllo Immagine(New) applichi la Funzione.
Ciao.


 @Alex.
;-)
