Повреждение = ListView1.SelectedItems.Item(0).SubItems.Item(2).Text
Материал = ListView1.SelectedItems.Item(0).SubItems.Item(3).Text
Цвет = ListView1.SelectedItems.Item(0).SubItems.Item(4).Text
Стоимость = ListView1.SelectedItems.Item(0).SubItems.Item(5).Text
Услуга = ListView1.SelectedItems.Item(0).SubItems.Item(6).Text
Изделие = Наименование & " - " & Повреждение & " - " & Материал & " - " & Цвет & " - " & Стоимость & " - " & Услуга
Form5.Text = "Отчет по: " & Изделие
Form5.Show()
End Sub
Private Sub ТToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ТToolStripMenuItem.Click
ID = ListView1.SelectedItems.Item(0).Text
Наименование = ListView1.SelectedItems.Item(0).SubItems.Item(1).Text
Повреждение = ListView1.SelectedItems.Item(0).SubItems.Item(2).Text
Материал = ListView1.SelectedItems.Item(0).SubItems.Item(3).Text
Цвет = ListView1.SelectedItems.Item(0).SubItems.Item(4).Text
Стоимость = ListView1.SelectedItems.Item(0).SubItems.Item(5).Text
Услуга = ListView1.SelectedItems.Item(0).SubItems.Item(6).Text
Изделие = Наименование & " - " & Повреждение & " - " & Материал & " - " & Цвет & " - " & Стоимость & " - " & Услуга
Form6.Text = "Отчет текущий по: " & Изделие
Form6.Show()
End Sub
Private Sub ВыходToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ВыходToolStripMenuItem.Click
End
End Sub
Private Sub ОбновитьToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ОбновитьToolStripMenuItem.Click
Timer1.Enabled = True
End Sub
Private Sub ОбновитьToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ОбновитьToolStripMenuItem1.Click
ОбновитьToolStripMenuItem_Click(Me, New EventArgs)
End Sub
Private Sub ОПрограммеToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ОПрограммеToolStripMenuItem.Click
Form7.Show()
Form7.Text = "О программе"
End Sub
Private Sub ОАвтореToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ОАвтореToolStripMenuItem.Click
Form8.Show()
Form8.Text = "Об авторе"
End Sub