Слайд 4
Фрагмент кода программы
Ниже перечисленные действия не выполняем
Выберите элемент
меню Открыть: и измените его свойство Name на mnuOpenItem.
Выберите элемент меню Закрыть и измените его свойство Name на mnuCloseItem.
Выберите элемент меню Выход и измените его свойство Name на mnuExitItem. Оставляем Name так, как рекомендует VB ….ToolStripMenuItem
Слайд 5
Private Sub ОткрытьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles ОткрытьTooLStripMenuItem.Click, ОткрытьTooLStripMenuItem.Click
OpenFileDialog1.Filter = "Графические файлы(*.jpg)|*.jpg"
If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
PictureBox1.Image = System.Drawing.Image.FromFile(OpenFileDialog1.FileName)
ОткрытьTooLStripMenuItem.Enabled = True
End If
End Sub
Private Sub ВыходToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВыходToolStripMenuItem.Click
End
End Sub
Private Sub ЗакрытьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ЗакрытьToolStripMenuItem.Click
PictureBox1.Image = Nothing
ЗакрытьToolStripMenuItem.Enabled = True
End Sub
Private Sub mnuColorTextItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuColorTextItem.Click
ColorDialog1.ShowDialog()
Label1.ForeColor = ColorDialog1.Color
End Sub
End Class
