VBNet - Форум - Запуск программы из другой программы с заполнен...

Вопрос: Запуск программы из другой программы с заполнен... Добавлено: 03.04.03 16:38

Автор вопроса: V!RU$™ | Web-сайт: cxodnya.narod.ru | ICQ: 132309822

Как можно запустить из программы на ВБ другую программу на ВБ ... и так-чтобы во второй программе были заполнены некоторые пол ! Типо как реализовать запуск с параметрами командной строки!!!!! Вообщем мне надо из одной прога запустить вторую и по обстаятельствам должны быть заполнеы некоторые поля в запускаемой программе!
Ответить

Ответы Всего ответов: 2

Номер ответа: 1
Автор ответа:

E-Man

Вопросов: 3
Ответов: 132

Профиль | | #1

Добавлено: 03.04.03 20:57

Запускаешь прогу с параметрами типа "-field1:value1 -field2:value2" и т.п.

в запускаемой пишешь код, который это поймет.

начать советую с моего любимого split'а:

dim a as variant

a=split(command$,":")

че-то типа того, точно не помню, а вб пока не поставил, чтоб проверить.

в итоге a у на с будет массивом параметров.. а дальше опять split'ом.. по параметру ":" - и обрабатываем... непонятно - пиши, вышлю сэмпл.

Ответить

Номер ответа: 2
Автор ответа:

ICQ: 346632205

Вопросов: 5
Ответов: 86

Профиль | | #2

Добавлено: 04.04.03 00:44

Вот у меня примерчик один завалялся, может это то что надо

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function IsIconic Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Const SW_RESTORE = 9
Const WM_SETTEXT = &HC
Const BM_CLICK = &HF5 ' Top MS secret? Not included into API32.txt

'Code

Private Sub ProcessCommandLine(sCommand As String)
   'Your code here
' MsgBox "Excuted with command: " & sCommand
If Text1.Text <> "" Then Text1.Text = Text1.Text & vbCrLf
Text1 = Text1 & "Excuted with command: " & sCommand
End Sub

Private Sub cmdDummy_Click()
ProcessCommandLine cmdDummy.Caption
cmdDummy.Caption = "Ready for command"
End Sub

Private Sub Form_Load()
im h As Long, hButton As Long
im sCaption As String, sCommand As String
cmdDummy.Visible = False
sCaption = "Your Caption"
Text1 = ""
sCommand = Command
If App.PrevInstance Then
    h = FindWindow(vbNullString, ByVal sCaption)
    ActivateWindow h
    hButton = FindWindowEx(h, 0, vbNullString, ByVal "Ready for command")
    SendMessage hButton, WM_SETTEXT, 0, ByVal sCommand
    SendMessage hButton, BM_CLICK, 0, ByVal 0&
    Unload Me
    Exit Sub
Else
    Caption = sCaption
    cmdDummy.Caption = sCommand
    cmdDummy_Click
End If
End Sub

Private Sub ActivateWindow(h As Long)
If h Then
    If IsIconic(h) Then
        Call ShowWindow(h, SW_RESTORE)
    End If
    Call SetForegroundWindow(h)
Else
    Exit Sub 'no need to continue.
End If
End Sub

Ответить

Страница: 1 |