"Открыть с помощью..."

[AntonGV]

Как сделать так чтобы при выборе моей программы в диалоге "Открыть с помощью..." , открываемый файл загрузился в текстовое поле?

Наверно я слишком криво сформулировал вопрос

[Etc]

Наверное обрабатывать параметры командной строки.
Поищи по Command

[tyomitch]

1. Прочитать имя файла из Command
2. Открыть файл
3. Прочитать его в текстовое поле

какой из пунктов вызывает проблемы?

[AntonGV]

как прочитать имя файла из Command?

[tyomitch]

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

Dim ИмяФайла As String
ИмяФайла = Command


[AntonGV]

еще один вопрос. Как правильно прочитать файл в текстовое поле? А то у меня получается все слитно

[tyomitch]

Покажи твой код.

[Lumen]

Тут в кирпичах валялся парсер командной строки, его юзай.

[AntonGV]

Open CDbox.FileName For Input As #1
Do While Not (EOF(1))
Input #1, st
s = s + st
Loop
Close #1
Text1.Text = s

Я знаю что очень криво т.к. я первый раз с вайлами работаю

[tyomitch]

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

Open CDbox.FileName For Input As #1
Text1.Text = Input(LOF(1),1)


[AntonGV]

когда я открываю txt файл с помощью моей программы возникает ошибка "Bad file name or number", хотя при открытии из самой программы все работает нормально.
Подскажите еще как работать с диалогом выбора шрифтов из CommonDialog.

А почему я немогу добавить к этому сообщению файл?

[Lumen]

1) Если возникает ошибка, то может быть такой файловый номер уже занят (уже есть файл, открытый с тем же доступом и с таким же номером). Попробуй использовать FreeFile:

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

Dim nFree as integer
nFree = FreeFile
Open CdBox.Filename for input as nFree
...

2)

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

CDBox1.ShowColor
Form1.BackColor = CommonDialog1.Color

[AntonGV]

Оказывается Command возвращает имя файла в кавычках поэтому и неработало. Так работает:

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

file = Mid(Command, 2, Len(Command) - 2)

Может можно проще?

Я спрашивал как работать с диалогом выбора шрифтов. Когдая я пишу
CommonDialog1.ShowFont появляется ошибка что шрифты в системе не установлены!?

Посмотрите программу. Может еще есть ошибки

[XPAHuTEJIb]

куда ещё проще?
ставишь на форму RichTextBox

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

Private Sub Form_Load()
RTB1.FileName = Command$
End Sub


[AntonGV]

Спасибо. Теперь работает