aprire un file pdf da una FileListBox o da una ListBox cliccandogli sopra

[clavius]

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

[Criminale Del Sillogismo]

"clavius" <in...@sbs114.com> 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

[clavius]

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

[ypsylon]

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

[ypsylon]

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

[clavius]

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

[andrea palazzi]

"clavius" <in...@sbs114.com> 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

[clavius]

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 :-)

[clavius]

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?