Newsgroup: it.comp.appl.access
Titolo: Gif animate in forms

Salve a  tutti , ho intrapeso una strada per quanto mi riguarda
difficile , quella di inserire in una maschera una gif animate , o con
un bottone o su apertura , ora ho caricato un ocx gif89.dll , ora
riesco ad avvere un controllo , ma non so come sull'evento click falla
visualizzare , ho provato con me!gif.src="c:\prova.gif"
ma nulla chi mi aiuta a dirmi il percorso giusto da scrivere?
mille grazie

 ha scritto nel messaggio 
news:1166438182.3...@t46g2000cwa.googlegroups.com...

Ma se inserisci il controllo webbrowser e inserisci nel body la gif animata?
es.
Dim stringaHTML As String
stringaHTML = "<img src='c:\documenti\Animazione.gif'>"
Me!WebBrowser0.Document.body.innerHTML = stringaHTML
Ciao.
-- 
Sergio MAZZA 

Sergio MAZZA ha scritto:

Oppure, potresti fare un ciclo delle gif.
Private Sub Animazione_Click()
  If Me!Animazione = True Then
        Me.TimerInterval = 300
  Else
        Me.TimerInterval = 0
  End If
End Sub
Private Sub Form_Timer()
  If I > 0 Then
        Me.Controls("Copia" & I).Visible = False
        If I = 6 Then I = 0
  End If
  I = I + 1
  Me.Controls("Copia" & I).Visible = True
 
End Sub
Ciao
.Bat

 ha scritto nel messaggio 
news:em6760$s5v$1...@tdi.cu.mi.it...

Ciao Sergio,
la tua idea č buona, ma VBA non esegue la terza riga e mi restituisce : 
Variabile oggetto non impostata.
Il conrtrollo si chiama WebBrowser0  ed il percorso della gif l'ho mutato 
all'occorrenza.
Devo indicare qualche riferimento particolare ?
IvanDaBologna 

 IvanDaBologna
No, i riferimenti li acquisisci inserendo l'activex; però ho riscontrato 
problemi se viene "iniettato" l'HTML prima che il controllo abbia 
visualizzato una qualsiasi pagina web.
Quindi prova a fare così:
'---
Dim stringaHTML As String
Me!WebBrowser0.navigate2 "about:blank" '<-- crea la struttura HTML
Do
    DoEvents
    If Me!WebBrowser0.readyState = READYSTATE_COMPLETE Then
        Exit Do
    End If
Loop
stringaHTML = "<img src='C:\documenti\Animazione.gif'>"
Me!WebBrowser0.Document.body.innerHTML = stringaHTML
'---
Ciao.
-- 
Sergio MAZZA 

 Sergio MAZZA
Sě cosě funziona perfettamente e senz intoppi.
grazie
IvanDaBologna

 Sergio MAZZA
Ciao Sergio
ti ricordi come si fa a ridimensionare un'immagine caricata nel controllo 
alle dimensioni del controllo stesso?
Ciao, Carlo 

 Ciao, Carlo
Stiamo parlando di HTML?
In verità non l'ho mai fatto ma dovresti leggere la l'area utile del browser 
(l'ho tradotta a "pene di segugio").
Comunque:
Contains information about the client's screen and rendering abilities.
- window.availHeight/availWidth
Oppure:
Returns the vertical resolution of the screen, in pixels.
- window.height/width
Se trovo uno script te lo invio qui...
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggio 
news:emb33q$kjt$1...@tdi.cu.mi.it...

Grazie Sergio.
Parliamo di un controllo WebBrowser inserito in una maschera.
Questo codice non funziona:
Dim ret
ret = Me.WebBrowser0.ClientToWindow(Me.WebBrowser0.Height / 10, 
Me.WebBrowser0.Width / 10)
Ciao, Carlo 

 Ciao, Carlo
Forse questo:
http://groups.google.it/group/it.comp.lang.javascript/browse_thread/thread/174e00df28ad5a06/398aef66084d0b79?lnk=st&q=html+resize+immagine+finestra+browser&rnum=7&hl=it#398aef66084d0b79
Ciao.
-- 
Sergio MAZZA 

 Sergio MAZZA
Ciao Sergio,
ho esultato troppo!
La gif animata viene caricata ed eseguita, ma non risesco a imporre le 
dimensioni che voglio al controllo webBrowser !
Assume l'aspetto di un rettangolo 4(larg) X 2(altezza) cm. Non trovo il modo 
di variarlo ...
Mi chiedevo quale OCX sia interessato e da dove sia originato, magari ho 
un'istallazione 'sporca' di quell'oggetto particolare
io ho il riferimento a WebServices1.dll  !! (il problema che ha un percorso 
che punta ad \Autodesk shared\ quindi non credo che parliamo dello stesso 
controllo!
Io uso A2002 (XP).
IvanDaBologna 

 Ciao, Carlo
Azzera tutto.
Prova così
stringaHTML = "<img src='C:\documenti\Animazione.gif' width='100%' 
height='100%'>"
A me ridimensionando il controllo activex mi si ridimensiona l'immagine...
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggio 
news:emb647$p3f$1...@tdi.cu.mi.it...

Era molto più semplice di quello che pensavo:
"<img src='C:\Image.jpg'" & "width=168 height=136>"
Riprendendo il tuo codice...:
Dim stringaHTML As String
Me!WebBrowser0.Navigate2 "about:blank" '<-- crea la struttura HTML
Do
    DoEvents
    If Me!WebBrowser0.ReadyState = READYSTATE_COMPLETE Then
        Exit Do
    End If
Loop
Dim rH As Long, rW As Long
rH = Me!WebBrowser0.Document.body.clientHeight
rW = Me!WebBrowser0.Document.body.clientWidth
stringaHTML = "<img src='C:\Image.jpg'" & " width=" & rW & " height=" & rH & 
">"
Me!WebBrowser0.Document.body.innerHTML = stringaHTML
Il tutto l'ho capito anche grazie al tuo link che di per sè non produceva 
una soluzione adatta, trattandosi di linguaggio Java, ma che dava una 
indicazione fondamentale: document.body.clientWidth e 
document.body.clientHeight, cioè l'area client del controllo.
L'altro fondamentale passo è stata la mia curiosità: come fa IE e fare il 
resize delle immagini? Mi è venuto spontaneo aprire una qualsiasi pagina e 
visualizzare l'HTML...per esempio la pag. di Google dove c'è un bel logo. Il 
codice Html dice: <img src=/intl/it/images/t4_ie.gif alt="Google Toolbar" 
width=715 height=25.
Da qui è stato facilissimo.
Da quello che ho letto in giro questo è un argomento molto ostico e i vari 
programmatori si affannano a cercare soluzioni difficilissime.
Grazie ancora, Carlo 

 ha scritto nel messaggio 
news:emba8r$ugs$1...@tdi.cu.mi.it...

 Sì. Siamo arrivati insieme alla stessa soluzione.
Ora rimane il problema posto da Ivan: come far assumere al controllo e non 
all'immagine, le dimensioni volute. Mi pare si sia già trattato l'argomento, 
tempo fa, e microsoft propone una soluzione che francamente non ricordo.
Ciao, Carlo 

 IvanDaBologna
Ciao.
-- 
Sergio MAZZA 

 Ciao, Carlo
Io ho provato con Me!nomeControllo.Height/Width...
Ciao.
-- 
Sergio MAZZA 

> Quindi prova a fare così:

 Trovato! Provato e funziona.
http://support.microsoft.com/kb/161397/EN-US/
L'articolo riguarda la versione 97 ma si adatta perfettamente alla XP.
Ciao; Carlo 

 Ciao; Carlo
Ah! Per il '97...
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggio 
news:embcf4$1g8$1...@tdi.cu.mi.it...

Il mio AXP, aggiornatissimo, soffre del medesimo problema, probabilmente 
perchè sul db in uso e prima di aver inserito il Web Browser, ho rimosso il 
riferimento (che AXP mette di default) a Microsoft Office Web Components.
Ciao, Carlo 

 Sergio MAZZA
Ok, adesso funziona davvero.
Il mio selettore di componenti č talmente fitto di elementi che Microsoft 
Web Browser era passato inosservato ....
Grazie ragazzi
IvanDaBologna