HILFE OPENFILEDIALOG VB 2010

08/04/2010 12:47 .Sebbel#1
Hey Com,

Ich hab das problem, dass ich eine .INI per OpenfileDialog in mein Programm laden will (Als Importfunktion für Einstellungen), es funktioniert aber nicht! Hier der Code:





Private Sub ExportierenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExportierenToolStripMenuItem.Click
SaveFileDialog1.ShowDialog()
End Sub

Private Sub ImportierenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ImportierenToolStripMenuItem.Click
OpenFileDialog1.ShowDialog()
End Sub

Private Sub WiedereinlesbareDateiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WiedereinlesbareDateiToolStripMenuItem.Click
SaveFileDialog1.ShowDialog()
End Sub

Private Sub TextdateiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextdateiToolStripMenuItem.Click
SaveFileDialog2.ShowDialog()
End Sub

Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
OpenFileDialog1.Filter = "Einstellungsdatei(*.INI)|*.INI"
If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
If IO.File.Exists("HIER DER DATEIPFAD AUS OPENFILEDIALOG1") Then
TextBox1.Text = INI_ReadValueFromFile("saveddata", "Text1", "", "HIER DER DATEIPFAD AUS OPENFILEDIALOG1")
End If
End If
End Sub
End Class


Wichtig ist eigentlich nur das farbige.

Hoffe, mir kann jemand helfen, aber nur wenns nix kostet!
08/04/2010 13:49 Demon-777#2
Also ich würde es so machen:

Code:
Private Sub SaveINI()
        With OpenFileDialog1
            .Filter = "Einstellungsdatei (*.ini)|*.ini"

            If .ShowDialog = Windows.Forms.DialogResult.OK Then
                ' Read ini here.
                If IO.File.Exists(.FileName) Then
                    TextBox1.Text = INI_ReadValueFromFile("savedata", "text1", "", .FileName)
                End If
            Else
                ' Show error here.
                MessageBox.Show("User aborted!")
            End If
        End With
    End Sub
Und dann wo du es haben willst, einfach SaveINI() aufrufen.
08/04/2010 14:22 .Sebbel#3
Danke, ich probiers mal
08/05/2010 01:11 SmackJew#4
Da du ein Affensohn bist, möchte ich dir gerne diese Banane überreichen. Guten Appetit.

[Only registered and activated users can see links. Click Here To Register...]
08/05/2010 13:07 .Sebbel#5
Fail aber erster der die idee hatte :D
08/06/2010 10:42 Jay Niize#6
ich würde es über die StreamReader Variante machen

PHP Code:
Dim inhalt as string

[B]PROZEDUR[/B]

OpenFileDialog1.Filter = "Einstellungsdatei(*.INI)|*.INI"
openfiledialog1.showdialog
inhalt = My.computer.FileSystem.ReadAllText(openfiledialog1.filename) 
Dann sollte es gehen