OpenFileDialog1 afsluiten en nieuwe opstarten

[old Hippy]

Hallo Allemaal

mijn vraag is.
ik open een messagebox en als deze is OK, dan opend er een OpenFileDialog1.
En kies ik een textfile. zo ver zo goed.

Maar als ik een verkeerde textfile kies. geeft hij een nieuwe messagebox.
met de vraag of ik opnieuw een juiste textfile wil kiezen yes of no

Als ik yes Kies wordt er een tweede OpenFileDialog geopend.
Als ik daar een wel goede textfile selecteer.
krijg ik de volgende fout melding, De objectverwijzing is niet op een exemplaar van een object ingesteld.

hoe voorkom ik deze fout en sluit ik het eerste geopende OpenFileDialog

Hopelijk ben ik duidelijk genoeg al vast bedankt Old Hippy

 

[rowano]

Beste Old Hippy

waarom een nieuwe filedialog openen,

    Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
        e.Cancel = true 'dan wordt hij niet gesloten
    End Sub

mvg rowano

 

[old Hippy]

OH Mijn Beste rowano
Was het maar zo simpel.

even wat voor beelden van de code

   Dim DefaultTaal() As String = {"", "Welcome[ENTER]to Professional Video Downloader", _
 "To install the language file.[ENTER]The languages.txt You will find in \bin\Debug\Lang ....", _
 "Now select a language file?", "The selected text file is not used by this program, [ENTER] to select another File?", _
"You can now directly a language is to choose"}

code 2 Wordt bij het opstarten van het programma gebruikt.

If Message(1, MsgBoxStyle.OkOnly) = MsgBoxResult.Ok Then
            End If
            If Message(2, MsgBoxStyle.OkOnly) = MsgBoxResult.Ok Then
            End If

            If Message(3, MsgBoxStyle.OkOnly) = MsgBoxResult.Ok Then
                OpenFileDialog1.ShowDialog()
                Form_Menu.TabPage_language.Select()
            End If

En als de textfile niet goed is

If Message(4, MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then OpenFileDialog1.ShowDialog()

en gaat weer naar Message(3

 

[old Hippy]

Hi Het is opgelost hebde kode in een aparte funtion gezet

Allen bedankt