|
|
|
Запустить Visual Basic из Visual Basic
|
|||
|---|---|---|---|
|
#18+
Нужно программно запустить Visual Basic и запустить проект. Ну visual Basic-то я запустил, а вот сам проект как, не знаю. Пробовал через API-функции, но не выходит, т.к. неизвестен caption окна Известен дескриптор. Возможно ли такое через SendKeys сделать, нажать кнопку F5 ? И если можно, то как? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 25.05.2007, 18:51 |
|
||
|
Запустить Visual Basic из Visual Basic
|
|||
|---|---|---|---|
|
#18+
На сколько я понял: Option Explicit 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) As Long Const SW_SHOWNORMAL = 1 Private Sub Form_Load() Dim l As Long l = ShellExecute(Me.hwnd, "Open", "Path to your project", vbNullString, "", SW_SHOWNORMAL) End Sub ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 25.05.2007, 23:31 |
|
||
|
Запустить Visual Basic из Visual Basic
|
|||
|---|---|---|---|
|
#18+
Большое спасибо. А как сделать так, чтобы этот открывшийся проект сразу выполнялся (run). Вот этом-то и вся проблема, не знаю как. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 26.05.2007, 16:51 |
|
||
|
Запустить Visual Basic из Visual Basic
|
|||
|---|---|---|---|
|
#18+
попробуй через wsh sendkeys ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 29.05.2007, 15:44 |
|
||
|
Запустить Visual Basic из Visual Basic
|
|||
|---|---|---|---|
|
#18+
дополню =) вешай ярлык VB на раб стол... ярлыку назначай hotkey (например CTRL+F7) а на vb/wsh такой вот скрипитик [code] Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.SendKeys "^{F7}" WScript.Sleep 1000 ' подожди пока загрузиться VB [code] "^" -> CTRL {F7}-> F7 и если нужный проект выбран то WshShell.SendKeys "{ENTER}" WScript.Sleep 500 ' пока загрузиться проект WshShell.SendKeys "{F5}" а если проект где то глубоко, или не всегда автоматически активный при загрузке VB то с помощью WSH можно и диалоговое окно запустить и выбрать нужную папку и проект и опять же F5 + SHIFT % ALT ^ CTRL {BS} Backspace {LEFT} left key {RIGHT} right key {UP} UP key {DOWN} down key {TAB} TAB {ESC} ESC ну вроде бы этого долно хватить для полноценной навигации к папке с нужным пректом ==== вариант не самый папский, но наверняка работает ) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 29.05.2007, 16:10 |
|
||
|
Запустить Visual Basic из Visual Basic
|
|||
|---|---|---|---|
|
#18+
DEP1. А как сгенерировать свободный hwnd и под ним открыть окно с помощью shellexecute? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 29.05.2007, 20:53 |
|
||
|
Запустить Visual Basic из Visual Basic
|
|||
|---|---|---|---|
|
#18+
JaneDoe. Спасибо. Попробуем. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 29.05.2007, 20:54 |
|
||
|
Запустить Visual Basic из Visual Basic
|
|||
|---|---|---|---|
|
#18+
А что, параметры командной строки отменили? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 29.05.2007, 23:44 |
|
||
|
|
start [/forum/topic.php?fid=60&msg=34558451&tid=2163944]: |
0ms |
get settings: |
6ms |
get forum list: |
9ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
31ms |
get topic data: |
5ms |
get forum data: |
1ms |
get page messages: |
26ms |
get tp. blocked users: |
1ms |
| others: | 209ms |
| total: | 292ms |
| 0 / 0 |
