Страница: 1 |
Вопрос: параметры запуска | Добавлено: 22.09.10 09:27 |
Автор вопроса: ![]() |
Привет всем ! Создал 2 ехе .1 ый должен проверят истинность и при положительном ответе должен запустит другую ехе и ЕХЕ2.visible=True .Как передать параметры запуска с 1 го на 2 ой |
Ответы | Всего ответов: 5 |
Номер ответа: 1 Автор ответа: ![]() ![]() Вопросов: 3 Ответов: 12 |
Профиль | Цитата | #1 | Добавлено: 22.09.10 09:52 |
Через Shell запускаешь, а через Command() анализируешь параметры запуска |
Номер ответа: 2 Автор ответа: ![]() ![]() ![]() ![]() ICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | Цитата | #2 | Добавлено: 22.09.10 10:06 |
ЕХЕ2.visible=True
объясни что это |
Номер ответа: 3 Автор ответа: ![]() ![]() ![]() ![]() Вопросов: 19 Ответов: 23 |
Профиль | Цитата | #3 | Добавлено: 22.09.10 10:58 |
(ЕХЕ2.visible=True)- это значить что при положительном ответе 1.exe должен запустит 2.exe и передать ему что он должен быть видимым - потому что 2.ехе при самостоятельном запуске запуске становиться невидимым у него при активете Form1.Hide (Form1.Visible=False) .
Private Sub Command1_Click() ![]() rs = Shell("c:\2ok.exe", vbNormalFocus) rs.Show = True MsgBox Command$ End Sub |
Номер ответа: 4 Автор ответа: ![]() ![]() ![]() ![]() Вопросов: 19 Ответов: 23 |
Профиль | Цитата | #4 | Добавлено: 22.09.10 11:46 |
Спасибо всем.Сделано.Дальше можно усовершенствовать
1.ехе Private Sub Command1_Click() ![]() rs = Shell("C:\2ok.exe 1", vbNormalFocus) End Sub 2.ехе Private Sub Form_Load() Dim cmnd cmnd = Command If cmnd = 1 Then MsgBox Command, , "Command line parameters" Form1.Show Else MsgBox "Нет Доступа!", , "Error" End End If End Sub |
Номер ответа: 5 Автор ответа: ![]() ![]() ![]() ![]() Вопросов: 4 Ответов: 330 |
Профиль | Цитата | #5 | Добавлено: 22.09.10 12:27 |
лучше код немного оптимизировать...
1.exe
2.exe
|
Страница: 1 |
|