Выбор\открытие файла из таблицы

[xob]

Собственно, есть БД access подключенная к форме, в ней три столбца: "Фамилия", "Тип Документа", "Документ" . В поле "Документ" хранятся пути к файлам (pdf). На форме DataGrid и несколько кнопок управления.
Вопрос такой как сделать что бы при выборе\выделении строки в DataGrid`e , по нажатию кнопки открывался файл в Adobe Reader`e , путь к которому прописан в поле "Документ" ??
Вопрос наверно не сложный , не пинайте больно.

[Williams]

Обрабатывать соответствующее событие грида.

[xob]

Обрабатывать соответствующее событие грида.

ну в логике , вам не откажешь....знать бы как то и вопроса не было бы.

[Joo]

ну в логике , вам не откажешь....знать бы как то и вопроса не было бы.

Привыкай!

Если по нажатию кнопки, то можно к примеру так:

Код: Выделить всё

    <System.Runtime.InteropServices.DllImport("Shell32.dll")> _
    Public Shared Function ShellExecuteA(ByVal hWnd As Integer, ByVal Operation As String, ByVal File As String, ByVal Parameters As String, ByVal Directory As String, ByVal ShowCmd As Integer) As Integer
    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ColIndex As Integer = 0 'Номер столбца содержащий пути к документам
        Dim PDFPath As String = TryCast(DataGridView1.Rows(DataGridView1.CurrentRow.Index).Cells(ColIndex).Value, String)

        If PDFPath IsNot Nothing AndAlso IO.File.Exists(PDFPath) Then
            'Запустить файл
            Call ShellExecuteA(0, "Open", PDFPath, vbNullString, vbNullString, 1)
        End If
    End Sub

[xob]

Привыкай!

Если по нажатию кнопки, то можно к примеру так:

Код: Выделить всё

    <System.Runtime.InteropServices.DllImport("Shell32.dll")> _
    Public Shared Function ShellExecuteA(ByVal hWnd As Integer, ByVal Operation As String, ByVal File As String, ByVal Parameters As String, ByVal Directory As String, ByVal ShowCmd As Integer) As Integer
    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ColIndex As Integer = 0 'Номер столбца содержащий пути к документам
        Dim PDFPath As String = TryCast(DataGridView1.Rows(DataGridView1.CurrentRow.Index).Cells(ColIndex).Value, String)

        If PDFPath IsNot Nothing AndAlso IO.File.Exists(PDFPath) Then
            'Запустить файл
            Call ShellExecuteA(0, "Open", PDFPath, vbNullString, vbNullString, 1)
        End If
    End Sub

спасибо, пока что не запускает, но буду мучать )))

[xob]

домучил ))) на форму вытащил текстовое поле(убрал под grid) , привязал к столбцу с путями к файлу, убрал цикл , вместо PDFPath поставил текстовое поле )))