ПОНЯТНО О Visual Basic NET (том 3)
Во время двойного щелчка событие
End Sub
Пояснение: Во время двойного щелчка событие MouseDown наступает два раза. В первый раз значение e.Clicks еще равно 1, поэтому толщина вопреки нашему желанию не убывает, а вырастает на 1. Через мгновение событие MouseDown выполняется второй раз и значение e.Clicks уже равно 2. Тут нам нужно не зевать и уменьшать толщину на 2, чтобы нейтрализовать ее возрастание.
112.
Dim dx, dy As Integer
Dim Шаг As Integer = 1
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
PictureBox1.Left = PictureBox1.Left + dx 'Двигаем PictureBox
PictureBox1.Top = PictureBox1.Top + dy
End Sub
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs) Handles MyBase.KeyDown
Select Case e.KeyCode
Case Keys.Left : dx = -Шаг : dy = 0
Case Keys.Right : dx = Шаг : dy = 0
Case Keys.Up : dx = 0 : dy = -Шаг
Case Keys.Down : dx = 0 : dy = Шаг
End Select
End Sub
113.
Dim Огонь As Char
Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs) Handles MyBase.KeyPress
Огонь = Char.ToUpper(e.KeyChar) 'Превращаем строчную букву в заглавную
Me.Refresh() 'Перерисовываем поверхность формы
End Sub
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As PaintEventArgs) Handles MyBase.Paint
Dim Гр As Graphics = Me.CreateGraphics
Гр.DrawRectangle(Pens.Black, 20, 20, 100, 300) 'Прямоугольник
Select Case Огонь
Case "R"
Гр.FillEllipse(Brushes.Red, 30, 30, 80, 80) 'Красная_лампа загорается
Гр.FillEllipse(Brushes.Black, 30, 130, 80, 80) 'Желтая_лампа гаснет
Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий