Newsgroup: it.comp.lang.visual-basic
Titolo: Chi sa far aprire una foto col programma predefinito tramite Vb6?

Le foto *.jpg sono associate al programma grafico predefinito che le apre di
default.
Se clicco su Esplora Risorse o se scrivo il percorso di una foto in Esegui
la foto viene aperta da quel programma.
Come posso far aprire una foto *.jpg dal programma predefinito associato
tramite Vb6?
Ho provato con Shell, ma apre solo programmi, non altri file.
Ovviamente io non so a priori qual è il programma predefinito altrimenti
scriverei ad es. Shell "Acdsee.exe nomefoto.jpg"
Grazie infinite!

 Grazie infinite!
Di niente
Posted from X-Privat Free NNTP server - 
www.x-privat.org

 Ho provato con Shell, ma apre solo programmi, non altri file.
Cerca nei post precedenti "ShellExecute" e "open", questo argomento 
viene trattato spesso.
Ciao

 Se fai tutto questo da codice hai risolto il tuo problema.
Una bazzecola ;)
Ciao

> Nanto wrote:

Grazie. Non ho trovato niente su questo ShellExecute o open, mi dici la
sintassi per favore?
PS:
Se c'è un comando meglio di Shell che è l'equivalente di Esegui non c'è
motivo di scrivere una pagina di codice per andare a spulciare nel registro
dati inutili.


Option Explicit
' declare it this way
Const SW_SHOWNORMAL = 1
' ShellExecute is an API function that executes a given file into the shell,
running
' it into its associated program, that's called by Windows
Private Declare Function ShellExecute Lib "shell32.dll" Alias
"ShellExecuteA" _
    (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
    ByVal lpParameters As String, ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As Long
Private Sub Main()
 
    Dim strFilePath As String, strPath As String
 
    strFilePath = App.Path & "\Sottocartella\MyPic.jpg" ' file path
    strPath = App.Path & "\Sottocartella\" ' directory path
    '..and use it this way
    ShellExecute 0, vbNullString, strFilePath, vbNullString, strPath,
SW_SHOWNORMAL
    End
 
End Sub
Questo funziona. Ciao
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 sintassi per favore?
Posso sapere dove hai cercato, se lo hai fatto?
Solo Google.gruppi ne da 1380 di vecchi thread (thread! non post) con
ShellExecute.
Come si fa a credere alla tua buona volonta?
Ciao
--
Math Parser : 
http://www.neodatatype.net
Sito Comune : 
http://www.it-lang-vb.net

 Come si fa a credere alla tua buona volonta?
e tu scomodi addirittura google ?
Tasto destro su questo NG, TROVA , inserito "ShellExecute" e ne escono una
decina solo tra ieri e oggi :-/
-- 
<Gigio2K>
--- 
www.g2kweb.it
 ---
Nokia -> I.T.H.N. -> 
http://www.ithn.it/
VB -> I.C.L.VB -> 
http://www.it-lang-vb.net/

 > Se c'è un comando meglio di Shell che è l'equivalente di Esegui non c'è


 ha scritto nel messaggio
news:Oy7rb.437193$R32.14...@news2.tin.it...


 Non capisco come voi ne trovate una decina solo tra ieri e oggi!
Hai cercato solo nei titoli, senza scaricare i messaggi :-) ?
Così io ne vedo solo uno del 6/10, che magari il tuo server
ha già cancellato.
Suggerimento per le prossime volte: prima di postare, vai su
google groups, metti la keyword, metti il nome del gruppo e
ordina per data:
http://www.google.com/advanced_group_search?hl=it
Bye, G.

 tramite Vb6?
Guarda questo mio post.
http://tinyurl.com/ua6v
http://www.google.it/groups?q=shell+group:it.comp.lang.visual-basic+author:samuele+author:battarra&hl=it&lr=&ie=UTF-8&oe=UTF-8&selm=52329.20030812014950_-_%40news.tin.it&rnum=1
-- 
Samuele Battarra
prova il mio newsreader:
http://news-navigator.sourceforge.net

 tramite Vb6?
Guarda questo mio post.
http://tinyurl.com/ua7h
http://www.google.it/groups?hl=it&lr=&ie=UTF-8&oe=UTF-8&threadm=52329.20030812014950_-_%40news.tin.it&rnum=1&prev=/groups%3Fhl%3Dit%26lr%3D%26ie%3DUTF-8%26oe%3DUTF-8%26q%3D%255B!%255D%2BAprire%2Bun%2Bfile%2Bcon%2Bl%27applicazione%2Bpredefinita%26btnG%3DCerca%2Bcon%2BGoogle


 
http://www.google.com/advanced_group_search?hl=it
Io mi sono "segnalibrato" direttamente la pagina del gruppo.


 Ciao
Ciao :)
