Читайте также:
|
Флажки — это элементы управления, которые можно отмечать (ставить "галочку"), выбирая из ряда опций одну или несколько. CheckBox может иметь два различных состояния — отмеченное и не отмеченное.
Переключатель (OptionButton) - элемент управления, представляющий собой кружок с точкой или без, предназначен для установки только одной опции из группы. Обычно все переключатели формы объединены в одну группу. Если вы желаете сформировать новую группу переключателей, то нужно поместить их в отдельный элемент-контейнер, например Frame.
Создадим проект, предназначенный либо для добавления текстовой информации в файл, либо для её перезаписи. С помощью переключателей пользователь будет иметь выбор между добавлением в конец файла и перезаписью. Флажок будет предоставлять возможность очистить поле ввода после операции.
Запустите VisualBasic. Создайте новый стандартный проект. Добавьте на форму компоненты и задайте им свойства приведенные в таблице.
| Объект | Свойство | Значение |
| Форма | имя | frmMyForm |
| Caption | Запись в файл | |
| Надпись - Label | Caption | Имя &файла: |
| Текстовое поле - TextBox | имя | txtFileName |
| text | "Мой файл.txt" (пустая строка) | |
| Текстовое поле - TextBox | имя | txtInput |
| text | "" (пустая строка) | |
| MiltiLine | True | |
| Рамка - Frame | ||
| text | Действие | |
| Переключатель - Option | имя | Option1 |
| Caption | Добавить в файл | |
| Переключатель - Option | имя | Option2 |
| Caption | Переписать | |
| Кнопка - CommandButton | имя | cmd1 |
| Caption | &Запись | |
| Флажок | имя | Check1 |
| Caption | Очистить текстовое поле | |
| Value | 1 - Отмечено |
Для того чтобы текстовое поле сделать многострочным мы присвоили его свойству MiltiLine значение True (Истина).
Теперь необходимо написать обработчик события щелчка по кнопке "Запись".
Первым дело проверим не пусто ли "имя файла".
Дата добавления: 2015-07-16; просмотров: 45 | Нарушение авторских прав
| <== предыдущая страница | | | следующая страница ==> |
| Использование элементов управления | | | Private Sub cmd1_Click() If Len(txtFileName.Text) Then End If End Sub |