Как скачивать файл по i-ой строке в датагрид? - Visual Basic .NET

Узнай цену своей работы

Формулировка задачи:

На снимке видно что требуется при нажатии на файл соответственно скачивать или открыть файл столбец 11 указанных в столбцах 8 9 10 Как скачивать файл по i-ой строке в датагрид?

Решение задачи: «Как скачивать файл по i-ой строке в датагрид?»

textual
Листинг программы
Public Class Form1
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        generateDGV()
    End Sub
    Private Sub generateDGV()
        'моделируем данные
        Dim pth() As String = {"c:\03", "c:\03", "c\03", "c:\06", "c:\06"}
        Dim fl() As String = {"_01.jpg", "_02.jpg", "_0011.jpg", "massiv2.txt", "pr.txt"}
        With DataGridView1
            .AllowUserToAddRows = False
            .Columns.Add(New DataGridViewTextBoxColumn)
            .Columns.Add(New DataGridViewTextBoxColumn)
            .Columns.Add(New DataGridViewTextBoxColumn)
            .Columns.Add(New DataGridViewButtonColumn)
            .RowCount = pth.Length
            .Columns(0).HeaderText = "ID"
            .Columns(1).HeaderText = "Path"
            .Columns(2).HeaderText = "File"
            .Columns(3).HeaderText = "Open"
            For i = 0 To pth.Length - 1
                .Rows(i).Cells(0).Value = i + 1
                .Rows(i).Cells(1).Value = pth(i)
                .Rows(i).Cells(2).Value = fl(i)
                .Rows(i).Cells(3).Value = "File open"
            Next
            .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
        End With
    End Sub
    Private Sub DataGridView1_CellClick(sender As System.Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick
        Dim c As Integer = e.ColumnIndex
        If c = 3 Then
            Dim r As Integer = e.RowIndex
            Dim fName As String = IO.Path.Combine(DataGridView1.Rows(r).Cells(1).Value, DataGridView1.Rows(r).Cells(2).Value)
            Process.Start(fName)
        End If
    End Sub
End Class

Оцени полезность:

6   голосов , оценка 4.167 из 5
Похожие ответы