Программирование - это просто
Advertisement
Главная arrow Уроки программирования arrow Уроки Visual Basic arrow Visual Basic: Урок4. Продолжим обзор компонентов (OptionButton, VB, MsgBox).
18.07.2024 г.
Главное меню
Главная
Интернет магазин
Программные продукты
Биржевые роботы
Искусственный интеллект
Математика и информатика
1С:Предприятие
Уроки C#
Уроки Delphi
Уроки программирования
Web-программирование
Дизайн и графика
Компьютер для блондинок
Исходники
Статьи
Платный раздел
Рассказы про компьютеры
Хитрости и секреты
Системный подход
Размышления
Наука для чайников
Друзья сайта
Excel-это не сложно
Все о финансах
.
Visual Basic: Урок4. Продолжим обзор компонентов (OptionButton, VB, MsgBox). Печать E-mail
Автор megabax   
15.06.2010 г.
Первые шаги в программировании на Visual Basic

 Visual Basic: Урок 4. Продолжим обзор компонентов (OptionButton, VB, MsgBox).

Продолжим изучать компоненты Visual Basic. Следующий по списку OptionButton*:

 

Visual Basic: продолжим обзор компонентов (OptionButton, VB, MsgBox).

 

Напишем небольшой тестовый пример.  Для начала кинем на форму два компонента OptionButton, один из них назовем opPlus, другой opMinus. Как давать имена вы знаете из урока 2 (VB, события, имена). Из него же вы знаете, как менять у компонентов заголовки. Поэтому давайте сразу поменяем их у наших OpenButtons: "Сложение" и "Вычитание" соответственно. У объекта opPlus установим в true свойство value*:

 

Visual Basic: продолжим обзор компонентов (OptionButton, VB, MsgBox).

 

Теперь добавим два текстовых поля (TexBox), с именами txNumber1 и txNumber2, текст у них очистим (урок 3). Еще нам понадобиться кнопочка (CommandButton). Назовем ее cmDo и назначим заголовок "Действие". Вот что должно в итоге получиться*:

 

Visual Basic: продолжим обзор компонентов (OptionButton, VB, MsgBox).

Теперь напишем для кнопочки обработчик нажатия (см. урок 1):

 

Private Sub cmDo_Click()
       If opPlus.Value = True Then
             MsgBox (Val(txNumber1.Text) + Val(txNumber2.Text))
       End If
       If opMinus.Value = True Then
            MsgBox (Val(txNumber1.Text) - Val(txNumber2.Text))
       End If
End Sub

 

Данная программа у нас проверяет, какой вариант выбран, сложение или вычитание и делает с числом соответствующее действие. Главной особенностью кнопки OptionButton в том, что невозможно выбрать сразу две кнопочки. Запустите программу и убедитесь в этом сами:

 

Visual Basic: продолжим обзор компонентов (OptionButton, VB, MsgBox).

 

Добавим еще и умножение. Для этого кинем на форму еще один OptionButton с именем opMult и заголовком "Умножить".  Добавим несколько строчек в нашу программу:

 

Private Sub cmDo_Click()
       If opPlus.Value = True Then
             MsgBox (Val(txNumber1.Text) + Val(txNumber2.Text))
       End If
       If opMinus.Value = True Then
            MsgBox (Val(txNumber1.Text) - Val(txNumber2.Text))
       End If
       If opMult.Value = True Then
            MsgBox (Val(txNumber1.Text) * Val(txNumber2.Text))
       End If
End Sub

 

Запустим программу и убедимся, что она работает правильно:

 

Visual Basic: продолжим обзор компонентов (OptionButton, VB, MsgBox).

 

Мы изучали компонент OptionButton. На следующем уроке продолжим обзор компонентов VB и рассмотрим другие компоненты.

 


Скриншоты, помеченные знаком *, являются цитатами и иллюстрациями  программного продукта "Microsoft Visual Studio", авторское право на который принадлежит корпорации Microsoft.. 


Последнее обновление ( 04.12.2010 г. )
 
« След.   Пред. »
 
© 2024 Программирование - это просто
Joomla! - свободное программное обеспечение, распространяемое по лицензии GNU/GPL.
Русская локализация © 2005-2008 Joom.Ru - Русский Дом Joomla!
Design by Mamboteam.com | Powered by Mambobanner.de
Я принимаю Яндекс.Деньги