Основные возможности Visual Basic. Макова Н.Е. - 19 стр.

UptoLike

ВУЗ: 

МичГАУ | Мичуринск

Составители: 

Рубрика: 

19
на щелчок кнопки Command2. Введем их. Теперь содержимое ок-
но кода такое:
Private Sub Command1_Click()
Form1.BackColor = vbRed
Text1.FontSize = 16
Text1.Text = "Теперь форма красная"
End Sub
Private Sub Command2_Click()
Form1.BackColor = vbYellow
Text1.FontSize = 12
Text1.Text = "Теперь форма желтая"
End Sub
Запустите проект. Пощелкайте по кнопкам.
1.8. Меню пользователя
Какая же программа без своего меню! Нашему маленькому
проекту оно, вроде бы, ни к чему, но все равно интересно и по-
лезно сделать хотя бы простенькое. Пусть оно выглядит так, как
на рисунке.
Задачу поставим такую: щелкнув по пункту ••••••••• •••••, мы
должны увидеть выпадающее меню из двух пунктов. Щелкнув по
пункту ••••• этого выпавшего меню, мы красим форму в синий
цвет, щелкнув по пункту ••••••• - в зеленый.
Щелкнув по пункту • •••••••••, мы вызываем сообщение с
кратким описанием программы.
Нам предстоит создать меню, а затем заставить его рабо-
тать.
Создаем меню. Чтобы его создать, достаточно в главном
меню Visual Basic выбрать Tools - Menu Editor (Инструменты -
Редактор Меню). Перед вами возникнет диалоговое окно.
PDF created with FinePrint pdfFactory Pro trial version www.pdffactory.com
         на щелчок кнопки Command2. Введем их. Теперь содержимое ок-
         но кода такое:
              Private Sub Command1_Click()
                  Form1.BackColor = vbRed
                  Text1.FontSize = 16
                  Text1.Text = "Теперь форма красная"
                  End Sub
              Private Sub Command2_Click()
                  Form1.BackColor = vbYellow
                  Text1.FontSize = 12
                  Text1.Text = "Теперь форма желтая"
              End Sub
              Запустите проект. Пощелкайте по кнопкам.

                                 1.8. Меню пользователя
              Какая же программа без своего меню! Нашему маленькому
         проекту оно, вроде бы, ни к чему, но все равно интересно и по-
         лезно сделать хотя бы простенькое. Пусть оно выглядит так, как
         на рисунке.




               Задачу поставим такую: щелкнув по пункту ••••••••• •••••, мы
         должны увидеть выпадающее меню из двух пунктов. Щелкнув по
         пункту ••••• этого выпавшего меню, мы красим форму в синий
         цвет, щелкнув по пункту ••••••• - в зеленый.
               Щелкнув по пункту • •••••••••, мы вызываем сообщение с
         кратким описанием программы.
               Нам предстоит создать меню, а затем заставить его рабо-
         тать.
               Создаем меню. Чтобы его создать, достаточно в главном
         меню Visual Basic выбрать Tools - Menu Editor (Инструменты -
         Редактор Меню). Перед вами возникнет диалоговое окно.


                                                                             19

PDF created with FinePrint pdfFactory Pro trial version www.pdffactory.com

Страницы