ByVal sender As Object, ByVal

    'Кнопка остановки:
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If dx = 10 Then PictureBox1.Image = Кадр1_правый Else PictureBox1.Image = Кадр1_левый
        Timer1.Enabled = False
        N = 0
    End Sub
110.
Dim Сообщение As String = "Мышь не находится над кнопкой"
Private Sub Button2_MouseEnter( ByVal sender As Object, ByVal e As EventArgs) Handles Button2.MouseEnter
        Сообщение = "Мышь  - над кнопкой"
End Sub
Private Sub Button2_MouseLeave(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.MouseLeave
        Сообщение = "Мышь не находится над кнопкой"
End Sub
Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)  _
Handles MyBase.MouseMove
        TextBox1.Text = ""
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = Сообщение
End Sub
111.
Dim Толщина As Integer = 5
Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)  _
Handles MyBase.MouseMove
        Dim Граф As Graphics = Me.CreateGraphics
        'След остается лишь при нажатой левой клавише:
        If e.Button = MouseButtons.Left Then Граф.FillEllipse(Brushes.Black, e.X, e.Y, Толщина, Толщина)
End Sub
Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)  _
Handles MyBase.MouseDown
        'При одинарном щелчке правой клавишей толщина возрастает на 1:
        If e.Button = MouseButtons.Right And e.Clicks = 1 Then Толщина = Толщина + 1
        'При двойном щелчке правой клавишей толщина убывает на 1 (а не на 2):
        If e.Button = MouseButtons.Right And e.Clicks = 2 Then Толщина = Толщина - 2
        If Толщина < 2 Then Толщина = 2 'Не даем толщине стать меньше 2

Содержание  Назад  Вперед

---

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

---

---

---