ReSQL.ru
     
powered by simpleCommunicator - 2.0.55     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Открыть кнопкой другое приложение
12 сообщений из 12, страница 1 из 1
Открыть кнопкой другое приложение
    #37073526
Oleg99
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Oleg99
Гость
Как можно открыть нажатием кнопки другое VB приложение из первого. Есть кнопки ,, МАГАЗИН,, ,, СКЛАД,, ,, ПОСТАВЩИКИ,, . Нажимая на эти кнопки нужно чтобы открывались эти приложения. Я не имею в виду MDI интерфейс. Если можно подробней. Спасибо.
...
Рейтинг: 0 / 0
23.01.2011, 03:05
| Ответить | Цитировать | Написать  
Открыть кнопкой другое приложение
    #37073574
Фотография michael R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
michael R
Участник
вероятно это Shell
...
Рейтинг: 0 / 0
23.01.2011, 09:47
| Ответить | Цитировать | Написать  
Открыть кнопкой другое приложение
    #37073615
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Oleg99,
Shell ("путь к файлу программы", "вид окна, в котором откроется программа")
Путь - это понятно, второй аргумент - константа, которая может принимать следующие значения:
Имя константы Числовое значение константы В каком окно откроется программа
vbHide 0 скрытое окно, фокус
vbNormalFocus 1 свой размер, фокус
vbMinimizedFocus 2 в виде значка в контрольной панели, фокус
vbMaximizedFocus 3 в полный экран с фокусом
vbNormalNoFocus 4 свой размер без фокуса
vbMinimizedNoFocus 6 в виде значка в контрольной панель, без фокуса
Пример использования:
ProgGO = Shell("C:\Program Files\BANDIT.EXE", 1)
Запускает программу "Однорукий бандит" с тем размером экрана, которая она имеет. Фокус будет на окне программы. В переменную, ProgGO (её надо объявить Dim ProgGo) возвращается идентификационный номер запущеной программы. А если программу запустить не удалось, возникает ошибка.
...
Рейтинг: 0 / 0
23.01.2011, 11:06
| Ответить | Цитировать | Написать  
Открыть кнопкой другое приложение
    #37073616
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
сам ответил, из книги скопипастил, а сейчас смотрю, что вижу
Строка
Shell ("путь к файлу программы", "вид окна, в котором откроется программа")
и
ProgGO = Shell("C:\Program Files\BANDIT.EXE", 1)
между собой "конфликтуют"
Тогда бы было так
ProgGO = Shell("C:\Program Files\BANDIT.EXE", "1")
Короче выбор не большой, единицу в кавычках или нет, пробовать надо
Вот напишут же!!!!
...
Рейтинг: 0 / 0
23.01.2011, 11:10
| Ответить | Цитировать | Написать  
Открыть кнопкой другое приложение
    #37073972
Oleg99
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Oleg99
Гость
Ципихович Эндрю, спасибо за ответ. Могли бы чуть подробней-какой код и как?
...
Рейтинг: 0 / 0
23.01.2011, 18:44
| Ответить | Цитировать | Написать  
Открыть кнопкой другое приложение
    #37073979
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Oleg99, одно из двух
ProgGO = Shell("C:\Program Files\BANDIT.EXE", 1)
ProgGO = Shell("C:\Program Files\BANDIT.EXE", "1")
или так
Shell("C:\Program Files\BANDIT.EXE", 1)
Shell("C:\Program Files\BANDIT.EXE", "1")
...
Рейтинг: 0 / 0
23.01.2011, 18:51
| Ответить | Цитировать | Написать  
Открыть кнопкой другое приложение
    #37074013
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Oleg99, мой рабочий код на ВБА по открытию калькулятора:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
If Tasks.Exists(Name:="Calc") = False Then
Shell "Calc.exe", vbNormalFocus 'запустить калькулятор
Else 'в противном случае сделать ...
If Not Tasks.Item("Калькулятор").WindowState = wdWindowStateNormal Then 'условие, если задача Calc свёрнута тогда развернуть её
Tasks.Item("Калькулятор").WindowState = wdWindowStateNormal
Else
Tasks.Item("Калькулятор").Activate
End If
End If
...
Рейтинг: 0 / 0
23.01.2011, 19:33
| Ответить | Цитировать | Написать  
Открыть кнопкой другое приложение
    #37074054
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
Ципихович Эндрю,

А кто такой Tasks?

P.S. Ты если приводишь код, так приводи его полностью ;)
...
Рейтинг: 0 / 0
23.01.2011, 20:17
| Ответить | Цитировать | Написать  
Открыть кнопкой другое приложение
    #37074117
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Игорь Горбонос, таск это задача, и это код полный
...
Рейтинг: 0 / 0
23.01.2011, 21:21
| Ответить | Цитировать | Написать  
Открыть кнопкой другое приложение
    #37074139
timtim
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
timtim
Участник
Ципихович Эндрютаск это задача, и это код полный
У меня не работает твой "код".
Пишет Object required.

Объясни что такое Tasks.
...
Рейтинг: 0 / 0
23.01.2011, 21:42
| Ответить | Цитировать | Написать  
Открыть кнопкой другое приложение
    #37074416
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
timtim, прошлый раз же сказал, Tasks это задача, вот пожалуйста и Гугл подтверждает:
Tasks
Перевод: английский > русский
Задачи
смотрите файл и наслаждайтесь калькулятором
и как бы у Вас должен быть файл Calc.exe
...
Рейтинг: 0 / 0
24.01.2011, 05:25
| Ответить | Цитировать | Написать  
Открыть кнопкой другое приложение
    #37074815
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Ципихович Эндрю
> timtim, прошлый раз же сказал, Tasks это задача, вот пожалуйста и Гугл подтверждает:


Вау! Эндрю, нужно было просто сказать что Tasks это мембер Ворда, но козыряние гуглом показывает что гугл у тебя не
забанен

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
24.01.2011, 11:30
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Открыть кнопкой другое приложение
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&tid=2159032]:
 0ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 59ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 43ms
get tp. blocked users:
 1ms
others: 11ms
total:  158ms
созд. / загр.: 158ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]