Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/8: Рейтинг темы: голосов - 8, средняя оценка - 5.00
B0ND
0 / 0 / 0
Регистрация: 19.06.2011
Сообщений: 2
1

Как открыть файл другово приложения???

22.06.2011, 18:16. Просмотров 1407. Ответов 5
Метки нет (Все метки)

Вот допустим, при нажатие на кнопку, прога должна открыть Winamp, и проигрывать файл *.mp3, путь которого я указал в коде. Или Explorer, сзаданым файлом *.html. Надеюсь вопрос понятен, я навичёк в VB, просьба умные фразы не писать. Помогите плиз!!!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.06.2011, 18:16
Ответы с готовыми решениями:

Как открыть файл в VB (именно файл с расширением .bat)?
Это часть неисправного кода: Private Sub Command1_Click() Dim F As Long F =...

Как открыть вордовский файл в VB
Как открыть вордовский файл в VB?

Как открыть, запустить файл из VB&
Это наверное просто, но у меня не получается...:(, хотелось бы как-то из кода...

Как открыть .pdf файл из VB программы?
Как открыть .pdf файл из VB программы?

Как открыть файл справки *.chm?
Здравствуйте! Можно ли каким либо способом сделать следующее: имеется файл...

5
Alexey Spirin
1 / 1 / 1
Регистрация: 18.10.2007
Сообщений: 1,750
22.06.2011, 20:10 2
Поищи по слову ShellExecute
0
B0ND
0 / 0 / 0
Регистрация: 19.06.2011
Сообщений: 2
22.06.2011, 20:28 3
даже в object browser нет такого слова
0
Alexey Spirin
1 / 1 / 1
Регистрация: 18.10.2007
Сообщений: 1,750
23.06.2011, 13:19 4
в форуме, в яндексе, в MSDN - где угодно.
в OB его и не должно быть.
0
lover_line
0 / 0 / 0
Регистрация: 03.10.2011
Сообщений: 6
03.10.2011, 05:53 5
Cамый радикальный метод это переписать setup1.exe - именно этот файл и использует setup.lst.
Исходные тексты setup1.exe поставляются вместе с Visual Basic и находятся в папке VB98WizardsPDWizardSetup1
Сделайте следующее:

- Запустите Microsoft Visual Basic 6.0
- Откройте проект Setup1.vbp (в папке VB98WizardsPDWizardSetup1 )
- Откройте для редактирования модуль basSetup1 (файл setup1.bas)
- Внесите изменения в функцию ParseDateTime()

Вот как она выглядит:

Function ParseDateTime(ByVal strDateTime As String) As Date
Dim Var As Variant
Var = strDateTime
If 0 = VariantChangeTypeEx(VarPtr(Var), VarPtr(Var), &H409, 0, vbDate) Then
ParseDateTime = Var Else 'Raise same error as CDate
Err.Raise 13
End If
End Function

Используемую здесь API функцию VariantChangeTypeEx() надо заменить на функциюCDate, которая используется для приведения строки в тип Date.
Перепишите функцию ParseDateTime() в виде:

Function ParseDateTime(ByVal strDateTime As String) As Date
ParseDateTime=CDate(strDateTime)
End Function

Получилось короче и эффективнее. Теперь заново скомпилируйте проект Setup1.vbp и получившийся Setup1.exe перепишите в папку WizardsPDWizard,заменив старый файл. Все! Можете смело использовать Package & Deployment Wizard для создания дистрибутива на Вашем компьютере.

Полную информацию об этом могу прислать Вам на e-mail ... Но, думаю, что она Вам уже не понадобится
(lover_line@mail.ru)
0
lover_line
0 / 0 / 0
Регистрация: 03.10.2011
Сообщений: 6
03.10.2011, 06:02 6
Oops!!!
Прошу прощение! Я случайно нажал не на ту кнопку и вышеизложенный ответ не относится к Вашему вопросу. Теперь прийдется ответить и на Ваш вопрос, чтобы исправить свою ошибку

1) Как открыть файл другого приложения:
О т в е т : Просто написать следующее:
Call Shell (strFileName),
где strFileName = полный путь к Вашему файлу, который Вы желаете открыть. Например,
Call shell 'C:WindowsCalc.exe'
Все просто!

2) Если Вам нужно открыть не файл приложения (*.exe), а какой-либо другой файл (*.*), то дело обстоит по другому. Для этого используется функция ShellExecute.

Синтаксис объявления:

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

Пример:

Const SW_MAXIMIZE = 3

Private Sub Command1_Click()
ShellExecute Form1.hwnd, 'open', 'C: emp1.bmp', 0, 0, SW_MAXIMIZE
'Откроет программу, ассоциированную с расширением bmp и развернёт
'её на весь экран
End Sub

Желаю удачи!
(lover_line@mail.ru)
0
03.10.2011, 06:02
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.10.2011, 06:02

Как программно открыть Excel файл?
Создаю файл, вношу данные, сохраняю... А как его програмно открыть то? что то...

Как открыть и сохранить файл .dbf?
Через ODBC (Microsoft Visual FoxPro Driver)открыл файл .dbf (форма для...

как открыть .rtf файл в RichTextBoxe
может у кого завалялся такой код? чтобы открывать rtf файлы в проекте на vb6....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru