Newsgroup: it.comp.appl.access
Titolo: ricavare path immagine

Ho visto sul sito comune la FAQ di Roberto intitolata "6.160 Selezionare il 
path di un file immagine visualizzando il suo contenuto".
Io vorrei comunque riuscire ad avere solo il path senza la possibilità di 
visualizzare l'anteprima dell'immagine.
Anche se un utente deve sapere a priori il nome dell'immmgine non mi 
importa.
Sapete consigliarmi come fare?
Grazie in anticipo.
Butta 

Butta ha detto: in data 24/11/2005 11.12:

cioè??
da dove lo "cerchi" il path?
vuoi che all'utente gli si apra la classica finestrella di windows per 
aprire i file.. selezioni l'immagine e tu da questa selezione recuperi 
il path?
o vuoi che l'utente inserisca il nome immagine e tu fai uno scand el 
disco e gli trovi tutte le imagini con quel nome?
o altro??
...facci sapere ;)
ciao
Nick

"Nick" <senz...@chedetesul.NG> ha scritto nel messaggio 
news:wtghf.52221$65.15...@twister1.libero.it...

vorrei che all'utente si aprisse la classica finestrella di windows per
aprire i file.. selezionasse l'immagine e da questa selezione io possa 
recuperare
il path.
E' possibile?
Grazie. Butta

Butta ha detto: in data 24/11/2005 11.27:

sul sito comune c'è un esempio, ma ora non ricordo il nome e faccio 
prima a postarti il codice:
in un modulo generale metti questa funzione:
''''''''''''''INIZIO CODICE MODULO GENRALE
'Funzione da richamare per la finestra di aggiunta file
Public Function cmdlg_file(Optional DirIni As String)
    'Autore: Stefano Bettini
    'Restituisce: il percorso completo del file selezionato
    Dim OpenFile As OPENFILENAME
    Dim lReturn As Long
    Dim sFilter As String
    OpenFile.lStructSize = Len(OpenFile)
    sFilter = "Ogni files (*.*)" & Chr(0) & "*.*" & Chr(0)
    OpenFile.lpstrFilter = sFilter
    OpenFile.nFilterIndex = 1
    OpenFile.lpstrFile = String(257, 0)
    OpenFile.nMaxFile = Len(OpenFile.lpstrFile) - 1
    OpenFile.lpstrFileTitle = OpenFile.lpstrFile
    OpenFile.nMaxFileTitle = OpenFile.nMaxFile
     If IsNull(DirIni) Then
         OpenFile.lpstrInitialDir = "C:\"
     Else
         OpenFile.lpstrInitialDir = DirIni
     End If
    OpenFile.lpstrTitle = "Selezione file"
    OpenFile.flags = 0
    lReturn = GetOpenFileName(OpenFile)
    If lReturn = 0 Then
       cmdlg_file = ""
    Else
       cmdlg_file = Left(OpenFile.lpstrFile, InStr(OpenFile.lpstrFile, 
Chr$(0)) - 1)
       'cmdlg_file = Left(OpenFile.lpstrFileTitle, 
InStr(OpenFile.lpstrFileTitle, Chr$(0)) - 1)
    End If
End Function
''''''''FINE CODICE MODULO GENERALE
poi nelle tue maschere
richiami la funzione così:
me.CampoPathImmagine = cmdlg_file ("dir di partenza")
Ciao
Nick

[CUT]
scusa ho dimenticato un pezzo di codice (copia e incolla fatto male :D)
aggiungi (sempre nel modulo generale) questo altro codice:
''CODICE DA AGGIUNGERE
'Dichiarazioni per aprire la finestra APRI di windows
Private Declare Function GetOpenFileName Lib "comdlg32.dll" _
             Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As 
Long
Private Type OPENFILENAME
    lStructSize As Long
    hwndOwner As Long
    hInstance As Long
    lpstrFilter As String
    lpstrCustomFilter As String
    nMaxCustFilter As Long
    nFilterIndex As Long
    lpstrFile As String
    nMaxFile As Long
    lpstrFileTitle As String
    nMaxFileTitle As Long
    lpstrInitialDir As String
    lpstrTitle As String
    flags As Long
    nFileOffset As Integer
    nFileExtension As Integer
    lpstrDefExt As String
    lCustData As Long
    lpfnHook As Long
    lpTemplateName As String
End Type
''FINE CODICE DA AGGIUNGERE
Ciao
Nick

Scusa, per non sbagliare, in definitiva è cosi'?:

'Dichiarazioni per aprire la finestra APRI di windows

End Function
Inoltre la funzione
me.CampoPathImmagine = cmdlg_file ("dir di partenza")
la richiamo ad esempio sull'evento "su doppio clic"?
In "dir di partenza" la sintassi è esatta cosi': ("C:\") ?
Grazie davvero per il tuo tempo.
Butta
"Nick" <senz...@chedetesul.NG> ha scritto nel messaggio 
news:aYghf.52257$65.15...@twister1.libero.it...


 ha scritto nel messaggio
news:S6hhf.4086$S6.6...@twister2.libero.it...
[CUT]
OT ma non troppo.
Quando rispondi scrivi DOPO e non prima del testo dei messaggi precedenti.
-- 
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------

 Butta
ciao
Nick
ps.. occhio al quoting ;)

"Nick" <senz...@chedetesul.NG> ha scritto nel messaggio 
news:elihf.52409$65.15...@twister1.libero.it...

Scusa...spero per l'ultima volta di stressarti.
Mi da errore qui:
Dim OpenFile As OPENFILENAME
(Errore di compilazione:
Tipo definito dall'utente non definito)
...che vuol dire? devo scrivere qualche cosa al posto di "OPENFILENAME"?
Ciao Butta 

 
dove hai copiato il codice che ti ho dato? in un nuovo modulo?
prova a spostare la parte
Private Type OPENFILENAME
     lStructSize As Long
     hwndOwner As Long
     hInstance As Long
     lpstrFilter As String
     lpstrCustomFilter As String
     nMaxCustFilter As Long
     nFilterIndex As Long
     lpstrFile As String
     nMaxFile As Long
     lpstrFileTitle As String
     nMaxFileTitle As Long
     lpstrInitialDir As String
     lpstrTitle As String
     flags As Long
     nFileOffset As Integer
     nFileExtension As Integer
     lpstrDefExt As String
     lCustData As Long
     lpfnHook As Long
     lpTemplateName As String
End Type
End Function
all'inzio del modulo, o cmq prima della funzione cmdlg_file
dovrebbe andare...
facci sapere ;)
ciao
Nick

 ha scritto nel messaggio 
news:zCihf.4232$S6.6...@twister2.libero.it...

FATTO!!
Pensa che dava errore per colpa del copia/incolla, che andando a capo in 
punti sbagliati creava errori.
Grazie, sei stato un grande ad aiutarmi.
Butta 

...infatti ho dovuto spostarla prima!
Ciao
"Nick" <senz...@chedetesul.NG> ha scritto nel messaggio 
news:NHihf.52447$65.15...@twister1.libero.it...


 
Ottimo ;) (l'importante è arrivare al dunque)
di nulla ;)
ciao
Nick


uao ragazzi, avete fatto voltare le budella a mr Quoting...
non so quante volte avete ripetuto tutto il listato della funzione e
dichiarazione
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:  
www.donkarl.com/it

 dichiarazione
è stato per esercizio...
volevamo vedere se eravate tutti attenti alle regole.. :D
ciao
Nick