W.Selection.TypeText(ListView1.Items(i).SubItems.Item(0).Text & " " & ListView1.Items(i).SubItems.Item(1).Text & " " & ListView1.Items(i).SubItems.Item(2).Text & " " & ListView1.Items(i).SubItems.Item(3).Text & Chr(13) & Chr(10))
Next i
End Sub
Private Sub ЭкспортExcelToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ЭкспортExcelToolStripMenuItem.Click
Dim myXL As Excel.Application, myWB As Excel.Workbook, myWS As Excel.Worksheet
Dim i As Integer
Dim Y As Integer
Dim z As Integer
myXL = New Excel.Application
myWB = myXL.Workbooks.Add
myWS = myWB.Worksheets(1)
z = 2
myXL.Visible = True
For i = 1 To Me.ListView1.Items.Count
For Y = 1 To 2
myWS.Cells(1, Y) = ListView1.Columns(Y).Text
Next Y
myWS.Cells(z, 1) = ListView1.Items.Item(i - 1).SubItems.Item(1).Text
myWS.Cells(z, 2) = ListView1.Items.Item(i - 1).SubItems.Item(2).Text
z = z + 1
Next i
myWS.Columns(1).ColumnWidth = 50
myWS.Columns(2).ColumnWidth = 100
myXL = Nothing
myWB = Nothing
myWS = Nothing
End Sub
Private Sub ВыходToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ВыходToolStripMenuItem.Click
Close()
End Sub
Private Sub ОбновитьToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ОбновитьToolStripMenuItem.Click
Form6_Load(Me, New EventArgs)
End Sub
Private Sub ListView1_ColumnClick(sender As Object, e As ColumnClickEventArgs) Handles ListView1.ColumnClick
If (e.Column = lvwColumnSorter.SortColumn) Then
If (lvwColumnSorter.Order = SortOrder.Ascending) Then
lvwColumnSorter.Order = SortOrder.Descending
Else
lvwColumnSorter.Order = SortOrder.Ascending
End If
Else