Отправляет email-рассылки с помощью сервиса Sendsay

Visual Basic.NET. Уроки

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 6.040 RSS
  Апрель 2002   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30


За последние 60 дней ни разу не выходила


Сайт рассылки: http://progs.biz
Открыта: 17-03-2002

Автор
Алексеев Игорь

Статистика

6.040 подписчиков
0 за неделю
←   Все выпуски   →

Visual Basic. Уроки.


Информационный Канал Subscribe.Ru - www.lycos.ru

VB.NET. Программирование для Windows. Уроки с сайта http://progs.biz

Рассылка №1

VB.NET для Windows. Урок 1. Первая программа под Windows.
VB.NET для Windows. Урок 2. Свойства Anchor и Dock.
VB.NET для Windows. Урок 3. Свойства Size и Location.
Полные версии уроков (с картинками) можно найти по адресам
Урок 1. Первая программа под Windows.
Урок 2. Свойства Anchor и Dock.
Урок 3. Свойства Size и Location.

VB.NET для Windows. Урок 1. Первая программа под Windows

На этом занятии мы с вами создадим наше первое приложение в VB.NET. Версия VB.NET пришла на смену Visual Basic'у шестой версии, и, надо сказать, отличия между этими двумя версиями VB весьма значительные. Но на этом уроке мы не будем рассматривать отличия между версиями VB, а просто создадим наше первое приложение. Оно будет принимать в TextBox'ах два числа, далее пользователь выберет с помощью радиокнопок, что с этими числами надо сделать (сложить, вычесть, перемножить или поделить), нажмет на кнопку и получит в Label'е результат.

Запускаем VB.NET (разумеется, VB должен быть уже установлен на вашем компьютере).

Появляется окошко Start для среды разработки Visual Studio .NET.

Далее для создания нового проекта щелкаем на меню File, далее выбираем подменю New, и затем выбираем Project. Появится окошко New Project в котором в левом списке возможных языков выбираем, естественно, Visual Basic Projects, и в правой части Windows Application.

В нижней части окна New Project задайте имя проекта, и в окошке ниже - расположение (для этого, возможно, придется воспользоваться кнопкой browse). Нажимайте на OK. Появится пустая форма - почти как в Visaul Basic 6. Разместите на форме 2 TextBox'а, одну кнопку, один label и 4 радиокнопки. Свойства Name для всех элементов оставьте без изменений, измените только свойство Text для кнопки на "Сложить", свойство Text для Label'а на "" (пустую строку), свойство Text для радиокнопок на "Сложить", "Вычесть", "Умножить" и "Разделить" соответственно и свойство Checked для первой радиокнопки на true.

Теперь начинаем писать непосредственно код. Сделайте двойной щелчок на первой радиокнопке. Появится заготовка с кодом, в которою напечатайте следующие строки:

...
Private Sub RadioButton1_CheckedChanged(
ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles RadioButton1.CheckedChanged
  op = 0
  Button1.Text = "Сложить"
End Sub
 ...

Код этого обработчика достаточно простой - мы меняем значение переменной op (которую нам еще предстоит ввести), и меняем заголовок на кнопке.

Далее вставьте аналогичный код обработчиков для других радио-кнопок:

...
Private Sub RadioButton2_CheckedChanged(
ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles RadioButton2.CheckedChanged
  op = 1
  Button1.Text = "Вычесть"
End Sub

Private Sub RadioButton3_CheckedChanged(
ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles RadioButton3.CheckedChanged
  op = 2
  Button1.Text = "Умножить"
End Sub

Private Sub RadioButton4_CheckedChanged(
ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles RadioButton4.CheckedChanged
  op = 3
  Button1.Text = "Разделить"
End Sub
 ...

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

  ...
  Private Sub Button1_Click(
  ByVal sender As System.Object, ByVal e As System.EventArgs)
  Handles Button1.Click
    Select Case op
      Case 0
        Label1.Text = CStr(CInt(TextBox1.Text) + CInt(TextBox2.Text))
      Case 1
        Label1.Text = CStr(CInt(TextBox1.Text) - CInt(TextBox2.Text))
      Case 2
        Label1.Text = CStr(CInt(TextBox1.Text) * CInt(TextBox2.Text))
      Case 3
        Label1.Text = CStr(CInt(TextBox1.Text) / CInt(TextBox2.Text))
    End Select
  End Sub
  ...

Добавляем теперь переменную op (ее мы уже использовали):

  ...
  Dim op As Integer
  ...

Ее надо добавить перед вызовами всех наших функций.

С программным кодом все! Запускаем программу, нажав на F5 или на кнопочку со стрелочкой вправо на панели инструментов.

Появится окно программы, в котором мы можем производить различные арифметические действия с нашими числами.

С первой программой все!

Наверх

VB.NET для Windows. Урок 2. Свойства Anchor и Dock

Свойства Anchor и Dock предназначены для случая, когда нам надо сохранение положения элементов на форме (на сколько это возможно, разумеется) при изменении пользователем размеров формы. В предыдущих версиях VB для этого приходилось писать соответствующий обработчик. Кстати говоря, в продуктах Borland'а подобные свойства уже присутствуют довольно-таки давно, так что новым эти свойства являются только для продуктов Microsoft.

Теперь переходим о обсуждению этих свойств более подробно.

Разместите на форме, скажем, кнопку.

При изменении пользователем размера формы кнопка останется на своем старом месте относительно левого верхнего угла формы.

Если же мы установим для свойства Anchor в Top, Right, то при изменении размеров формы пользователем расстояния от верхней и правой границ кнопки до соответствующих границ формы остануться неизменными.

Таким образом установка одного из значений свойств anchor задает неизменность между соответствующими границами элемента управления и сорержащего его контейнера.

Переходим теперь к свойству Dock. Оно отвечает за то, как элемент на форме будет пристыкован к границам своего контейнера. Возможные значения удобно задаются с помощью небольшого редактора, который появляется при щелчке в окне свойств.

Например, если вы зададите для этого свойства значение Top (для этого надо щелкнуть на верхнем прямоугольнике), то элемент расположится в верхней части своего контейнера. При этом если задать это свойство для нескольких элементов на форме, то каждый из них будет пристыкован к соответствующей части оставшегося после других элементов свободного места. Вот так, например, будет выглядеть форма с двумя элементами, со свойством Dock равным Top у первого и Left у второго.

Наверх

VB.NET для Windows. Урок 3. Свойства Size и Location

Свойства Size и Location служат для задания размеров и расположения элементов на форме. В предыдущих версиях VB аналогами для этих свойств были свойства Height, Width, Top и Left.

В Visual Basic.NET эти четыре свойства тоже остались. Но есть и другая возможность (и время покажет, приживется она или нет) - использовать свойства Size и Location.

Свойства Size и Location присутствуют у всех видимых элементов, располагаемых на форме. Обратите внимание, что у элементов, невидимых на этапе выполнения (например у Timer'а), свойств Size и Location нет (в отличие от предыдущих версий Visual Basic'а, где присутствовали аналогичные свойства, правда непонятно для чего).

Каждое из этих двух свойств состоит из двух чисел (ширины и высоты для Size и x и y для Location). Эти пары значений разделятся в окне свойств точкой с запятой.

В окне свойств можно редактировать каждое из этих двух чисел и поотдельности. Для этого нажмите на плюсик рядом со свойством.

Теперь давайте посмотрим, как можно изменять эти свйства программно. В нашем примере при нажатии на кнопку она изменит свою ширину. Разметите на форме кнопку и в обработчик для щелчка на ней добавьте следующие строки:

  Private Sub Button1_Click(
    ByVal sender As System.Object, ByVal e As System.EventArgs)
    Handles Button1.Click
    Dim s As System.Drawing.Size 'Определяем переменную типа Size
    s = Button1.Size() 'Берем текущий размер кнопки
    s.Width = s.Width + 10 'Изменяем размер
    Button1.Size() = s 'Присваиваем кнопке новый размер
  End Sub

А вот так все можно сделать значительно проще:

  Private Sub Button1_Click(
    ByVal sender As System.Object, ByVal e As System.EventArgs)
    Handles Button1.Click
    Button1.Width = Button1.Width + 10
  End Sub

Оба эти способа приведут к одному и тому же результату - ширина кнопки увеличится. Все же эти сложности первого способа связаны с тем, что разработчики из MS захотели сделать VB действительно Объектно-ориентированнным языком. Отсюда и стремление все представлять в виде классов.

Наверх

Copyright Алексеев Игорь, 2002

Copyright сайт progs.biz, 2002

http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное