Newsgroup: it.comp.lang.visual-basic
Titolo: aprire un file pdf da una FileListBox o da una ListBox cliccandogli  sopra

Salve a tutti, lo so che quello che vado a chiedervi, dovrebbe essere
una cosa semplice
ma non ci riesco proprio, o perlomeno non ci riesco più, già, anni fa
l'avevo fatto ma ora
non c'è verso, quindi spero in un vostro aiuto;
Visual Basic 6
ho un semplice Form    Form1,
nel quale vi è una FileListBox    File1
nella quale ho fatto caricare una serie di file pdf ad esempio
024.pdf, 025.pdf ecc..
ora, io vorrei semplicemente aprire uno di questi file cliccandogli
sopra.
Ho provato anche ad usare una ListBox, quì al massimo apro il file, ma
con word (quindi illeggibile)
Come posso fare?
grazie infinite

 ha scritto nel messaggio 
news:bec840b4-2799-4677...@j24g2000yqa.googlegroups.com...
Salve a tutti, lo so che quello che vado a chiedervi, dovrebbe essere
una cosa semplice
ma non ci riesco proprio, o perlomeno non ci riesco pi�, gi�, anni fa
l'avevo fatto ma ora
non c'� verso, quindi spero in un vostro aiuto;
Visual Basic 6
ho un semplice Form    Form1,
nel quale vi � una FileListBox    File1
nella quale ho fatto caricare una serie di file pdf ad esempio
024.pdf, 025.pdf ecc..
ora, io vorrei semplicemente aprire uno di questi file cliccandogli
sopra.
Ho provato anche ad usare una ListBox, qu� al massimo apro il file, ma
con word (quindi illeggibile)
Come posso fare?
grazie infinite
Ciao
usa  la      shell(Iexplore.exe, nomefile)
lo apri col browser  se hai l'Adobe installato correttamente

mi spiace ma non funziona!!
da errore di compilazione.

a me funziona...
dato il percorso completo di un file (FILECOMPLETO), lo apre con
l'applicazione associata all'estensione
ShellExecute 0, "Open", FILECOMPLETO, vbNullString, vbNullString,
ByVal 1

scusa, mi sono dimenticato un pezzo...
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

Grazie ypsylon, ora mi funziona! sbagliavo il percorso a quanto pare.
Adesso, lo so, forse dovrei postare su di un'altro forum, ma la cosa e
coincidente
col programmino un vb6.
Praticamente ora da Access2000, avrei la necessità del codice vba da
inserire in un
pulsante di comando per copiare in memoria (negli appunti di windows
xp)
il contenuto di una casella di testo di access appunto,
che poi andrò ad incollare in una TextBox del programma in VB6.
Si può fare?
Grazie

 ha scritto
Praticamente ora da Access2000, avrei la necessit� del codice vba da
inserire in un
pulsante di comando per copiare in memoria (negli appunti di windows
xp)
il contenuto di una casella di testo di access appunto,
che poi andr� ad incollare in una TextBox del programma in VB6.
Si pu� fare?
Grazie
-----
prova a sentire su it.comp.appl.access, ma mi sembra che in vba non ci sia 
l'oggetto clipboard, quello con cui in vb fai 
clipboard.clear/settext/gettext
pagina ms
http://support.microsoft.com/kb/210213
    * acCmdCopy Copia i contenuti del controllo attivo nell'Appunto.
    * acCmdPasteAppend Aggiunge i contenuti degli Appunti al controllo 
attivo.
    * acCmdPasteSpecial Visualizza la finestra di dialogo Incolla speciale.
Private Sub cmdPaste_Click()
   Me!txtSample.SetFocus
   DoCmd.RunCommand acCmdPaste
End Sub
eventualmente cerca altro con
"access 2000 clipboard vba"
ciao 

Sono riuscito nel mio intento;
'QUESTO COPIA IN ACCESS 2000
Testo16.SetFocus
Dim a
a = Testo16
DoCmd.RunCommand acCmdCopy
'E QUESTO INCOLLA IN VB6
incollare questa SUB
Public Sub Incolla()
Dim Dummy1 As String
Dim Dummy2 As String
If Clipboard.GetFormat(vbCFText) Then
Dummy1 = Left(Text1.Text, Text1.SelStart)
Dummy2 = (Text1.Text)
Text1.Text = Dummy1 & Clipboard.GetText & Dummy2
Else
MsgBox "Il contenuto degli appunti non può essere incollato!"
End If
End Sub
poi richiamare in form_load
Incolla
in questo modo evito alcune operazioni noiose :-)
Apro il mio database in (access2000) pieno di articoli
immetto il una parola dell'articolo cercato premo invio e appare una
maschera coi vari articoli trovati
ora premo un pulsante di comando, il quale copia in memoria (negli
appunti di windows) il
numero di articolo visualizzato
lancia un programmino (in Visual Basic6) il quale a sua volta incolla
automaticamente il
numero in memoria in una text, va a pescare il numero corrispondente
(se esiste) da una listBox
ed in fine mi lancia l’articolo (in .pdf) desiderato e nel frattempo
l’eseguibile si chiude.
Il tutto nel giro di 4 secondi circa, che ne dite?
Grazie infinite a tutti :-)

Sono riuscito nel mio intento;
'QUESTO COPIA IN ACCESS 2000
Testo16.SetFocus
Dim a
a = Testo16
DoCmd.RunCommand acCmdCopy
'E QUESTO INCOLLA IN VB6
incollare questa SUB
Public Sub Incolla()
Dim Dummy1 As String
Dim Dummy2 As String
If Clipboard.GetFormat(vbCFText) Then
Dummy1 = Left(Text1.Text, Text1.SelStart)
Dummy2 = (Text1.Text)
Text1.Text = Dummy1 & Clipboard.GetText & Dummy2
Else
MsgBox "Il contenuto degli appunti non può essere incollato!"
End If
End Sub
poi richiamare in form_load
Incolla
in questo modo evito alcune operazioni noiose :-)
Apro il mio database in (access2000) pieno di articoli
immetto una parola dell'articolo cercato, appare una maschera coi vari
articoli  trovati
ora premo un pulsante di comando, il quale copia in memoria (negli
appunti di windows) il numero di articolo visualizzato, lancia un
programmino (in Visual Basic6) il quale a sua volta incolla
automaticamente il numero in memoria in una sua textBox da qui pesca
il numero corrispondente, presente in una listBox e mi apre il
numero di file .pdf desiderato, e nel frattempo l’eseguibile si
chiude.
Il tutto in circa 4 secondi, che ne dite?
