Составить программу для выбора информации о шрифте.

1. Запустите Visual Basic с помощью меню Window/Пуск/Программы. Если программа уже работает, то открыть новый проект Project.


2. Для создания приложения можно использовать следующие объекты управления:
   
   

   Label1	- метка;
   Label2	- метка;
   Label3	- метка;
   Label4	- метка;
   Command1	- командная кнопка с рисунком;
   Command2	- командная кнопка;
   Command3	- командная кнопка;
   Command4	- командная кнопка;
   Combo1	- комбинированный список;
   Combo2	- комбинированный список;
   List1	- список;
   List2	- список.

Необходимые объекты перенести на форму (в соответствии с рис. 4.14) и изметь размеры формы до допустимо возможных.
В работе использованы следующие свойства Properties

Label1	Caption = 'Выбрать шрифт'
Label2	Caption = 'Выбрать начертание'
Label3	Caption = 'Выбрать цвет'
Label4	Caption = 'Выбранный шрифт'
Command1	Caption = 'Выход'
Command2	Caption = 'Выбрать шрифт'
Command3	Caption = 'Добавить шрифт'
Command4	Caption = 'Удалить шрифт'
form1	Caption = 'Списки'
Combo1	List = в соответствии с таблицей 4.1   Text =' '
Combo2	List = в соответствии с таблицей 4.1   Text =' '
List1	List = в соответствии с таблицей 4.1
List2	List = ' '


Таблица 4.1. Заполнение списков - свойство List


Combo1	Combo2	List1
Arial	Жирный	Черный
Courier	Жирный курсив	Белый
Tahoma	Курсив	Зеленый
Times	Нормальный	Красный
Verdana		Синий
		Голубой




При заполнении строк списков необходимо использовать клавиши Ctrl+Enter.
В соответствии с используемыми командными кнопками необходимо активизировать событие Click для Command1, Command2, Command3, Command4.

3. Полный текст программного кода, который составляется пользователем:
   
   Private Sub Command1_Click()
      If Combo1.Listlndex >= 0 Then
         List2.AddItem "Шрифт:      " & Combo1.Text
       End If
         If Combo2.Listlndex >= 0 Then
            List2.AddItem Combo2.Text
          End If
            If List1.ListIndex >= 0 Then
                  List2.AddItem List1.Text
             End If
   End Sub
   
   Private Sub Command2_Click()
   Dim ns As String
   ns = Trim(Combo1.Text)
   If ns <> "  " Then Combo1.AddItem ns
   End Sub
      Private Sub Command3_Click()
      Combo1.RemoveItem Combo1.ListIndex
      End Sub
   Private Sub Command4_Click()
   End
   End Sub
   

   Запустите программу на выполнение: из меню Run/Start или клавишей F5. После запуска программы на экране появится приложение в соответствии с рис. 4.15. Выбирая элементы шрифта, заполните список.

4. Для завершения выполнения программы выполняется команда «Выход» или выполнить команду Run/End.

5. Сохранить файл программы и файл формы с соответствующими расширениями.