Лабораторная работа №6

По дисциплине «Информатика»
по теме «Windows приложение в Visual Basic: опрос-шутка.»

Выполнил:

Студент 1 курса гр. _ 1206 _

________________________ Бутырёв К.А.
^{(подпись)}

Преподаватель

________________________Красильников В.В.
^{(подпись)}

Н.Новгород
2012

Цель работы: познакомиться с некоторыми возможностями работы с мышью и диалоговыми окнами.

Порядок выполнения:

1. Составление эскиза интерактивной формы - опроса, и задание значения свойств элементов управления, размещенных на интерактивной форме

2. Для каждого элемента управления написать программный код, соответствующий событию активизации (нажатия) элемента управления, так, чтобы при наведении курсора мыши на кнопку «ДА» кнопка «убегала» (меняла своѐ местоположение на форме), а при выборе кнопки «НЕТ» появлялось сообщение: «Мы рады, что Вы считаете, что в повышении размера стипендии необходимости нет!».

Public Class Form1

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

MessageBox.Show(" Мы рады, что Вы считаете, что в повышении размера стипендии необхадимости нет! ", " Благодарим Вас за участие в опросе")

End Sub

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

End Sub

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

Dim x, y As Single

x = Rnd()

y = Rnd()

Button1.Location = New Point(x * (Me.Width * 0.9 - Button1.Width), y * (Me.Height * 0.9 - Button1.Height))

End Sub

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

Application.Exit()

End Sub

End Class

3. Проверка работоспособности приложения.

Вывод: мыпознакомились с некоторыми возможностями работы с мышью и диалоговыми окнами.