Newsgroup: it.comp.appl.access
Titolo: visualizzare filmato in una maschera

Ciao a tutti!
Sto tentando di organizzare una maschera in modo che possa visualizzare
un filmato in base al record selezionato. In particolare la tabella su
cui si basa la maschera ha un campo di testo in cui è memorizzato il
cammino del file (C:\cartella video\video1.wmv).
La prima opzione suggeritami e implementata è quella di aggiungere un
pulsante e sulla sua proprietà click inserire il codice
------------------------------------------------------
Me!Comando_filmato.HyperlinkAddress = Me!Filmato
------------------------------------------------------
Tutto ok con questo tranne per il fatto che così viene lanciato il
Windows media player a tutto schermo. Un problema è sapere come fare a
gestire (= rimpicciolire e posizionare a piacere) la finestra del media
player e pur avendo avuto suggerimenti con soluzioni queste erano per
me troppo complicate (sono un "esordiente totale") l'altro è il fatto
di avere un'ulteriore finestra e questo non mi attira moltissimo.
Con l'aiuto di  Massimiliano Amendola ho provato ad impostare un
comando Active X in quella maschera in modo da avere il filmato sulla
stessa e gestirne le dimensioni a piacere.
Il codice che ho usato sulle proprietà della maschera è il seguente:
------------------------------------------------------
Private Sub Form_Current()
    If IsNull(Me.Filmato) Then
        Me.WindowsMediaPlayer5.Visible = False
    Else
        If Dir(Me.Filmato) <> "" Then
            Me.WindowsMediaPlayer5.Visible = True
            Me.WindowsMediaPlayer5.LoadFile Me.Filmato
            Else
            Me.WindowsMediaPlayer5.Visible = False
        End If
    End If
End Sub
------------------------------------------------------
dove  WindowsMediaPlayer5 è l'oggetto active x e Filmato è la casella
di testo contenente l'indirizzo esatto del file.
Con questo codice dà errore:
------------------------------------------------------
Errore di runtime 438
Proprietà o metodo non supportati dall'oggetto
------------------------------------------------------
e si blocca il debug evidenziando in giallola linea con il LoadFile.
Sto sbagliando la sintassi del comando? devo aggiungere qualcosa?
Qualcuno ha altri suggerimenti sulla gestione di filmati su maschere?
Grazie a tutti per l'aiuto!
F

cut
------------------------------------------------------
Private Sub Form_Current()
    If IsNull(Me.Filmato) Then
        Me.WindowsMediaPlayer5.Visible = False
    Else
        If Dir(Me.Filmato) <> "" Then
            Me.WindowsMediaPlayer5.Visible = True
            Me.WindowsMediaPlayer5.LoadFile Me.Filmato
            Else
            Me.WindowsMediaPlayer5.Visible = False
        End If
    End If
End Sub
------------------------------------------------------
dove  WindowsMediaPlayer5 è l'oggetto active x e Filmato è la casella
di testo contenente l'indirizzo esatto del file.
Con questo codice dà errore:
------------------------------------------------------
Errore di runtime 438
Proprietà o metodo non supportati dall'oggetto
------------------------------------------------------
[Risposta]
L'istruzione dovrebbe essere:
Me.WindowsMediaPlayer5.openPlayer Me.Filmato
LoadFile mi pare non esista.
Ciao, Carlo 

 Ciao, Carlo
ciao Carlo!
grazie per la risposta!
sto impazzendo dietro questo comando e non so dove reperire info utili
o esempi di codice...
Ho provato con openPlayer e il codice funziona, solo che mi apre
windows media player esternamente al database e visualizza il filmato
(allo stesso modo di quello che succede con il hyperlink abbinato ad un
click di un tasto).
Sul piccolo schermo del controllo ActiveX che ho inserito nella machera
non c'e' nulla.
Cosa devo cambiare?
Grazie!!!
F

 ha scritto nel messaggio 
news:1153743566.0...@m73g2000cwd.googlegroups.com...

Per aprire il file che ti interessa nel controllo sulla maschera fai cosě:
Me.WindowsMediaPlayer5.URL = Me.Filmato
vedrai che dopo un secondo parte e funziona.
Ciao, Carlo 

 Ciao, Carlo
Grandissimo Carlo!!!
eccolo lì quel maledetto comando!
ora fuziona ed è molto elegante...
domanda a lato:
dov'è che si trovano le varie funzioni, metodi etcetc..insomma il
codice relativo agli ActiveX? e in generale un riferimento per
espandere le proprie conoscenze di codice VB per access?
Grazie 1000 ancora per l'aiuto puntuale e risolutivo!!!
F

 Ciao, Carlo
Grandissimo Carlo!!!
eccolo lì quel maledetto comando!
ora fuziona ed è molto elegante...
Lo immaginavo: usi un ocx di ultima generazione (wXp) e non msdxm.ocx.
In pratica usi i riferimenti a wmp.dll avendo inserito un WMPlayer.OCX.7.
Dal visualizzatore di oggetti puoi già vedere tutte le istruzione, le 
proprietà e gli eventi.
Se vuoi approfondire l'argomento qui trovi tutto l'occorrente.
http://www.microsoft.com/italy/msdn/library/default.asp?url=/italy/msdn/library/net/vbnet/VB_Player_article.asp?frame=true
Buona fortuna...è una giungla!
Se invece vuoi usare il msdxm.ocx allora trovi molto materiale per VB.
http://www.linhadecodigo.com.br/artigos.asp?id_ac=389
http://www.developerfusion.co.uk/show/62/
http://www.martin2k.co.uk/vb6/tips/vb_48.php
Qui trovi qualcosa senza usare l'ocx:
http://www.freevbcode.com/ShowCode.asp?ID=4013
Ciao, Carlo