Newsgroup: it.comp.appl.access
Titolo: Activex Kodak su report

Ciao a tutti,
In una maschera inserisco oltre ai dati  anche un'immagine da allegare ad
ogni record..Questa immagine poi viene visualizzata su un report. Il
problema è che questa immagine deve essere visualizzata ruotata di 90° verso
destra. Uso gli activex kodak (controllo modifica immagine kodak).
Nell'evento su formattazione del report avevo messo questo codice:
Private Sub Corpo_Format(Cancel As Integer, FormatCount As Integer)
Me.Cornice.Picture = vbNullString
If IsNothing(Me.Fotografia) Then Exit Sub
If Not fIsFileDIR(Nz(Me.Fotografia, "")) Then
Else
   Call fLoadPicture(Me.Cornice, Me.Fotografia)
  End If
End Sub
In questo modo richiamo l'immagine e me la visualizza sul report.
ho usato la Cornice immagine e il path dell'immagine.
Per ruotarla ho dato un occhiata al database di esempio sugli activex kodak.
Queste due righe le metterei dopo Call fLoadPicture(Me.Cornice,
Me.Fotografia):
 CtlActiveXImage.RotateRight 900
   Call ImpostaRuot(900) ,
ma mi son bloccato sull'errore ke l'immagine era visualizzata su una
cornice, mentre dovrebbe esssere visualizzata sul controllo..
Grazie mille per l'aiuto..
Ciao Ludo..

 ha scritto nel messaggio
news:sSmde.53185$Of5....@nntpserver.swip.net...

Ci sono diverse righe del codice VBA che hai postato che non capisco a cosa
servano o meglio cosa facciano.
Resta il fatto che l'immagine deve essere visualizzata all'interno di un
controllo ActiveX Kodak di tipo modifica immagine e dopo che l'hai
visualizzata la puoi ruotare di 90° a destra con:
NomeActivexKodak.RotateRight 900
Naturalmente sia il codice VBA per la visualizzazione del file immagine che
quello per la sua rotazione va generato a fronte dell'evento "Su
formattazione" della sezione del report che contiene il controllo ActiveX
Kodak.
Ti ricordo che la visualizzazione dell'immagine nell'activeX la otterrai
impostando il path del file immagine nella proprirtà Image del controllo
ActiveX Kodak e quindi usando il metodo Display, insomma qiualcosa del
genere:
NomeActivexKodak.Image = Me!PathFileImmagine
NomeActivexKodak.Display
Insomma, a fronte dell'evento su formattazione devi scrivere:
'Visualizza l'immagine
NomeActivexKodak.Image = Me!PathFileImmagine
NomeActivexKodak.Display
'Ruota l'immagine di 90° a destra
NomeActivexKodak.RotateRight 900
-- 
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------

 Roberto
Ciao su formattazione ho messo cosi:
Me.Cornice.Picture = vbNullString
If IsNothing(Me.Fotografia) Then Exit Sub
If Not fIsFileDIR(Nz(Me.Fotografia, "")) Then
Else
   Call fLoadPicture(Me.Cornice, Me.Fotografia)
   Ruota.Image = Me!Fotografia
   Ruota.Display
   Ruota.RotateRight 900
End If
End Sub
Ruota č il nome del controllo activex.
Mi da errore: Errore di run time, impossibile ruotare l'immagine di 90°.
Ho provato a togliere Ruota.RotateRight 900 x vedere se almeno me la
visualizzava ma nulla..
Ho sbagliato qualcosa?
Ciao Ludo..ancora grazie mille..

 Ciao Ludo..ancora grazie mille..
Non ho capito cosa sia Cornice e cosa facciano le funzioni fLoadPicture e
fLoadPicture; quanto alle funzioni sul controllo ActiveX mi sembrano
formalmente esatte.


 Roberto
Perchč nella maschera avevo messo quel codice x visualizzare l'immagine
nella cornice.
Cornice č il nome ke ho dato alla cornice immagine dove faccio visualizzare
la foto.
con fload picture nella maschera caricavo l'immagine e me la faceva
visualizzare..
Per evitare casini avevo copiato tutto il codice...infatti funziona
Nel report ce il controllo immagine (il path) e la cornice dove viene
visualizzata la foto.
Forse mi sa devo dare un okkiata a quel codice non vorrei fosse  quello il
problem..

Ho tolto tutto il codice ke cera su formattazione ed ho lasciato:
Ruota.image = Me!fotografia (ke č il path)
Ruota.display
Ruota.rotateright 900.
Non mi fa visualizzare neanke il controllo activex quando faccio l'anteprima
del report..
Nella scheda proprietą del controllo activex ho visto l'opzione
imagedisplayed impostata su no.
Ho provato ad attivarla ma mi dice ke č di sola lettura..
Ho l'impressione di essermi arenato in una cavolata..
Ludovico..

 Ludovico..


 ha scritto nel messaggio
news:S5Sde.54008$Of5....@nntpserver.swip.net...

Continuo a non capire cosa sia quello che tu chiami "cornice" e in cui dici
di visualizzare il contenuto di un file immagine; che tipo di controllo č?
Io so solo che se decidi di usare un controllo ActiveX Kodak per
visualizzare e ruotare una immagine, a tale scopo non hai bisogno di far
riferimento a nessun altro tipo di controllo ed al richiamo di funzioni
utente particolari; con solo tre righe di codice VBA visualizzi l'immagine e
la ruoti.


 Roberto
Ciao, cornice č il controllo immagine. In pratica nella maschera, ho messo
un pulsante ke mi rikiama la finestra di selezione.
Scelgo la foto da inserire e questa mi viene visualizzata in cornice (ke č
il controllo immagine).
Ho provato il controllo activex sulla 
maschera.li
 va a meraviglia..
Nel report no invece..mi dice sempre impossibile ruotare l'immagine di 90
gradi,,errore di run time 1001 (credo).

 ha scritto nel messaggio
news:Tl1ee.54142$Of5....@nntpserver.swip.net...

Potresti visualizzare il file in un controllo ActiveX Kodak in una maschera,
ruotarlo e riregistrarlo cosě ruotato, quindi visualizzare nel report il
file ruotato.


 Roberto
Nella maschera ho messo il controllo kodak ke mi fa ruotare l'immagine e fin
qui tt ok.
Nel report, l'immagine gia ruotata come faccio a riregistrarla? e poi la
faccio visualizzare su un altro controllo kodak nel report o basta un
controllo immagine?
scusa se ti rompo ma ho provato e riprovato ma nada..non ce verso di farmi
visualizzare l'immagine sul report..
Ciao ludo..grazie mille..

 Ciao ludo..grazie mille..


 Roberto
In pratica come si farebbe?speravo ke ci fosse un istruzione ke mi
permettesse di portare il contenuto del controllo kodak su controllo
immagine..sigh..
Ludo..

 ha scritto nel messaggio 
news:ENmee.54702$Of5....@nntpserver.swip.net...

Il suggerimento di Roberto è perfetto.
Salvi l'immagine ruotata (che potrai sempre cancellare dopo aver fatto le 
tue stampe) e quindi hai il percorso e il nome del file (per esempio 
"C:\Documenti\Immagini\TuaImmagineRuotata.tif"). Assegni questo percorso ad 
una variabile stringa e la assegni alla proprietà Picture di un controllo 
Immagine sul report:
Su apertura del report
Me.ControlloImmagineSulReport.Picture = MiaVariabilePath
Ciao, Carlo 

 Ciao, Carlo
Si ma x ogni record ovviam ce una foto diversa..ehm mi spiegheresti la
variabile stringa?cos è?
scusa l'ignoranza..
ludo..

 ha scritto nel messaggio 
news:GzFee.55142$Of5....@nntpserver.swip.net...

Scusa il ritardo.
Variabile stringa vuol dire che non è un numero ma una variabile letterale 
che può contenere dei numeri ma vengono trattati come stringhe appunto.
Leggi questi argomenti sulla guida: sono fondamentali per una corretta 
gestione e implementazione del codice.
La variabile in sè è una posizione predefinita dove vengono memorizzati dei 
dati di tipo...numerico, STRINGA, Variant, oggetto, ecc..
Le variabili vanno dichiarate a livello di modulo con l'istruzione Dim 
seguito dal nome della variabile e dal tipo di dati della variabile stessa.
Dim MioTesto as String:
dichiaro che MioTesto è una variabile (in quanto il suo contenuto può 
variare) di tipo String (stringa). Questa variabile può essere pubblica o 
privata...ma qui il discorso diventa troppo lungo. Leggi la guida.
Ciao, Carlo