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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> как вывести на экран файл, произвольного формата. 
:(
    Опции темы
kb-nn
Дата 9.2.2004, 14:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 227
Регистрация: 23.12.2003
Где: Нижний Новгород

Репутация: нет
Всего: 1



скажите пожалуйста.
PM MAIL ICQ   Вверх
kb-nn
Дата 9.2.2004, 16:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 227
Регистрация: 23.12.2003
Где: Нижний Новгород

Репутация: нет
Всего: 1



а еще вопрос- можно будет отловить тот момент, когда пользователь его закроет?
PM MAIL ICQ   Вверх
Unregistered
Дата 9.2.2004, 17:35 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











Ответы:
1. Фаил произвольного формата можно вывести на экран в произвольной форме
2. Можно......

НУ ЧУТЬ ПО КОНКРЕТНЕЙ МОЖНО ВОПРОСЫ ЗАДАВАТЬ?

Что значит вывести на экран.........confused.gif (в текте, в хексе, в бинари, в чем конкретно....)

Тебе отловить событие закрытия файла, по сети или локально, или тебе надо узнать дату его модификацииconfused.gif

Чуть конкретней опиши задачу.........

С уважением ~FoX~

З.Ы. Опять рутир глючит не могу аутонтифицироваться.......(((
  Вверх
kb-nn
Дата 10.2.2004, 10:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 227
Регистрация: 23.12.2003
Где: Нижний Новгород

Репутация: нет
Всего: 1



ну как будто я выбираю его в проводнике.
и потом, после того, как пользователь его закроет, я хочу продолжить выполнение своей программы.
понятнее?
PM MAIL ICQ   Вверх
kb-nn
Дата 11.2.2004, 13:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 227
Регистрация: 23.12.2003
Где: Нижний Новгород

Репутация: нет
Всего: 1



никто не знает?
PM MAIL ICQ   Вверх
Unregistered
Дата 11.2.2004, 15:05 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











kb-nn
Ышо больше не понятней......

Как я понял ты кликаешь на файл в каком то компаненте
Файл должен аткрыца программой с которой он ассоциирован или твоим собственным просмоторщиком?

  Вверх
kb-nn
Дата 11.2.2004, 16:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 227
Регистрация: 23.12.2003
Где: Нижний Новгород

Репутация: нет
Всего: 1



ну конечно той программой, с которой он ассоциирован.
пользователь нажимает на кнопочку(обычную), и при этом открывается файл, ( как будто я открываю его через проводник например).
и чтоб пока пользователь смотрит этот файл(он может быть любой- напимер Word-овский, Avi, или любого другого типа) и пока пользователь его смотрит, программа ждет.
после того, как пользователь закроет файл, программа продолжила работу.

PM MAIL ICQ   Вверх
cardinal
Дата 11.2.2004, 17:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99



Код
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)
Const SW_SHOWNORMAL = 1

Private Sub Command1_Click()
Call ShellExecute(GetDesktopWindow, "Open", FileToOpen, "", "", SW_SHOWNORMAL)
End Sub


А насчет
Цитата
после того, как пользователь закроет файл, программа продолжила работу

пока свежей мысли нет smile.gif



--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
Black_Star
Дата 11.2.2004, 18:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



Цитата
А насчет
Цитата

после того, как пользователь закроет файл, программа продолжила работу


пока свежей мысли нет

А с чего прога должна закрываться? Ладно если ее саму закроют, а то левое приложение... Она же так и будет висеть... Или я что-то не так понял?

Это сообщение отредактировал(а) Black_Star - 11.2.2004, 18:27
PM ICQ   Вверх
kb-nn
Дата 12.2.2004, 12:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 227
Регистрация: 23.12.2003
Где: Нижний Новгород

Репутация: нет
Всего: 1



при нажатии на кнопочку ничего не происходит....... :-(
а про закрытие:
когда пользователь закроет этот файл (открытый нажатием на кнопку). чтоб программа продолжила работу.
то бишь хотелось бы узнать момент, когда он будет закрыт.
PM MAIL ICQ   Вверх
Black_Star
Дата 12.2.2004, 13:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



Вместо FileToOpen пиши имя файла smile.gif
PM ICQ   Вверх
kb-nn
Дата 12.2.2004, 14:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 227
Регистрация: 23.12.2003
Где: Нижний Новгород

Репутация: нет
Всего: 1



я так и делаю!!!!!
вот как выглядит моя процедура Command_Click
Private Sub Command1_Click()
Dim FileToOpen As String
Dim path As String
path = App.path
FileToOpen = path & "\" & "myDoc.doc"
Call ShellExecute(GetDesktopWindow, "Open", FileToOpen, "", "", SW_SHOWNORMAL)
End Sub

примечание: файл myDoc.doc существует (в том каталоге. где у менгя расположен этот проект)
PM MAIL ICQ   Вверх
kb-nn
Дата 12.2.2004, 16:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 227
Регистрация: 23.12.2003
Где: Нижний Новгород

Репутация: нет
Всего: 1



конпка называется Command1
PM MAIL ICQ   Вверх
Black_Star
Дата 12.2.2004, 18:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



Цитата
FileToOpen = path & "\" & "myDoc.doc"

Хе, так проще:
Цитата
FileToOpen = path & "\myDoc.doc"


И потом, у меня все работает !
Глюк еще может быть, если у тебя проект лежит сразу на диске.
Потому надо писать:
Код
Dim path As String
path = App.path
If Right(path,1)<>"\" then path=path & "\"
FileToOpen = path & "myDoc.doc"

Я тут подумал еще... path - зарегистрированное слово, попробуй что-нибудь другое...

PM ICQ   Вверх
kb-nn
Дата 13.2.2004, 10:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 227
Регистрация: 23.12.2003
Где: Нижний Новгород

Репутация: нет
Всего: 1



у меня тоже работает!
я кое- что перепутал, простите меня.....
у меня файл myDoc.doc не там лежал...

остался маленький вопрос.
можно ли отловить момент, когда пользователь закроет этот файл?
чтоб потом продолжить выполнение программы.
чтобы например проверить, как пользователь усвоил его содежимое?
PM MAIL ICQ   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

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

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

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

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


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

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


 




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


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

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