Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Разнообразные объекты, Не могу найти нужную ф-цию 
:(
    Опции темы
Гость_Михаил
  Дата 5.11.2003, 22:11 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











Смысл в чем - есть база данных Access. Она содержит таблицу, где есть текстовое поле, содержащее путь к файлу и, допустим, его описание. Файл может представлять собой любой объект - вордовский док., wav или, напр. gif. Также в этой базе есть форма с кнопкой button1.

Цель:
Когда мы жмем на button1, файл, указанный в строковом поле должен выполниться соответствующей ему программой. По принципу это то же самое, что происходит при двойном щелчке мышой по пиктограмме, но из БД. Ввиду отсутствия какой бы то ни было литературы по VB, решил обратиться к вам за помощью.

Заранее спасибо.
  Вверх
Vach
Дата 6.11.2003, 01:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 304
Регистрация: 17.10.2003
Где: Санкт-Петербург

Репутация: 8
Всего: 18



Вот пример запуска проассоциированного файла с приложением.
Код

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

Private Declare Function GetDesktopWindow Lib "user32" _
() As Long

Const SW_SHOWNORMAL = 1

Private Sub Command1_Click()
Dim sFile As String

‘sFile - твоя строка с именем файла _
тут только одна проблема – если отсутствует ассоциация с программой, _
которая может открыть файл – не произойдет ничего. Даже ошибки.

sFile = DataEnvironment1.rsCommand1!sFile

'при клике на Button происходит вызов функции и передаются _
следующие параметры: _
1.идентификатор десктопа (где запускать файл?) _
2.команда "Open" - т.к. можно вставить и "Print" (что делать с ним?) _
3.путь к файлу - надпись sFile (где искать?) _
4.пропущенный параметр, т.к. файл этот - документ, а не исполняемый _
5.директория, используемая в случае надобности по умолчанию _
(куда складывать?) _
6.константа, означающая запуск в нормальном режиме (как запускать?)
   
   Call ShellExecute(GetDesktopWindow, "Open", _
   sFile, "", "c:\", SW_SHOWNORMAL)

End Sub

PM MAIL ICQ   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »


 




[ Время генерации скрипта: 0.1132 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.