Discussione:
Gif animate in forms
(troppo vecchio per rispondere)
lolince
2006-12-18 10:36:22 UTC
Permalink
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
2006-12-18 14:04:50 UTC
Permalink
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
PuntoBat
2006-12-18 21:20:57 UTC
Permalink
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
2006-12-19 12:41:03 UTC
Permalink
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
2006-12-19 12:49:43 UTC
Permalink
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.
--
Sergio MAZZA
Ivan da casa
2006-12-19 16:01:06 UTC
Permalink
[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
2006-12-20 10:11:09 UTC
Permalink
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
2006-12-20 10:26:06 UTC
Permalink
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.
--
Sergio MAZZA
Carlo Costarella
2006-12-20 10:57:35 UTC
Permalink
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
2006-12-20 12:28:11 UTC
Permalink
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
Carlo Costarella
2006-12-20 12:43:49 UTC
Permalink
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
2006-12-20 12:59:10 UTC
Permalink
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
Sergio MAZZA
2006-12-20 11:17:26 UTC
Permalink
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.
--
Sergio MAZZA
Carlo Costarella
2006-12-20 12:35:16 UTC
Permalink
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
2006-12-20 12:26:15 UTC
Permalink
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
2006-12-20 12:56:33 UTC
Permalink
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
Ivan da casa
2006-12-20 16:15:26 UTC
Permalink
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
2006-12-20 13:00:57 UTC
Permalink
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
2006-12-20 13:05:40 UTC
Permalink
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
Carlo Costarella
2006-12-20 13:09:36 UTC
Permalink
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
Loading...