Bestanden opvragen

[Peer31]

Beste helpers,
Ik wil een klikgebeurtenis om bestanden te openen.
Uit een boek vond ik de code om het dialoogvenster van color en font op te roepen en dit
dan verder te gebruiken,
Naar anologie van deze codes wilde ik nu ook bestanden kunnen openen.
Eerst de code voor color.

Public Class Form1
Dim Kleur As Color


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Antwoord As DialogResult
Antwoord = ColorDialog1.ShowDialog
If Antwoord = DialogResult.OK Then
Kleur = ColorDialog1.Color
Me.BackColor = Kleur
End If
End Sub
End Class

Met iets dergelijks moet ik toch ook bestanden kunnen openen!
Ik heb het volgende geschreven:

Public Class Form1
Dim Bestand As OpenFileDialog

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Antwoord As DialogResult
Antwoord = OpenFileDialog1.ShowDialog

End Sub
End Class
Hiermee kom ik bij de bestanden, maar door er op te klikken kan ik ze niet openen.
Het gekke is dat ik ze wel kan openen met rechtsklikken en dan in het snelmenu op openen te klikken.

Groetjes,
Peer

 

[C Windows]

Dit zou je kunnen proberen:

Imports System.IO
Imports System.Diagnostics

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Antwoord As DialogResult
        Antwoord = OpenFileDialog1.ShowDialog
        If Antwoord = Windows.Forms.DialogResult.OK Then
            If File.Exists(OpenFileDialog1.FileName) Then
                Process.Start(OpenFileDialog1.FileName)
            End If
        End If
    End Sub
End Class

Hier kijkt het programma eerst of het bestand bestaat en als dat zo is, wordt het geopend.
Het bestand wordt geopend met het standaard programma: zoals txt - kladblok; doc - word; jpg - phothoshop; enz.

 

[Peer31]

Hi C.Windows,

Het werkt perfekt. Ik ben er heel blij mee. Hartelijk dank.

Groetjes,
Peer