Как скачивать файл по 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