Параметры Sub main()

[semg]

Программа без окон начинается с sub main()
Как получить параметры, заданные при запуске?
Например, запускаю "prog.exe myparm" - как получить эту myparm?
Thanks - Sam

[alibek]

Command$()

[semg]

Конечно two, и еще two, и еще ...
Спасибо, alibek, ты действительно Большой Человек !

[miroslaw]

alibek

Когда MDI программа начинается с sub main() , то попытка закончить программу, вызвав процедуру Unload, не помогает. Программа остается в памяти.
Даже если в процедуру MDIForm_Unload() поместить оператор End,
то это ситуацию не меняет.

Как же правильно закончить такую программу?

[hohol_kz]

Хм, странно, а у меня выгружается...
Может у тебя в sub main() еще что-то происходит после закрытия главной формы?

чтобы не париться воспользуйся старым добрым пошаговым выполнением (Debug/Step into или "F8"). там и найдешь, где у тебя баг

[alibek]

В MDIForm_Unload помести такой код:

Код: Выделить всё

Private Sub MDIForm_Unload()
Dim frm As Form
For Each frm In Forms
  If Not (frm Is Me) Then Unload frm
Next frm
End Sub

[hohol_kz]

В MDIForm_Unload помести такой код:

Код: Выделить всё

Private Sub MDIForm_Unload()
Dim frm As Form
For Each frm In Forms
  If Not (frm Is Me) Then Unload frm
Next frm
End Sub

Сам Visual Studio предлагает такой вариант:

Код: Выделить всё

Private Sub Form_Unload(Cancel As Integer)
    Dim i As Integer

    '------------------- close all sub forms
    For i = Forms.Count - 1 To 1 Step -1
        Unload Forms(i)
    Next
    '------------------- save settings in reestr
    If Me.WindowState <> vbMinimized Then
        SaveSetting App.Title, "Settings", "FormLeft", Me.Left
        SaveSetting App.Title, "Settings", "FormTop", Me.Top
        SaveSetting App.Title, "Settings", "FormWidth", Me.Width
        SaveSetting App.Title, "Settings", "FormHeight", Me.Height
    End If
   
End Sub

Это сгенерировано мастером создания форм. Примечания мои.

[ism]

hohol_kz,

Код: Выделить всё

    For i = Forms.Count - 1 To 1 Step -1
        Unload Forms(i)
    Next

Код конечно интересен, но он выгружает все формы кроме одной, и не факт что она выгрузится сама.
Для примера создай проект с 2 формами, в Form_Load() первой напиши form2.show, а в Form_Unload второй напиши эту выгрузку. Первая форма не выгрузится при закрытии второй.
Код alibek'а будет работать отовсюду, и даже поверяит не выгружает ли он себя повторно.

[hohol_kz]

Естественно, этот код же выгружает усе суб-формы, которые могут быть забыты, отчего у чела возможно не завершается прога.
А уж кады все лишнее выгружено и завершено, можно и последнюю форму закрыть.