| Вопрос: параметры запуска | Добавлено: 22.09.10 09:27 |
Автор вопроса:  Эдик
|
|
Привет всем ! Создал 2 ехе .1 ый должен проверят истинность и при положительном ответе должен запустит другую ехе и ЕХЕ2.visible=True .Как передать параметры запуска с 1 го на 2 ой |
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа:  ANALYST Вопросов: 3 Ответов: 12 |
Профиль | | #1 | Добавлено: 22.09.10 09:52 |
| Через Shell запускаешь, а через Command() анализируешь параметры запуска | ||
|
Номер ответа: 2 Автор ответа: AgentFire 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()  im rs As Double
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() im rs As Double
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 Автор ответа: Just Вопросов: 4 Ответов: 330 |
Профиль | | #5 | Добавлено: 22.09.10 12:27 |
|
лучше код немного оптимизировать...
1.exe
2.exe
|
||
Страница: 1 |