Gif animate in forms

[lolince]

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

[Sergio MAZZA]

Post by lolince
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

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.

[PuntoBat]

Post by Sergio MAZZA

Post by lolince
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

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

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

[Ivan da casa]

Post by Sergio MAZZA

Post by lolince
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

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

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

[Sergio MAZZA]

Post by Ivan da casa
Ciao Sergio,
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

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.

[Ivan da casa]

[cut]

Post by Sergio MAZZA
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.
'---
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

Sì così funziona perfettamente e senz intoppi.

grazie


IvanDaBologna

[Carlo Costarella]

Post by Sergio MAZZA

Post by Ivan da casa
Ciao Sergio,
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

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.
'---
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

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

Ciao, Carlo

[Sergio MAZZA]

Post by Ivan da casa
Ciao Sergio
ti ricordi come si fa a ridimensionare un'immagine caricata nel controllo
alle dimensioni del controllo stesso?
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.

[Carlo Costarella]

Post by Sergio MAZZA

Post by Ivan da casa
Ciao Sergio
ti ricordi come si fa a ridimensionare un'immagine caricata nel controllo
alle dimensioni del controllo stesso?
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").
Contains information about the client's screen and rendering abilities.
- window.availHeight/availWidth
Returns the vertical resolution of the screen, in pixels.
- window.height/width
Se trovo uno script te lo invio qui...
Ciao.
--
Sergio MAZZA

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

[Sergio MAZZA]

Post by Carlo Costarella
Grazie Sergio.
Parliamo di un controllo WebBrowser inserito in una maschera.
Dim ret
ret = Me.WebBrowser0.ClientToWindow(Me.WebBrowser0.Height / 10,
Me.WebBrowser0.Width / 10)
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.

[Carlo Costarella]

Post by Sergio MAZZA

Post by Carlo Costarella
Grazie Sergio.
Parliamo di un controllo WebBrowser inserito in una maschera.
Dim ret
ret = Me.WebBrowser0.ClientToWindow(Me.WebBrowser0.Height / 10,
Me.WebBrowser0.Width / 10)
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

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

[Sergio MAZZA]

Post by Carlo Costarella
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

Io ho provato con Me!nomeControllo.Height/Width...

Ciao.

[Sergio MAZZA]

Post by Ivan da casa
Ciao Sergio
ti ricordi come si fa a ridimensionare un'immagine caricata nel controllo
alle dimensioni del controllo stesso?
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.

[Carlo Costarella]

Post by Sergio MAZZA

Post by Ivan da casa
Ciao Sergio
ti ricordi come si fa a ridimensionare un'immagine caricata nel controllo
alle dimensioni del controllo stesso?
Ciao, Carlo

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

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

[Ivan da casa]

Post by Sergio MAZZA

Post by Ivan da casa
Ciao Sergio,
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

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.
'---
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

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

[Sergio MAZZA]

Post by Ivan da casa
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 ...

Così (per esempio): Me!WebBrowser0.Height = Me!WebBrowser0.Height / 2,
riesco a ridimensionarlo;

Post by Ivan da casa
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 intendevo il Microsoft Web Browser.

Post by Ivan da casa
Io uso A2002 (XP).

Attualmente, anch'io...

Post by Ivan da casa
IvanDaBologna

Ciao.

[Ivan da casa]

Post by Sergio MAZZA

Post by Ivan da casa
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 ...

Così (per esempio): Me!WebBrowser0.Height = Me!WebBrowser0.Height / 2,
riesco a ridimensionarlo;

Post by Ivan da casa
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 intendevo il Microsoft Web Browser.

Post by Ivan da casa
Io uso A2002 (XP).

Attualmente, anch'io...

Post by Ivan da casa
IvanDaBologna

Ciao.
--
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

[Carlo Costarella]

Post by Ivan da casa

Post by Sergio MAZZA

Post by Ivan da casa
Ciao Sergio,
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

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.
'---
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

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

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

[Sergio MAZZA]

Post by Carlo Costarella
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

Ah! Per il '97...

Ciao.

[Carlo Costarella]

Post by Sergio MAZZA

Post by Carlo Costarella
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

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

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