[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Форум » Наш сайт » Visual basic » Коммандная строка visual basic (Коммандная строка visual basic)
Коммандная строка visual basic
ilimДата: Пятница, 04.02.2011, 05:11 | Сообщение # 1
Генералиссимус
Группа: Администраторы
Сообщений: 680
Награды: 17
Репутация: 4
Статус: Offline
Функция Command нужна для получение значений коммандной строки. Для чего это нужно? Например, перед тобой стоит такая задача:

Надо сделать чтобы все текстовые файлы открывались твоей программой(это можно сделать при помощи шага: "Регистрация новых типов файлов(расширений)"), и текст содержащийся в текст. файле помещался в текстовое поле(Text1). Это("текст содержащийся в текст. файле помещался в текстовое поле") можно сделать только при функции Command. Сейчас мы сделаем такую программу. На форму кинь текст. поле

(MultiLine = True, ScroollBars = 2). Вот код:

Dim Com As String

Private Sub Form_Load()
' Следующие 2 строчки будут вырезать первый и последний символ значение Command. Все дело в том, что функция Command выдает значение в кавычках, и эти 2 строчки уберут кавычки

Com = Mid(Command, 2, Len(Command))
Com = Mid(Com, 1, Len(Com) - 1)' Переменная Com будет равна значению Command, но без кавычек

' Открываем файл, путь к которому записан в переменной Com
Open Com For Input As #1
Text1.Text = Input(LOF(1), #1)
Close #1
End Sub


www.ilim.kz
 
Форум » Наш сайт » Visual basic » Коммандная строка visual basic (Коммандная строка visual basic)
Страница 1 из 11
Поиск: