И последняя доводка в прграмме... Пробовал написать условие на то, что если Command не задан строка-(1), то нужно грузить index.htm по умолчанию.. строка (2) Только какое значение в условии для COMMAND нужно написать, чтобы сказать существует оно или нет..... (TRUE или FALSE) - у меня не получилось


Private Sub LoadNewDoc()
Static lDocumentCount As Long
Dim frmD As frmBrowser
lDocumentCount = lDocumentCount + 1
Set frmD = New frmBrowser

frmD.StartingAddress = App.Path & "\html\" & Command /// запускается с параметром (1)

frmD.StartingAddress = App.Path & "\html\index.htm" /// запуск по умолчанию index.htm (2)

frmD.Show
End Sub

Код

Dim Page as string Page = Trim$(Command$) if Page = "" then    frmD.StartingAddress = App.Path & "\html\index.htm" else    frmD.StartingAddress = App.Path & "\html\" & Page end if

И тебе нужна защита от ламера:
Сделай проверку на левый параметр при запуске (Ну если Комманд муть вернет)

Это сообщение отредактировал(а) Naghual - 24.2.2005, 17:20

Спасибо огромное Naghual ..... !!