DKarles Ответов: 2

Как просмотреть pdf файлы из приложения vb6

Я могу открыть pdf-файлы из приложения vb6 в Window XP SP3, но я не могу открыть то же самое из Windows 7, пожалуйста, помогите. Заранее спасибо 
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpszOp As String, _
ByVal lpszFile As String, ByVal lpszParams As String, _
ByVal LpszDir As String, ByVal FsShowCmd As Long) _
As Long
Dim l As Long
'it works in windows XP SP3
l = ShellExecute(Me.hwnd, "Open", App.Path & "\Forms\Form.pdf", "", "C:\ProgramFiles(x86)", vbNormal

db7uk

В чем заключается ошибка, которую вы получаете? ваш путь к программным файлам выглядит сомнительно, и вы говорите, что среда Win7 является 64-битной или 32-битной?

2 Ответов

Рейтинг:
2

lewax00

"C:\ProgramFiles(x86)" должно быть "C:\Program файлы (x86)". Я не знаю, является ли это источником вашей проблемы, но это может быть. (Существует переменная окружения ProgramFiles(x86), но в папке есть пробелы)

Рейтинг:
1

Member 14686612

Вы должны попробовать следующий код :

Частная объявить функцию shellexecute Либ "shell32.dll" псевдоним "ShellExecuteA" (как byval hwnd и как долго, lpOperation бывал, как струна, lpFile бывал, как струна, lpParameters бывал, как струна, lpDirectory бывал, как струна, nShowCmd бывал так долго) так долго

Private Sub Command_Click()
strDir = "<ваши файлы="" каталог="">"
strFile = "<your filename="">.pdf"
ShellExecute 0, "OPEN", strDir &strfile, "", strDir, 1
Конец Подводной Лодки