Все вопросы к тесту (html) Информационные технологии

1. Для Проекта 2 "Расположение управляющих элементов" введите код событийной процедуры перемещения кнопки в левый нижний угол формы.

2. Создать проект, который позволяет перемещать по форме список (ListBox) с помощью командных кнопок (Button):

Код событийной процедуры перемещения кнопки в левый нижний угол формы для Проекта 2 "Расположение управляющих элементов":

Private Sub Button3___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim val, val1, val2 As Point

val1 = Button3.Size

val2 = Me.Size

val.X = ___

val.Y = …

Button3.Location = val

End Sub

Введите выражение (без пробелов), вычисляющее значение val.X

Код событийной процедуры перемещения кнопки в левый нижний угол формы для Проекта 2 "Расположение управляющих элементов":

Private Sub Button3___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim val, val1, val2 As Point

val1 = Button3.Size

val2 = Me.Size

val.X = …

val.Y = ___

Button3.Location = val

End Sub

Введите выражение (без пробелов), вычисляющее значение val.Y с помощью val1 и val2

Код событийной процедуры перемещения списка в левый верхний угол формы:

Private Sub Button1___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim val As Point

val.X = ___

val.Y = …

ListBox1.Location = val

End Sub

Введите выражение (без пробелов), вычисляющее значение val.X

Код событийной процедуры перемещения списка в левый верхний угол формы:

Private Sub Button1___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim val As Point

val.X = …

val.Y = ___

ListBox1.Location = val

End Sub

Введите выражение (без пробелов), вычисляющее значение val.Y

Код событийной процедуры перемещения списка в левый нижний угол формы:

Private Sub Button3___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim val, val1, val2 As Point

val1 = ListBox1.Size

val2 = Me.Size

val.X = ___

val.Y = …

ListBox1.Location = val

End Sub

Введите выражение (без пробелов), вычисляющее значение val.X

Код событийной процедуры перемещения списка в левый нижний угол формы:

Private Sub Button3___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim val, val1, val2 As Point

val1 = ListBox1.Size

val2 = Me.Size

val.X = …

val.Y = ___

ListBox1.Location = val

End Sub

Введите выражение (без пробелов), вычисляющее значение val.Y с помощью val1 и val2

Код событийной процедуры перемещения списка в правый верхний угол формы:

Private Sub Button2___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim val, val1, val2 As Point

val1 = ListBox1.Size

val2 = Me.Size

val.X = ___

val.Y = …

ListBox1.Location = val

End Sub

Введите выражение (без пробелов), вычисляющее значение val.X с помощью val1 и val2

Код событийной процедуры перемещения списка в правый верхний угол формы:

Private Sub Button2___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim val, val1, val2 As Point

val1 = ListBox1.Size

val2 = Me.Size

val.X = …

val.Y = ___

ListBox1.Location = val

End Sub

Введите выражение (без пробелов), вычисляющее значение val.Y

Код событийной процедуры перемещения списка в правый нижний угол формы:

Private Sub Button4___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Dim val, val1, val2 As Point

val1 = ListBox1.Size

val2 = Me.Size

val.X = ___

val.Y = …

ListBox1.Location = val

End Sub

Введите выражение (без пробелов), вычисляющее значение val.X с помощью val1 и val2

Код событийной процедуры перемещения списка в правый нижний угол формы:

Private Sub Button4___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Dim val, val1, val2 As Point

val1 = ListBox1.Size

val2 = Me.Size

val.X = …

val.Y = ___

ListBox1.Location = val

End Sub

Введите выражение (без пробелов), вычисляющее значение val.Y с помощью val1 и val2

1. Для Проекта 2 "Расположение управляющих элементов" введите код событийной процедуры перемещения кнопки в правый верхний угол формы.

2. Создать проект, который позволяет перемещать по форме переключатель (RadioButton) с помощью командных кнопок (Button):

Код событийной процедуры перемещения кнопки в правый верхний угол формы для Проекта 2 "Расположение управляющих элементов":

Private Sub Button2___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim val, val1, val2 As Point

val1 = Button2.Size

val2 = Me.Size

val.X = ___

val.Y = …

Button2.Location = val

End Sub

Введите выражение (без пробелов), вычисляющее значение val.X с помощью val1 и val2

Код событийной процедуры перемещения кнопки в правый верхний угол формы для Проекта 2 "Расположение управляющих элементов":

Private Sub Button2___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim val, val1, val2 As Point

val1 = Button2.Size

val2 = Me.Size

val.X = …

val.Y = ___

Button2.Location = val

End Sub

Введите выражение (без пробелов), вычисляющее значение val.Y

Код событийной процедуры перемещения переключателя в левый верхний угол формы:

Private Sub Button1___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim val As Point

val.X = ___

val.Y = …

RadioButton1.Location = val

End Sub

Введите выражение (без пробелов), вычисляющее значение val.X

Код событийной процедуры перемещения переключателя в левый верхний угол формы:

Private Sub Button1___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim val As Point

val.X = …

val.Y = ___

RadioButton1.Location = val

End Sub

Введите выражение (без пробелов), вычисляющее значение val.Y

Код событийной процедуры перемещения переключателя в левый нижний угол формы:

Private Sub Button3___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim val, val1, val2 As Point

val1 = RadioButton1.Size

val2 = Me.Size

val.X = ___

val.Y = …

RadioButton1.Location = val

End Sub

Введите выражение (без пробелов), вычисляющее значение val.X

Код событийной процедуры перемещения переключателя в левый нижний угол формы:

Private Sub Button3___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim val, val1, val2 As Point

val1 = RadioButton1.Size

val2 = Me.Size

val.X = …

val.Y = ___

RadioButton1.Location = val

End Sub

Введите выражение (без пробелов), вычисляющее значение val.Y с помощью val1 и val2

Код событийной процедуры перемещения переключателя в правый верхний угол формы:

Private Sub Button2___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim val, val1, val2 As Point

val1 = RadioButton1.Size

val2 = Me.Size

val.X = ___

val.Y = …

RadioButton1.Location = val

End Sub

Введите выражение (без пробелов), вычисляющее значение val.X с помощью val1 и val2

Код событийной процедуры перемещения переключателя в правый верхний угол формы:

Private Sub Button2___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim val, val1, val2 As Point

val1 = RadioButton1.Size

val2 = Me.Size

val.X = …

val.Y = ___

RadioButton1.Location = val

End Sub

Введите выражение (без пробелов), вычисляющее значение val.Y

Код событийной процедуры перемещения переключателя в правый нижний угол формы:

Private Sub Button4___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Dim val, val1, val2 As Point

val1 = RadioButton1.Size

val2 = Me.Size

val.X = ___

val.Y = …

RadioButton1.Location = val

End Sub

Введите выражение (без пробелов), вычисляющее значение val.X с помощью val1 и val2

Код событийной процедуры перемещения переключателя в правый нижний угол формы:

Private Sub Button4___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Dim val, val1, val2 As Point

val1 = RadioButton1.Size

val2 = Me.Size

val.X = …

val.Y = ___

RadioButton1.Location = val

End Sub

Введите выражение (без пробелов), вычисляющее значение val.Y с помощью val1 и val2

1. Для Проекта 2 "Расположение управляющих элементов" введите код событийной процедуры перемещения кнопки в правый нижний угол формы.

2. Создать проект, который позволяет перемещать кнопки (Button), расположенные в углах формы, в центр формы:

После щелчка по кнопкам они должны переместиться в центр формы:

Код событийной процедуры перемещения кнопки в правый нижний угол формы для Проекта 2 "Расположение управляющих элементов":

Private Sub Button4___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Dim val, val1, val2 As Point

val1 = Button4.Size

val2 = Me.Size

val.X = ___

val.Y = …

Button4.Location = val

End Sub

Введите выражение (без пробелов), вычисляющее значение val.X с помощью val1 и val2

Код событийной процедуры перемещения кнопки в правый нижний угол формы для Проекта 2 "Расположение управляющих элементов":

Private Sub Button4___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Dim val, val1, val2 As Point

val1 = Button4.Size

val2 = Me.Size

val.X = …

val.Y = ___

Button4.Location = val

End Sub

Введите выражение (без пробелов), вычисляющее значение val.Y с помощью val1 и val2

Код событийной процедуры перемещения левой верхней кнопки в центр формы:

Private Sub Button1___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim val, val1, val2 As Point

val1 = Button1.Size

val2 = Me.Size

val.X = ___

val.Y = …

Button1.Location = val

End Sub

Введите выражение (без пробелов), вычисляющее значение val.X с помощью val1 и val2

Код событийной процедуры перемещения левой верхней кнопки в центр формы:

Private Sub Button1___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim val, val1, val2 As Point

val1 = Button1.Size

val2 = Me.Size

val.X = …

val.Y = ___

Button1.Location = val

End Sub

Введите выражение (без пробелов), вычисляющее значение val.Y с помощью val1 и val2

Код событийной процедуры перемещения левой нижней кнопки в центр формы:

Private Sub Button3___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim val, val1, val2 As Point

val1 = Button3.Size

val2 = Me.Size

val.X = ___

val.Y = …

Button3.Location = val

End Sub

Введите выражение (без пробелов), вычисляющее значение val.X с помощью val1 и val2

Код событийной процедуры перемещения левой нижней кнопки в центр формы:

Private Sub Button3___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim val, val1, val2 As Point

val1 = Button3.Size

val2 = Me.Size

val.X = …

val.Y = ___

Button3.Location = val

End Sub

Введите выражение (без пробелов), вычисляющее значение val.Y с помощью val1 и val2

Код событийной процедуры перемещения правой верхней кнопки в центр формы:

Private Sub Button2___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim val, val1, val2 As Point

val1 = Button2.Size

val2 = Me.Size

val.X = ___

val.Y = …

Button2.Location = val

End Sub

Введите выражение (без пробелов), вычисляющее значение val.X с помощью val2

Код событийной процедуры перемещения правой верхней кнопки в центр формы:

Private Sub Button2___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim val, val1, val2 As Point

val1 = Button2.Size

val2 = Me.Size

val.X = …

val.Y = ___

Button2.Location = val

End Sub

Введите выражение (без пробелов), вычисляющее значение val.Y с помощью val1 и val2

Код событийной процедуры перемещения правой нижней кнопки в центр формы:

Private Sub Button4___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Dim val, val1, val2 As Point

val1 = Button4.Size

val2 = Me.Size

val.X = ___

val.Y = …

Button4.Location = val

End Sub

Введите выражение (без пробелов), вычисляющее значение val.X с помощью val2

Код событийной процедуры перемещения правой нижней кнопки в центр формы:

Private Sub Button4___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Dim val, val1, val2 As Point

val1 = Button4.Size

val2 = Me.Size

val.X = …

val.Y = ___

Button4.Location = val

End Sub

Введите выражение (без пробелов), вычисляющее значение val.Y с помощью val1 и val2

1. Добавить на форму Проекта 1 «Расположение формы» кнопку, с помощью которой форма перемещается в левый нижний угол экрана монитора.

2. Создать проект, который позволяет перемещать по форме надпись (Label) с помощью командных кнопок (Button):

Код событийной процедуры перемещения надписи в левый верхний угол формы:

Private Sub Button1___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim val As Point

val.X = ___

val.Y = …

Label1.Location = val

End Sub

Введите выражение (без пробелов), вычисляющее значение val.X

Код событийной процедуры перемещения надписи в левый верхний угол формы:

Private Sub Button1___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim val As Point

val.X = …

val.Y = ___

Label1.Location = val

End Sub

Введите выражение (без пробелов), вычисляющее значение val.Y

Код событийной процедуры перемещения надписи в левый нижний угол формы:

Private Sub Button3___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim val, val1, val2 As Point

val1 = Label1.Size

val2 = Me.Size

val.X = ___

val.Y = …

Label1.Location = val

End Sub

Введите выражение (без пробелов), вычисляющее значение val.X

Код событийной процедуры перемещения надписи в левый нижний угол формы:

Private Sub Button3___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim val, val1, val2 As Point

val1 = Label1.Size

val2 = Me.Size

val.X = …

val.Y = ___

Label1.Location = val

End Sub

Введите выражение (без пробелов), вычисляющее значение val.Y с помощью val1 и val2

Код событийной процедуры перемещения надписи в правый верхний угол формы:

Private Sub Button2___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim val, val1, val2 As Point

val1 = Label1.Size

val2 = Me.Size

val.X = ___

val.Y = …

Label1.Location = val

End Sub

Введите выражение (без пробелов), вычисляющее значение val.X с помощью val1 и val2

Код событийной процедуры перемещения надписи в правый верхний угол формы:

Private Sub Button2___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim val, val1, val2 As Point

val1 = Label1.Size

val2 = Me.Size

val.X = …

val.Y = ___

Label1.Location = val

End Sub

Введите выражение (без пробелов), вычисляющее значение val.Y

Код событийной процедуры перемещения надписи в правый нижний угол формы:

Private Sub Button4___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Dim val, val1, val2 As Point

val1 = Label1.Size

val2 = Me.Size

val.X = ___

val.Y = …

Label1.Location = val

End Sub

Введите выражение (без пробелов), вычисляющее значение val.X с помощью val1 и val2

Код событийной процедуры перемещения надписи в правый нижний угол формы:

Private Sub Button4___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Dim val, val1, val2 As Point

val1 = Label1.Size

val2 = Me.Size

val.X = …

val.Y = ___

Label1.Location = val

End Sub

Введите выражение (без пробелов), вычисляющее значение val.Y с помощью val1 и val2

Код событийной процедуры перемещения формы в левый нижний угол экрана монитора для Проекта 1 «Расположение формы»:

Private Sub Button4___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Dim val, val1, val2 As Point

val1 = Me.Size

val2 = My.Computer.Screen.WorkingArea.Size

val.X = ___

val.Y = …

Me.Location = val

End Sub

Введите выражение (без пробелов), вычисляющее значение val.X

Код событийной процедуры перемещения формы в левый нижний угол экрана монитора для Проекта 1 «Расположение формы»:

Private Sub Button4___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Dim val, val1, val2 As Point

val1 = Me.Size

val2 = My.Computer.Screen.WorkingArea.Size

val.X = …

val.Y = ___

Me.Location = val

End Sub

Введите выражение (без пробелов), вычисляющее значение val.Y с помощью val1 и val2

1. Добавить на форму Проекта 1 «Расположение формы» кнопку, с помощью которой форма перемещается в правый нижний угол экрана монитора.

2. Создать проект, который позволяет перемещать по форме текстовое поле (TextBox) с помощью командных кнопок (Button):

Код событийной процедуры перемещения текстового поля в левый верхний угол формы:

Private Sub Button1___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim val As Point

val.X = ___

val.Y = …

TextBox1.Location = val

End Sub

Введите выражение (без пробелов), вычисляющее значение val.X

Код событийной процедуры перемещения текстового поля в левый верхний угол формы:

Private Sub Button1___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim val As Point

val.X = …

val.Y = ___

TextBox1.Location = val

End Sub

Введите выражение (без пробелов), вычисляющее значение val.Y

Код событийной процедуры перемещения текстового поля в левый нижний угол формы:

Private Sub Button3___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim val, val1, val2 As Point

val1 = TextBox1.Size

val2 = Me.Size

val.X = ___

val.Y = …

TextBox1.Location = val

End Sub

Введите выражение (без пробелов), вычисляющее значение val.X

Код событийной процедуры перемещения текстового поля в левый нижний угол формы:

Private Sub Button3___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim val, val1, val2 As Point

val1 = TextBox1.Size

val2 = Me.Size

val.X = …

val.Y = ___

TextBox1.Location = val

End Sub

Введите выражение (без пробелов), вычисляющее значение val.Y с помощью val1 и val2

Код событийной процедуры перемещения текстового поля в правый верхний угол формы:

Private Sub Button2___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim val, val1, val2 As Point

val1 = TextBox1.Size

val2 = Me.Size

val.X = ___

val.Y = …

TextBox1.Location = val

End Sub

Введите выражение (без пробелов), вычисляющее значение val.X с помощью val1 и val2

Код событийной процедуры перемещения текстового поля в правый верхний угол формы:

Private Sub Button2___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim val, val1, val2 As Point

val1 = TextBox1.Size

val2 = Me.Size

val.X = …

val.Y = ___

TextBox1.Location = val

End Sub

Введите выражение (без пробелов), вычисляющее значение val.Y

Код событийной процедуры перемещения текстового поля в правый нижний угол формы:

Private Sub Button4___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Dim val, val1, val2 As Point

val1 = TextBox1.Size

val2 = Me.Size

val.X = ___

val.Y = …

TextBox1.Location = val

End Sub

Введите выражение (без пробелов), вычисляющее значение val.X с помощью val1 и val2

Код событийной процедуры перемещения текстового поля в правый нижний угол формы:

Private Sub Button4___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Dim val, val1, val2 As Point

val1 = TextBox1.Size

val2 = Me.Size

val.X = …

val.Y = ___

TextBox1.Location = val

End Sub

Введите выражение (без пробелов), вычисляющее значение val.Y с помощью val1 и val2

Код событийной процедуры перемещения формы в правый нижний угол экрана монитора для Проекта 1 «Расположение формы»:

Private Sub Button5___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

Dim val, val1, val2 As Point

val1 = Me.Size

val2 = My.Computer.Screen.WorkingArea.Size

val.X = ___

val.Y = …

Me.Location = val

End Sub

Введите выражение (без пробелов), вычисляющее значение val.X с помощью val1 и val2

Код событийной процедуры перемещения формы в правый нижний угол экрана монитора для Проекта 1 «Расположение формы»:

Private Sub Button5___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

Dim val, val1, val2 As Point

val1 = Me.Size

val2 = My.Computer.Screen.WorkingArea.Size

val.X = …

val.Y = ___

Me.Location = val

End Sub

Введите выражение (без пробелов), вычисляющее значение val.Y с помощью val1 и val2

1. Запустите Microsoft Visual Basic 2005 Express Edition.

2. Создайте новый проект. Для этого введите команду File-New Project... Выберите тип проекта - Windows Application (Windows-приложение):

3. После щелчка по кнопке OK появится окно интегрированной среды разработки Visual Basic 2005:

Проект 1. "Расположение формы".

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

1. Активизируйте форму Form1 щелчком мыши. В окне Свойства объекта (Properties) выберите свойство Text и присвойте ему значение Расположение формы.

2. Разместите в центре формы три кнопки Button1, Button2, Button3.

3. Измените свойство Text кнопок в соответствии с рисунком:

4. Дважды щелкните мышкой по кнопке Button1, введите код событийной процедуры выравнивания формы по центру экрана монитора:

Private Sub Button1___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Me.CenterToScreen()

End Sub

5. Дважды щелкните мышкой по кнопке Button2, введите код событийной процедуры перемещения формы в левый верхний угол экрана монитора:

Private Sub Button2___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim val As Point

val.X = 0

val.Y = 0

Me.Location = val 'Расположение формы

End Sub

6. Дважды щелкните мышкой по кнопке Button3, введите код событийной процедуры перемещения формы в правый верхний угол экрана монитора:

Private Sub Button3___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim val, val1, val2 As Point

val1 = Me.Size 'Размеры формы

val2 = My.Computer.Screen.WorkingArea.Size 'Размеры экрана

val.X = val2.X - val1.X

val.Y = 0

Me.Location = val

End Sub

7. Сохраните проект с помощью команды File-Save All.

8. Запустите приложение на выполнение с помощью команды Debug-Start Debugging или с помощью кнопки . Проверьте работу созданного приложения.

Проект 2. "Расположение управляющих элементов".

Создадим проект, в котором после запуска форма располагается в центре экрана монитора, а четыре кнопки располагаются в центре формы. После щелчка по кнопкам они должны перемещаться в углы формы.

1. Создайте новый проект. Для этого введите команду File-New Project... Выберите тип проекта - Windows Application (Windows-приложение). В окне Name задайте имя проекта – LR1.

2. Активизируйте форму Form1 щелчком мыши. В окне Свойства объекта (Properties) выберите свойство FormBorderStyle и присвойте ему значение None.

3. Разместите в центре формы четыре кнопки в соответствии с рисунком:

4. В окне редактора программного кода установите параметры в соответствии с рисунком:

5. Введите код событийной процедуры, перемещающей форму в центр экрана монитора при запуске:

Private Sub Form1___Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Me.CenterToScreen()

End Sub

6. Дважды щелкните мышкой по кнопке Button1, введите код событийной процедуры перемещения кнопки в левый верхний угол формы:

Private Sub Button1___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim val As Point

val.X = 0

val.Y = 0

Button1.Location = val

End Sub

7. Сохраните проект. Проверьте работу созданного приложения. Завершите работу приложения с помощью кнопки

Главное окно интегрированной среды разработки Visual Basic 2005 имеет следующий вид:

Окно Solution Explorer (Проводник проекта) представляет содержимое проекта, т. е. входящие в него файлы, в форме дерева файлов. В состав проекта входит собственно файл проекта, файлы форм, которых может быть несколько, и файлы программных модулей. Это окно располагается в верхней правой части окна приложения.

В центре окна Visual Basic расположено окно Конструктор форм, в котором размещается главный объект проекта Form1 (Форма). Форма является основой для создания графического интерфейса создаваемого проекта и на ней размещаются различные управляющие элементы (Controls). Вызывается окно Конструктор форм командой View-Designer или с помощью кнопки окна Solution Explorer (Проводник проекта).

Выбор размещаемых на форме управляющих элементов производится с помощью панели инструментов (ToolBox), которая обычно размещается в левой части окна приложения. Панель инструментов содержит управляющие элементы: Надпись (Label), Текстовое поле (TextBox), Командная кнопка (Button) и др.:

Окно Properties (Свойства объекта) предоставляет возможность просмотра и редактирования значений свойств выбранного объекта. В верхней части окна имеется раскрывающийся список всех объектов проекта. В нижней части окна содержится список всех свойств выбранного объекта, а для каждого свойства — список его возможных значений. Окно Свойств объекта располагается в середине правой части окна приложения.

Окно Code (Программный код) позволяет просматривать и редактировать программный код проекта. Вызывается окно Программный код командой View-Code или с помощью кнопки окна Solution Explorer (Проводник проекта):

Командой View-Object Browser можно вызвать окно Object Browser (Просмотр объектов). Окно содержит в левом списке все доступные классы объектов и объекты, текущего проекта (выделены жирным шрифтом), а в правом списке для выбранного объекта показывает перечень его свойств, методов и событий:

Предком Visual Basic был Basic, язык программирования, который использовался как часть MS-DOS. В 1985 году Basic превратился в Visual Basic и стал частью инструментария разработки Windows-приложений. Visual Basic 6.0 представляет собой нечто гораздо большее, чем просто язык программирования, — в него, например, входит программное обеспечение для создания форм, которое раньше называлось Ruby. В Visual Basic 2005 имеется новый генератор форм, а значит, новый способ взаимодействия с операционной системой Windows. В сущности, вся работа Windows доступна через .NET Framework. В частности, .NET Framework присваивает программные имена всем объектам и событиям, которые может контролировать Windows. Программист может использовать эти имена для обращения ко всему, что имеет код в операционной системе. В среде .NET язык программирования становится просто способом взаимодействия с платформой разработки и, следовательно, с операционной системой Windows. Все программы нуждаются в наборе установленных правил для обработки внутренней логики (условных операторов, циклов и т.д.). Visual Basic 2005 предоставляет такой набор правил, а платформа обеспечивает объекты и события для взаимодействия.

Основные понятия, используемые в NET-разработке.

Visual Basic 2005 - язык программирования. Visual Basic представляет собой язык программирования, который обращается к платформе .NET Framework.

Платформа .NET Framework - уровень между языком (в данном случае Visual Basic) и операционной системой, например. Windows 98, Windows ME, Windows 2000, Windows XP, Windows Server 2003 и т.д. Данный уровень предоставляет функциональность, основанную на работе поддерживающей его "Windows-системы, а также библиотеки других функций (таких как математические функции и доступ к базам данных).

Visual Studio 2005 - инструмент, используемый для создания всевозможных приложений с помощью любого совместимого с ним языка программирования. Visual Studio заменяет программу Visual Basic 6.0, которая прежде была частью пакета Visual Studio (все отдельные компоненты пакета были обозначены версией 6.0). Чтобы написать новую программу в среде .NET, необходимо запустить Visual Studio 2005 и выбрать разновидность программы и используемый язык программирования. Например, можно создать Windows Forms-программу с помощью Visual Basic, а можно, используя язык С#, написать приложение для интеллектуального устройства.

Windows Forms - новое название для Visual Basic-приложения. Под этим термином подразумевается приложение, написанное с помощью .NET Framework и имеющее пользовательский Windows-интерфейс.

Web Forms - название приложений с Web-интерфейсом, написанных с помощью .NET Framework. Создание Web Forms-приложений очень похоже на разработку приложений типа Windows Forms.

Web-службы - библиотеки классов, написанные с использованием стандарта, определенного теми же людьми, которые определяли стандарты для World Wide Web. Web-службы используются для взаимодействия между отличающимися друг от друга системами.

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

Точное местоположение и размеры формы отображаются двумя парами чисел. Первая пара чисел показывает расстояние от левого верхнего угла монитора до левого верхнего угла формы, а вторая пара — это размеры формы (ширина и высота). Если необходимо установить точные значения местоположения и размеров формы, то это можно сделать, установив значения этих свойств формы с помощью окна Свойства объекта:

· Location (расстояние от левого верхнего угла монитора до левого верхнего угла формы);

· Size (ширина и высота).

Любой объект можно связать с набором процедур, исполняемых при наступлении определенных событий. Процедура, связанная с определенным событием, называется событийной процедурой. Событиями являются, например, Click (щелчок по объекту мышью), Resize (изменение размера объекта), Load (загрузка объекта) и так далее.

Цель:

изучение системы программирования Microsoft Visual Basic 2005.

Результаты обучения:

После успешного завершения занятия пользователь должен:

· уметь создавать, сохранять и загружать проекты в среде Microsoft Visual Basic 2005;

· знать назначение основных окон среды Microsoft Visual Basic 2005;

· уметь управлять расположением окон и других управляющих элементов с помощью событийных процедур.

Список рекомендуемой литературы:

• Степанов А., Шевякова Д. Самоучитель Visual Basic 2005. – СПб.: BHV, 2006.
• Богданов М.Р. Visual Basic 2005 на примерах. – СПб.: BHV, 2007.
• Патрик Т., Крейг К. Visual Basic 2005: рецепты программирования. – СПб.: BHV, 2008.
• Балена Ф. Программирование на Microsoft Visual Basic 2005. – М.: «Эком», 2008.

Используемые программы:

Microsoft Visual Basic 2005 Express Edition

Microsoft Visual Basic 2005 Express Edition — средство разработки программного обеспечения, включающее язык программирования и среду разработки. Данный продукт предназначен для создания небольших Windows-приложений на основе технологии Windows Forms, являющейся частью Microsoft .NET. С помощью Visual Basic 2005 Express Edition можно создавать консольные приложения и компоненты.

1. Разместите на форме элемент управления ToolStrip:

2. Дважды щелкните по кнопке Add ToolStripButton. Выделите появившийся элемент управления ToolStripButton1, измените свойство Image, для этого нажмите на кнопку , установите флажок Local Resource, нажмите на кнопку Import..., выберите файл Вырезать.bmp из рабочей папки, нажмите на кнопку Открыть и OK:

3. Измените свойство Text элемента управления ToolStripButton1, введите в этом поле – Вырезать.

4. Дважды щелкните по кнопке ToolStripButton1, введите событийную процедуру:

Private Sub ToolStripButton1___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click

Clipboard.Clear()

Clipboard.SetText(TextBox1.SelectedText)

TextBox1.SelectedText = ""

End Sub

5. Сохраните проект. Проверьте работу кнопки Вырезать панели инструментов.

6. Разместите на панели инструментов кнопки Копировать, Вставить, Удалить:

7. Добавьте соответствующие событийные процедуры. Сохраните проект. Проверьте работу созданного приложения.

Проект 1. «Простой текстовый редактор»

Большинство Windows-приложений обладают стандартным графическим интерфейсом. Работа со многими проектами невозможна без меню и панелей инструментов, которые обеспечивают доступ к тем или иным событийным процедурам.

Разработаем простейший текстовый редактор, который позволит выполнять основные операции редактирования текста. В качестве области ввода и редактирования текста используем многострочное текстовое поле.

1. Запустите Microsoft Visual Basic 2005.

2. Создайте новый проект. Для этого введите команду File-New Project... Выберите тип проекта - Windows Application (Windows-приложение). В окне Name задайте имя проекта – LR5___1.

3. Активизируйте форму Form1 щелчком мыши. В окне Properties (Свойства объекта) выберите свойство Text и присвойте ему значение Текстовый редактор.

4. Разместите на форме текстовое поле TextBox1. Для того чтобы сделать поле многострочным, свойству поля Multiline присвойте значение True:

Создадим меню текстового редактора. Меню состоит из двух заголовков верхнего уровня: Файл и Правка. В заголовок Файл входит команда Файл-Выход. В заголовок Правка входят команды Правка-Вырезать-Копировать-Вставить-Удалить. Каждый заголовок и каждая команда меню являются управляющими элементами, которые обладают многими свойствами, но только одним событием Click.

В Visual Basic 2005 в качестве визуального представления меню используется элемент управления MenuStrip.

5. Разместите на форме элемент управления MenuStrip:

6. С помощью поля ввода Type Here конструктора форм сформируйте меню текстового редактора:

7. Дважды щелкните на пункте меню Выход и введите для пункта меню событийную процедуру:

Private Sub ВыходToolStripMenuItem___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВыходToolStripMenuItem.Click

Me.Close()

End Sub

8. Сохраните проект. Проверьте работу пункта меню Выход.

В процессе редактирования текста в окне TextBox будем использовать для промежуточного хранения фрагментов текста объект Windows Clipboard (Буфер обмена). Сначала необходимо очистить буфер с использованием метода Clear. Затем поместить выделенный в текстовом поле фрагмент текста в буфер обмена с использованием метода буфера SetText. Наконец, удалить выделенный фрагмент, присвоив свойству SelectedText пустое значение.

9. Введите событийную процедуру для пункта меню Вырезать:

Private Sub ВырезатьToolStripMenuItem___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВырезатьToolStripMenuItem.Click

Clipboard.Clear()

Clipboard.SetText(TextBox1.SelectedText)

TextBox1.SelectedText = ""

End Sub

10. Сохраните проект. Проверьте работу пункта меню Вырезать.

11. Добавьте событийные процедуры для пунктов меню Копировать, Вставить и Удалить. Для вставки текста из буфера обмена используйте оператор:

TextBox1.SelectedText = Clipboard.GetText()

12. Сохраните проект. Проверьте работу созданного приложения.

Проект 2. «Усовершенствованный текстовый редактор»

Разработаем текстовый редактор, который позволяет:

- открывать и сохранять текстовые файлы;

- форматировать текст (изменять параметры шрифта и выбирать цвет).

Для реализации этого необходимо воспользоваться в качестве рабочего поля текстового редактора элементом управления RichTextBox.

1. Создайте новый проект. Для этого введите команду File-New Project... Выберите тип проекта - Windows Application (Windows-приложение). В окне Name задайте имя проекта – LR5___2.

2. Активизируйте форму Form1 щелчком мыши. В окне Properties (Свойства объекта) выберите свойство Text и присвойте ему значение Текстовый редактор.

3. Разместите на форме текстовое поле RichTextBox:

4. Создайте меню текстового редактора:

5. Перетащите объект SaveFileDialog из окна ToolBox в область компонентов проекта.

6. Введите событийную процедуру для пункта меню Сохранить:

Private Sub СохранитьToolStripMenuItem___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles СохранитьToolStripMenuItem.Click

SaveFileDialog1.ShowDialog()

RichTextBox1.SaveFile(SaveFileDialog1.FileName)

End Sub

7. Сохраните проект. Проверьте работу пункта меню Сохранить.

8. Перетащите объект OpenFileDialog из окна ToolBox в область компонентов проекта.

9. Введите событийную процедуру для пункта меню Открыть:

Private Sub ОткрытьToolStripMenuItem___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ОткрытьToolStripMenuItem.Click

OpenFileDialog1.ShowDialog()

RichTextBox1.LoadFile(OpenFileDialog1.FileName)

End Sub

10. Сохраните проект. Проверьте работу пункта меню Открыть.

11. Перетащите объект FontDialog из окна ToolBox в область компонентов проекта.

12. Введите событийную процедуру для пункта меню Шрифт:

Private Sub ШрифтToolStripMenuItem___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ШрифтToolStripMenuItem.Click

FontDialog1.Font = RichTextBox1.Font

If FontDialog1.ShowDialog() <> DialogResult.Cancel Then

RichTextBox1.Font = FontDialog1.Font

End If

End Sub

13. Сохраните проект. Проверьте работу пункта меню Шрифт.

14. Перетащите объект ColorDialog из окна ToolBox в область компонентов проекта.

15. Введите событийную процедуру для пункта меню Цвет шрифта:

Private Sub ЦветШрифтаToolStripMenuItem___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ЦветШрифтаToolStripMenuItem.Click

ColorDialog1.Color = RichTextBox1.ForeColor

If ColorDialog1.ShowDialog() <> DialogResult.Cancel Then

RichTextBox1.ForeColor = ColorDialog1.Color

End If

End Sub

16. Сохраните проект. Проверьте работу пункта меню Цвет шрифта.

17. Введите событийную процедуру для пункта меню Цвет фона:

Private Sub ЦветФонаToolStripMenuItem___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ЦветФонаToolStripMenuItem.Click

ColorDialog1.Color = RichTextBox1.BackColor

If ColorDialog1.ShowDialog() <> DialogResult.Cancel Then

RichTextBox1.BackColor = ColorDialog1.Color

End If

End Sub

18. Сохраните проект. Проверьте работу пункта меню Цвет фона.

19. Введите событийную процедуру для пункта меню Выход.

20. Сохраните проект. Проверьте работу приложения.

Создадим контекстное меню для элемента управления TextBox1. Создать контекстное меню можно с помощью элемента ContextMenuStrip.

1. Перетащите объект ContextMenuStrip из окна ToolBox в область компонентов проекта. В конструкторе формы появится построитель ContextMenuStrip:

2. Чтобы задать контекстное меню для элемента управления TextBox1, в окне Properties (Свойства объекта) выберите свойство ContextMenuStrip и установите значение ContextMenuStrip1.

3. Выделите компонент ContextMenuStrip1, введите пункты контекстного меню:

4. Дважды щелкните на пункте меню Вырезать и введите для пункта контекстного меню событийную процедуру.

5. Добавьте событийные процедуры для пунктов контекстного меню Копировать, Вставить и Удалить.

6. Сохраните проект. Проверьте работу контекстного меню. Закройте проект.

Для создания интерфейсных элементов Windows-приложений используются следующие компоненты:

ü MenuStrip — компонент для создания основных меню приложений;

ü ContextMenuStrip — компонент для создания контекстных меню приложений;

ü StatusStrip — компонент для создания статусных панелей;

ü ToolStrip — компонент для создания панелей инструментов.

Компонент ToolStrip служит в качестве базового класса для компонентов, реализующих меню и статусные панели, а также для создания панелей инструментов. Компонент ToolStrip может служить контейнером для следующих компонентов:

ü ToolStripButton — реализует кнопку на инструментальной панели;

ü ToolStripComboBox — реализует список на инструментальной панели;

ü ToolStripSplitButton — реализует кнопку-разделитель на инструментальной панели;

ü ToolStripLabel — реализует элемент инструментальной панели, который может содержать текст, графическое изображение или гиперссылку;

ü ToolStripSeparator — реализует разделитель на инструментальной панели;

ü ToolStripDropDownButton — реализует кнопку с раскрытием вложенных элементов на инструментальной панели;

ü ToolStripTextBox — реализует строку ввода текста на инструментальной панели.

Компонент ToolStrip обеспечивает базовую функциональность инструментальных панелей, включая отрисовку элементов, обработку событий от мыши и клавиатуры, поддержку операций drag-and-drop и т.п.

Компонент MenuStrip представляет собой контейнер для создания структуры меню, каждый элемент которого реализуется с помощью компонента ToolStripMenuItem. Каждый такой элемент может либо представлять конкретную команду, либо содержать дочерние элементы. Компонент MenuStrip может содержать компоненты ToolStripMenuItem, ToolStripComboBox, ToolStripSeparator и ToolStripTextBox.

Компонент ContextMenuStrip используется для реализации контекстных меню, которые отображаются, когда пользователь щелкает правой кнопкой мыши по интерфейсному элементу или определенной области формы. Для связи интерфейсных элементов или формы с контекстным меню используется свойство ContextMenuStrip соответствующего элемента или формы. Контекстное меню может состоять из следующих элементов: ToolStripMenuItem, ToolStripComboBox, ToolStripSeparator и ToolStripTextBox.

Компонент StatusStrip используется для создания статусных панелей и обычно состоит из нескольких элементов StatusStripPanel, добавляемых с помощью метода AddRange, каждый из которых может содержать либо текст, либо графическое изображение, либо и то, и другое. Статусная панель также может содержать компоненты ToolStripLabel и ToolStripProgressBar.

Стандартные диалоговые окна:

ü SaveFileDialog - общее диалоговое окно, позволяющее пользователю задать имя файла, чтобы сохранить файл под другим именем;

ü OpenFileDialog - общее диалоговое окно, позволяющее пользователю задать имя файла для одного или нескольких открываемых файлов;

ü FontDialog - общее диалоговое окно, позволяющее пользователю выбрать шрифт среди шрифтов, установленных на локальном компьютере;

ü ColorDialog - общее диалоговое окно, в котором отображаются доступные цвета и элементы управления, позволяющие пользователю определять собственные цвета.

Для отображения диалогового окна используется метод ShowDialog.

Модернизировать Проект 2 «Усовершенствованный текстовый редактор», добавив контекстное меню для элемента управления RichTextBox с пунктами меню «Вырезать», «Копировать», «Вставить», «Удалить».

Код событийной процедуры для пункта контекстного меню «Вставить» элемента управления RichTextBox Проекта 2 «Усовершенствованный текстовый редактор»:

Private Sub ВставитьToolStripMenuItem___Click___1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВставитьToolStripMenuItem.Click

RichTextBox1.SelectedText = ___.GetText()

End Sub

Введите пропущенное выражение (без пробелов, прописными буквами).

Код событийной процедуры для пункта контекстного меню «Вырезать» элемента управления RichTextBox Проекта 2 «Усовершенствованный текстовый редактор»:

Private Sub ВырезатьToolStripMenuItem___Click___1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВырезатьToolStripMenuItem.Click

Clipboard.Clear()

Clipboard.___ (RichTextBox1.SelectedText)

RichTextBox1.SelectedText = ""

End Sub

Введите пропущенное выражение (без пробелов, прописными буквами).

Код событийной процедуры для пункта контекстного меню «Копировать» элемента управления RichTextBox Проекта 2 «Усовершенствованный текстовый редактор»:

Private Sub КопироватьToolStripMenuItem___Click___1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles КопироватьToolStripMenuItem.Click

Clipboard.Clear()

Clipboard.SetText(RichTextBox1.___)

End Sub

Введите пропущенное выражение (без пробелов, прописными буквами).

Код событийной процедуры для пункта контекстного меню «Удалить» элемента управления RichTextBox Проекта 2 «Усовершенствованный текстовый редактор»:

Private Sub УдалитьToolStripMenuItem___Click___1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles УдалитьToolStripMenuItem.Click

RichTextBox1.SelectedText = ___

End Sub

Введите пропущенное выражение (без пробелов, прописными буквами).

Код событийной процедуры для пункта контекстного меню «Открыть» элемента управления RichTextBox Проекта 2 «Усовершенствованный текстовый редактор»:

Private Sub ОткрытьToolStripMenuItem1___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ОткрытьToolStripMenuItem1.Click

OpenFileDialog1.ShowDialog()

RichTextBox1.LoadFile(OpenFileDialog1.___)

End Sub

Введите пропущенное выражение (без пробелов, прописными буквами).

Код событийной процедуры для пункта контекстного меню «Сохранить» элемента управления RichTextBox Проекта 2 «Усовершенствованный текстовый редактор»:

Private Sub СохранитьToolStripMenuItem1___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles СохранитьToolStripMenuItem1.Click

SaveFileDialog1.___

RichTextBox1.SaveFile(SaveFileDialog1.FileName)

End Sub

Введите пропущенное выражение (без пробелов, прописными буквами).

Код событийной процедуры для пункта контекстного меню «Цвет фона» элемента управления RichTextBox Проекта 2 «Усовершенствованный текстовый редактор»:

Private Sub ЦветФонаToolStripMenuItem1___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ЦветФонаToolStripMenuItem1.Click

ColorDialog1.Color = RichTextBox1.BackColor

If ColorDialog1.ShowDialog() <> DialogResult.Cancel Then

RichTextBox1.BackColor = ___

End If

End Sub

Введите пропущенное выражение (без пробелов, прописными буквами).

Код событийной процедуры для пункта контекстного меню «Цвет шрифта» элемента управления RichTextBox Проекта 2 «Усовершенствованный текстовый редактор»:

Private Sub ЦветШрифтаToolStripMenuItem1___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ЦветШрифтаToolStripMenuItem1.Click

ColorDialog1.Color = RichTextBox1.ForeColor

If ColorDialog1.ShowDialog() <> DialogResult.Cancel Then

RichTextBox1.ForeColor = ColorDialog1.___

End If

End Sub

Введите пропущенное выражение (без пробелов, прописными буквами).

Код событийной процедуры для пункта контекстного меню «Шрифт» элемента управления RichTextBox Проекта 2 «Усовершенствованный текстовый редактор»:

Private Sub ШрифтToolStripMenuItem1___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ШрифтToolStripMenuItem1.Click

FontDialog1.Font = RichTextBox1.Font

If FontDialog1.ShowDialog() <> DialogResult.Cancel Then

RichTextBox1.Font = ___

End If

End Sub

Введите пропущенное выражение (без пробелов, прописными буквами).

Модернизировать Проект 2 «Усовершенствованный текстовый редактор», дополнив его панелью инструментов с кнопками «Вырезать», «Копировать», «Вставить», «Удалить».

Код событийной процедуры для кнопки «Вставить» панели инструментов Проекта 2 «Усовершенствованный текстовый редактор»:

Private Sub ToolStripButton3___Click___1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click

RichTextBox1.SelectedText = Clipboard.___

End Sub

Введите пропущенное выражение (без пробелов, прописными буквами).

Код событийной процедуры для кнопки «Вырезать» панели инструментов Проекта 2 «Усовершенствованный текстовый редактор»:

Private Sub ToolStripButton1___Click___1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click

Clipboard.Clear()

Clipboard.SetText(RichTextBox1.SelectedText)

RichTextBox1.___ = ""

End Sub

Введите пропущенное выражение (без пробелов, прописными буквами).

Код событийной процедуры для кнопки «Копировать» панели инструментов Проекта 2 «Усовершенствованный текстовый редактор»:

Private Sub ToolStripButton2___Click___1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click

Clipboard.Clear()

___.SetText(RichTextBox1.SelectedText)

End Sub

Введите пропущенное выражение (без пробелов, прописными буквами).

Код событийной процедуры для кнопки «Удалить» панели инструментов Проекта 2 «Усовершенствованный текстовый редактор»:

Private Sub ToolStripButton4___Click___1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton4.Click

RichTextBox1.___ = ""

End Sub

Введите пропущенное выражение (без пробелов, прописными буквами).

Код событийной процедуры для кнопки «Открыть» панели инструментов Проекта 2 «Усовершенствованный текстовый редактор»:

Private Sub ToolStripButton1___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click

OpenFileDialog1.___

RichTextBox1.LoadFile(OpenFileDialog1.FileName)

End Sub

Введите пропущенное выражение (без пробелов, прописными буквами).

Код событийной процедуры для кнопки «Сохранить» панели инструментов Проекта 2 «Усовершенствованный текстовый редактор»:

Private Sub ToolStripButton2___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click

SaveFileDialog1.ShowDialog()

RichTextBox1.SaveFile(SaveFileDialog1.___)

End Sub

Введите пропущенное выражение (без пробелов, прописными буквами).

Код событийной процедуры для кнопки «Цвет фона» панели инструментов Проекта 2 «Усовершенствованный текстовый редактор»:

Private Sub ToolStripButton5___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton5.Click

ColorDialog1.Color = RichTextBox1.BackColor

If ColorDialog1.ShowDialog() <> DialogResult.Cancel Then

RichTextBox1.___ = ColorDialog1.Color

End If

End Sub

Введите пропущенное выражение (без пробелов, прописными буквами).

Код событийной процедуры для кнопки «Цвет шрифта» панели инструментов Проекта 2 «Усовершенствованный текстовый редактор»:

Private Sub ToolStripButton4___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton4.Click

ColorDialog1.Color = RichTextBox1.ForeColor

If ColorDialog1.ShowDialog() <> DialogResult.Cancel Then

RichTextBox1.___ = ColorDialog1.Color

End If

End Sub

Введите пропущенное выражение (без пробелов, прописными буквами).

Код событийной процедуры для кнопки «Шрифт» панели инструментов Проекта 2 «Усовершенствованный текстовый редактор»:

Private Sub ToolStripButton3___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click

FontDialog1.Font = RichTextBox1.Font

If FontDialog1.ShowDialog() <> DialogResult.Cancel Then

RichTextBox1.Font = FontDialog1.___

End If

End Sub

Введите пропущенное выражение (без пробелов, прописными буквами).

Модернизировать Проект 2 «Усовершенствованный текстовый редактор», дополнив его пунктами меню «Правка-Вырезать», «Правка-Копировать», «Правка-Вставить», «Правка-Удалить».

Код событийной процедуры для пункта меню «Правка-Вставить» Проекта 2 «Усовершенствованный текстовый редактор»:

Private Sub ВставитьToolStripMenuItem___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВставитьToolStripMenuItem.Click

RichTextBox1.SelectedText = Clipboard.___

End Sub

Введите пропущенное выражение (без пробелов, прописными буквами).

Код событийной процедуры для пункта меню «Правка-Вырезать» Проекта 2 «Усовершенствованный текстовый редактор»:

Private Sub ВырезатьToolStripMenuItem___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВырезатьToolStripMenuItem.Click

Clipboard.Clear()

Clipboard.SetText(RichTextBox1.___)

RichTextBox1.SelectedText = ""

End Sub

Введите пропущенное выражение (без пробелов, прописными буквами).

Код событийной процедуры для пункта меню «Правка-Копировать» Проекта 2 «Усовершенствованный текстовый редактор»:

Private Sub КопироватьToolStripMenuItem___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles КопироватьToolStripMenuItem.Click

Clipboard.Clear()

Clipboard.___(RichTextBox1.SelectedText)

End Sub

Введите пропущенное выражение (без пробелов, прописными буквами).

Код событийной процедуры для пункта меню «Правка-Удалить» Проекта 2 «Усовершенствованный текстовый редактор»:

Private Sub УдалитьToolStripMenuItem___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles УдалитьToolStripMenuItem.Click

RichTextBox1.___ = ""

End Sub

Введите пропущенное выражение (без пробелов, прописными буквами).

Цель:

изучение системы программирования Microsoft Visual Basic 2005.

Результаты обучения:

После успешного завершения занятия пользователь должен уметь:

· создавать меню и панели инструментов проектов;

· использовать диалоговые окна;

· разрабатывать простейшие текстовые редакторы.

Список рекомендуемой литературы:

• Степанов А., Шевякова Д. Самоучитель Visual Basic 2005. – СПб.: BHV, 2006.
• Богданов М.Р. Visual Basic 2005 на примерах. – СПб.: BHV, 2007.
• Патрик Т., Крейг К. Visual Basic 2005: рецепты программирования. – СПб.: BHV, 2008.
• Балена Ф. Программирование на Microsoft Visual Basic 2005. – М.: «Эком», 2008.

Используемые программы:

Microsoft Visual Basic 2005 Express Edition

Используемые файлы:

Вырезать.bmp, Копировать.bmp, Вставить.bmp, Удалить.bmp, Открыть.bmp, Сохранить.bmp, Шрифт.bmp, ЦветШрифта.bmp, ЦветФона.bmp

Microsoft Visual Basic 2005 Express Edition — средство разработки программного обеспечения, включающее язык программирования и среду разработки. Данный продукт предназначен для создания небольших Windows-приложений на основе технологии Windows Forms, являющейся частью Microsoft .NET. С помощью Visual Basic 2005 Express Edition можно создавать консольные приложения и компоненты.

Класс Graphics – один из самых мощных и обширных классов в иерархии .NET Framework, обеспечивающий работу с графикой. С его помощью можно рисовать линии, кривые, фигуры. Прежде чем рисовать какой-либо объект необходимо создать поверхность для рисования. Поверхностью может служить и сама форма, и весь экран, и элемент управления. Для создания такой поверхности служит объект Graphics. Получить доступ или создать данный объект можно разными способами:

- сама форма уже имеет объект Graphics, к которому можно обращаться через события, связанные с рисованием (например, Paint);

- если нужно обратиться к данному объекту через события кнопки, то можно воспользоваться методом CreateGraphics.

После создания поверхности для рисования можно начать рисовать. Рисовать можно пером, кистью или целыми картинками. Пером или карандашом удобно рисовать линии, кривые, дуги. Для создания пера используется класс Pen, например:

Dim p1 As New Pen(Color.Red) – создается перо красного цвета толщиной один пиксел;

Dim p2 As New Pen(Color.Red, 5) – создается перо красного цвета толщиной пять пикселов.

Кистью удобно закрашивать большие пространства. Для создания кисти может использоваться, например, класс SolidBrush:

Dim sb As New SolidBrush(Color.Black)

Для рисования линий разного цвета и толщины используется метод DrawLine. При рисовании линии необходимо задать перо и координаты двух крайних точек.

Для рисования кривых линий часто используется метод DrawLines. При рисовании кривой линии необходимо задать перо и массив координат с плавающей точкой.

Для рисования прямоугольника используются методы DrawRectangle или FillRectange, для рисования нескольких прямоугольников удобнее применить методы DrawRectangles или FillRectanges. При использовании методов с префиксом Fill заданные прямоугольники заливаются кистью заданного цвета. В остальных случаях рисуется окантовка фигуры. При рисовании прямоугольника необходимо задать перо (кисть), координаты верхнего левого угла, ширину и высоту прямоугольника.

Для рисования эллипсов используются методы DrawEllipse или FillEllipse. При рисовании эллипса необходимо задать перо (кисть), координаты верхнего левого угла, ширину и высоту прямоугольника, в котором размещается эллипс.

В Visual Basic 2005 используются и другие методы для рисования, например:

FillPie – рисование секторов;

DrawArc – рисование секторов;

DrawPolygon – рисование многоугольников;

DrawBezier – рисование кривых Безье и др.

Для построения графиков используется метод DrawLines. Этот метод способен нарисовать множество очень коротких отрезков, которые сливаются в кривую по заданной формуле. Один из перегружаемых методов DrawLines выглядит следующим образом:

Sub DrawLines(ByVal pn As Pen, ByVal aptf As PointF())

Первый параметр задает используемое перо, а второй – содержит массив координат с плавающей точкой. Данный метод может содержать несколько сотен тысяч координат. Чем больше структур PointF передается методу, тем более гладкой получится кривая. Метод обладает высокой производительностью, и вывод даже миллиона коротких линий на экран занимает доли секунды.

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

Проект 1. «Простые графические объекты»

1. Запустите Microsoft Visual Basic 2005.

2. Создайте новый проект. Для этого введите команду File-New Project... Выберите тип проекта - Windows Application (Windows-приложение). В окне Name задайте имя проекта – LR6___1.

3. Активизируйте форму Form1 щелчком мыши. В окне Properties (Свойства объекта) выберите свойство Text и присвойте ему значение Простые графические объекты.

4. Разместите на форме кнопку Button1, измените свойство Text кнопки - Линии:

5. С помощью процедуры Form1___Load зададим размеры формы – 400 x 400 пикселов (верхний левый угол имеет координату (0,0)). Введите код процедуры:

Private Sub Form1___Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

ClientSize = New Size(400, 400)

End Sub

6. Дважды щелкните по кнопке Линия и введите событийную процедуру:

Private Sub Button1___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim g As Graphics = CreateGraphics()

Dim p As New Pen(Color.Green, 5)

Dim X1, Y1, X2, Y2 As Integer

' Очистка формы

g.Clear(BackColor)

' Задание координат

X1 = Val(InputBox("Введите координату X1", "Координата X1"))

Y1 = Val(InputBox("Введите координату Y1", "Координата Y1"))

X2 = Val(InputBox("Введите координату X2", "Координата X2"))

Y2 = Val(InputBox("Введите координату Y2", "Координата Y2"))

g.DrawLine(p, X1, Y1, X2, Y2)

g.Dispose()

End Sub

7. Сохраните проект. Проверьте работу приложения. Например, линия с координатами (100,100) – (300,300):

8. Разместите на форме кнопку Button2, измените свойство Text кнопки – Прямоугольник:

9. Дважды щелкните по кнопке Прямоугольник и введите событийную процедуру:

Private Sub Button2___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim g As Graphics = CreateGraphics()

Dim p As New Pen(Color.Red, 5)

g.Clear(BackColor)

g.DrawRectangle(p, 100, 100, 200, 200)

g.Dispose()

End Sub

10. Сохраните проект. Проверьте работу приложения:

11. Разместите на форме кнопку Button3, измените свойство Text кнопки – Закрашенный прямоугольник:

12. Дважды щелкните по кнопке Закрашенный прямоугольник и введите событийную процедуру:

Private Sub Button3___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim g As Graphics = CreateGraphics()

Dim b As New SolidBrush(Color.YellowGreen)

g.Clear(BackColor)

g.FillRectangle(b, 50, 50, 150, 150)

g.Dispose()

End Sub

13. Сохраните проект. Проверьте работу созданного приложения:

14. Разместите на форме кнопку Button4, измените свойство Text кнопки – Эллипс:

15. Дважды щелкните по кнопке Эллипс и введите событийную процедуру:

Private Sub Button4___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Dim g As Graphics = CreateGraphics()

Dim p As New Pen(Color.Blue, 3)

g.Clear(BackColor)

g.DrawEllipse(p, 50, 50, 100, 50)

g.Dispose()

End Sub

16. Сохраните проект. Проверьте работу созданного приложения:

17. Разместите на форме кнопку Button5, измените свойство Text кнопки – Закрашенный эллипс. Создайте соответствующую процедуру. Сохраните проект. Проверьте работу созданного приложения:

18. Разместите на форме кнопку Button6, измените свойство Text кнопки – Эллипс:

19. Дважды щелкните по кнопке Рисование квадратов и введите событийную процедуру:

Private Sub Button6___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

Dim g As Graphics = CreateGraphics()

Dim rs As Rectangle() = {New Rectangle(0, 0, 100, 100), ___

New Rectangle(100, 100, 100, 100), ___

New Rectangle(200, 200, 100, 100), ___

New Rectangle(300, 300, 100, 100)}

g.FillRectangles(New SolidBrush(Color.LightSeaGreen), rs)

g.Dispose()

End Sub

20. Сохраните проект. Проверьте работу созданного приложения:

Проект 2. «Построение графиков функций»

Построим график функции y=Sin(x).

1. Запустите Microsoft Visual Basic 2005.

2. Создайте новый проект. Для этого введите команду File-New Project... Выберите тип проекта - Windows Application (Windows-приложение). В окне Name задайте имя проекта – LR6___2.

3. Активизируйте форму Form1 щелчком мыши. В окне Properties (Свойства объекта) выберите свойство Text и присвойте ему значение Построение графиков функций.

4. Разместите на форме кнопку Button1, измените свойство Text кнопки - Построить:

5. Добавьте процедуру масштабирования формы (текст процедуры содержится в файле MapGraphicsWindow.txt):

' Процедура преобразования глобальных координат wxmin, wymin, wxmax, wymax

' в координаты устройства dxmin, dymin, dxmax, dymax.

Public Sub MapGraphicsWindow(ByVal g As Graphics, ___

ByVal wxmin As Single, ByVal wymin As Single, ___

ByVal wxmax As Single, ByVal wymax As Single, ___

ByVal dxmin As Single, ByVal dymin As Single, ___

ByVal dxmax As Single, ByVal dymax As Single)

' Возвращаемся в исходное состояние

g.ResetTransform()

' Преобразуем глобальные координаты центра

g.TranslateTransform(-(wxmax + wxmin) / 2, ___

-(wymax + wymin) / 2, ___

System.Drawing.Drawing2D.MatrixOrder.Append)

Dim sx As Single

sx = CSng((dxmax - dxmin) / (wxmax - wxmin))

Dim sy As Single

sy = CSng((dymax - dymin) / (wymax - wymin))

g.ScaleTransform(sx, sy, System.Drawing.Drawing2D.MatrixOrder.Append)

' Преобразуем в центр формы

g.TranslateTransform((dxmax + dxmin) / 2, ___

(dymax + dymin) / 2, ___

System.Drawing.Drawing2D.MatrixOrder.Append)

End Sub

6. Добавьте процедуру рисования координатной сетки (текст процедуры содержится в файле DrawAxes.txt):

Private Sub DrawAxes(ByVal g As Graphics, ___

ByVal wxmin As Single, ByVal wxmax As Single, ___

ByVal wymin As Single, ByVal wymax As Single)

' Рисуем координатные оси

Dim x As Double

Dim y As Double

'Черное перо для координатных осей

Dim p___axes As New Pen(Color.Black, 0)

' Шкала по оси X

g.DrawLine(p___axes, wxmin, 0, wxmax, 0)

For x = wxmin To wxmax Step 0.5

g.DrawLine(p___axes, CSng(x), CSng(-0.1), CSng(x), CSng(0.1))

Next x

' Шкала по оси Y

g.DrawLine(p___axes, 0, wymin, 0, wymax)

For y = wymin To wymax Step 0.5

g.DrawLine(p___axes, CSng(-0.1), CSng(y), CSng(0.1), CSng(y))

Next y

End Sub

7. Дважды щелкните по кнопке Построить, введите событийную процедуру, выполняющую масштабирование формы и построение системы координат:

Private Sub Button1___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim g As Graphics = CreateGraphics()

g.Clear(BackColor)

MapGraphicsWindow(g, ___

-4, -4, 4, 4, ___

0, ClientSize.Height - 1, ___

ClientSize.Width - 1, 0)

DrawAxes(g, -4, 4, -4, 4)

g.Dispose()

End Sub

8. Сохраните проект. Проверьте работу созданного приложения:

9. Добавьте процедуру построения графика функции y=sin(x):

Private Sub DrawSin(ByVal g As Graphics)

Dim x As Double

Dim y As Double

Dim p___curve As New Pen(Color.Blue, 0)

Dim ptf(80) As PointF

Dim i As Integer

x = -4.0

For i = 0 To 80

y = System.Math.Sin(x)

ptf(i).X = x

ptf(i).Y = y

x = x + 0.1

Next i

g.DrawLines(p___curve, ptf)

End Sub

10. Сохраните проект. Проверьте работу созданного приложения:

Проект 3. «Простейший графический редактор»

1. Запустите Microsoft Visual Basic 2005.

2. Создайте новый проект. Для этого введите команду File-New Project... Выберите тип проекта - Windows Application (Windows-приложение). В окне Name задайте имя проекта – LR6___3.

3. Активизируйте форму Form1 щелчком мыши. В окне Properties (Свойства объекта) выберите свойство Text и присвойте ему значение Простейший текстовый редактор.

4. Разместите на форме кнопку Button1, измените свойство Text кнопки - Очистить:

5. Добавьте в проект глобальные переменные:

' Координаты мыши в момент нажатия

Dim x___md, y___md As Integer

' Будем рисовать пером синего цвета и толщиной 3 пиксела

Dim p As New Pen(Color.Yellow, 3)

' Отслеживаем нажатия кнопки, чтобы знать, когда пользователь заканчивает рисовать

Dim bPaint As Boolean

6. Добавьте в проект процедуры обработки событий мыши MouseDown, MoseMove, MouseUp:

Private Sub Form1___MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown

' Начинаем рисовать

bPaint = True

' Координаты мыши в момент нажатия

x___md = e.X

y___md = e.Y

End Sub

Private Sub Form1___MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove

If bPaint Then

' Создадим объект Graphics для рисования

Dim g As Graphics = CreateGraphics()

' Определяем координаты мыши при перемещении

Dim x___mm As Integer = e.X

Dim y___mm As Integer = e.Y

' Рисуем

g.DrawLine(p, x___md, y___md, x___mm, y___mm)

' Передаем координаты мыши в глобальные переменные

x___md = x___mm

y___md = y___mm

g.Dispose()

End If

End Sub

Private Sub Form1___MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp

bPaint = False

End Sub

7. Дважды щелкните по кнопке Очистить, введите событийную процедуру:

Private Sub Button1___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim g2 As Graphics = CreateGraphics()

g2.Clear(MyBase.BackColor)

g2.Dispose()

End Sub

8. Сохраните проект. Проверьте работу созданного приложения:

Создать проект, который позволяет построить график дельтоиды:

Формула дельтоиды:

x = Cos(t) + 0.5 Cos(2t)

y = Sin(t) – 0.5 Sin(2t)

Код процедуры, выполняющей построение графика дельтоиды:

Private Sub DrawDelt(ByVal g As Graphics)

Dim x As Double

Dim y As Double

Dim t As Double

Dim p___curve As New Pen(Color.Blue, 0)

Dim ptf(80) As PointF

Dim i As Integer

t = -4.0

For i = 0 To 80

x = System.Math.Cos(t) + 0.5 * System.Math.Cos(2 * t)

y = System.Math.Sin(t) - 0.5 * System.Math.Sin(2 * t)

ptf(i).X = x

ptf(i).Y = y

t = t + 0.1

Next i

___

End Sub

Введите пропущенный оператор (без пробелов, прописными буквами).

Создать проект, который позволяет строить график астроиды:

Формула астроиды:

x = 2 Cos(t)3

y = 2 Sin(t)3

Код процедуры, выполняющей построение графика астроиды:

Private Sub DrawAstr(ByVal g As Graphics)

Dim x As Double

Dim y As Double

Dim t As Double

Dim p___curve As New Pen(Color.Red, 0)

Dim ptf(80) As PointF

Dim i As Integer

t = -4.0

For i = 0 To 80

x = 2 * System.Math.Cos(t)___

y = 2 * System.Math.Sin(t)___

ptf(i).X = x

ptf(i).Y = y

t = t + 0.1

Next i

g.DrawLines(p___curve, ptf)

End Sub

Введите пропущенное выражение (без пробелов, прописными буквами).

Создать проект, который позволяет строить график кардиоиды:

Формула кардиоиды:

x = (1 + Cos(t)) * Cos(t)

y = (1 + Cos(t)) * Sin(t)

Код процедуры, выполняющей построение графика кардиоиды:

Private Sub DrawKart(ByVal g As Graphics)

Dim x As Double

Dim y As Double

Dim t As Double

Dim p___curve As New Pen(Color.Yellow, 0)

Dim ptf(80) As PointF

Dim i As Integer

t = -4.0

For i = 0 To 80

x = (1 + System.Math.Cos(t)) * System.Math.Cos(t)

y = (1 + System.Math.Cos(t)) * System.Math.Sin(t)

ptf(i).X = x

___

t = t + 0.1

Next i

g.DrawLines(p___curve, ptf)

End Sub

Введите пропущенный оператор (без пробелов, прописными буквами).

Создать проект, который позволяет строить график лимаконы (улитки Паскаля):

Формула лимаконы:

x = (0.3 + Cos(t)) * Cos(t)

y = (0.3 + Cos(t)) * Sin(t)

Код процедуры, выполняющей построение графика лимаконы:

Private Sub DrawLim(ByVal g As Graphics)

Dim x As Double

Dim y As Double

Dim t As Double

Dim p___curve As New Pen(Color.Black, 0)

Dim ptf(80) As PointF

Dim i As Integer

t = -4.0

For i = 0 To 80

x = (0.3 + System.Math.Cos(t)) * System.Math.Cos(t)

y = (0.3 + System.Math.Cos(t)) * System.Math.Sin(t)

___

ptf(i).Y = y

t = t + 0.1

Next i

g.DrawLines(p___curve, ptf)

End Sub

Введите пропущенный оператор (без пробелов, прописными буквами).

Создать проект, который позволяет строить график трехлистного клевера:

Формула трехлистного клевера:

x = Cos(3t) * Cos(t)

y = Cos(3t) * Sin(t)

Код процедуры, выполняющей построение графика трехлистного клевера:

Private Sub DrawLeaf(ByVal g As Graphics)

Dim x As Double

Dim y As Double

Dim t As Double

Dim p___curve As New Pen(Color.Green, 0)

Dim ptf(80) As PointF

Dim i As Integer

t = -4.0

For i = 0 To 80

x = System.Math.___ * System.Math.Cos(t)

y = System.Math.___ * System.Math.Sin(t)

ptf(i).X = x

ptf(i).Y = y

t = t + 0.1

Next i

g.DrawLines(p___curve, ptf)

End Sub

Введите пропущенное выражение (без пробелов, прописными буквами).

Цель:

изучение системы программирования Microsoft Visual Basic 2005.

Результаты обучения:

После успешного завершения занятия пользователь должен:

· рисовать простейшие графические объекты;

· строить графики функций;

· разрабатывать простейший графический редактор.

Список рекомендуемой литературы:

1. Степанов А., Шевякова Д. Самоучитель Visual Basic 2005. – СПб.: BHV, 2006.

2. Богданов М.Р. Visual Basic 2005 на примерах. – СПб.: BHV, 2007.

3. Патрик Т., Крейг К. Visual Basic 2005: рецепты программирования. – СПб.: BHV, 2008.

4. Балена Ф. Программирование на Microsoft Visual Basic 2005. – М.: «Эком», 2008.

Используемые программы:

Microsoft Visual Basic 2005 Express Edition

Используемые файлы:

MapGraphicsWindow.txt, DrawAxes.txt

Microsoft Visual Basic 2005 Express Edition — средство разработки программного обеспечения, включающее язык программирования и среду разработки. Данный продукт предназначен для создания небольших Windows-приложений на основе технологии Windows Forms, являющейся частью Microsoft .NET. С помощью Visual Basic 2005 Express Edition можно создавать консольные приложения и компоненты.