События формы в Visual Basic 9.0
план-конспект урока по информатике и икт (10 класс) по теме

События Form

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

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

Код проекта.

Imports System.Drawing.Drawing2D

Public Class Form1

Dim s As String

Dim x1 As Single

Dim y1 As Single

Dim Tpen As New Pen(Color.Coral, 4)

Dim gr As Graphics

Dim br As New SolidBrush(Color.Black)

Dim TextFont As New System.Drawing.Font("Arial", 12, FontStyle.Regular)

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

gr = Me.CreateGraphics()

x1 = 10

y1 = 10

End Sub

Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress

s = e.KeyChar 'возвращает символ нажатой клавиши

gr.DrawString(s, TextFont, Brushes.Green, x1, y1)

y1 = y1 + 15

End Sub

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

If e.Button = MouseButtons.Left Then

gr.DrawString("Нажали левую кнопку мыши", TextFont, Brushes.Green, x1, y1)

y1 = y1 + 15

ElseIf e.Button = MouseButtons.Right Then

gr.DrawString("Нажали правую кнопку мыши", TextFont, Brushes.Black, x1, y1)

y1 = y1 + 15

ElseIf e.Button = MouseButtons.Middle Then

gr.DrawString("Нажали центральную кнопку мыши", TextFont, Brushes.Red, x1, y1)

y1 = y1 + 15

End If

End Sub

Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize

s = e.ToString

gr.DrawString("Произошло событие Form1_Resize", TextFont, Brushes.Aqua, x1, y1)

y1 = y1 + 15

End Sub

End Class