ПОНЯТНО О Visual Basic NET (том 3)



Контекстное меню - часть 2


Private Sub MenuItem1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MenuItem1.Click

        Me.BackColor = Color.Blue                           'Контекстное меню формы - Покрасить ее в синий цвет

End Sub

Private Sub MenuItem2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MenuItem2.Click

        Me.BackColor = Color.Red                      'Контекстное меню формы - Покрасить ее в красный цвет

End Sub

Private Sub MenuItem3_Click(ByVal sender As Object, ByVal e As System.EventArgs)  Handles MenuItem3.Click

        Button1.Width = Button1.Width + 20           'Контекстное меню кнопки - Расширить ее

End Sub

Private Sub MenuItem4_Click(ByVal sender As Object, ByVal e As System.EventArgs)  Handles MenuItem4.Click

        Button1.Width = Button1.Width - 20     'Контекстное меню кнопки - Сузить ее

End Sub

Очень часто в контекстные меню входят те или иные подходящие пункты из Главного меню. VB позволяет сделать так, чтобы для контекстного меню их не приходилось заново программировать. Но мы на этом останавливаться не будем.




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