Hallo miteinander, ich habe folgende Frage: Ist es möglich Formulare (bzw. den Befehl zum erstellen eines neuen formulars) in einer INI-Datei zu Speichern und diese über eine Listbox und einem Button zu laden/auszuführen? (das mit in der Listbox anzeigen habe ich schon)
Mein Code sieht ungefähr so aus:
Vielen Dank schon einmal im Vorraus! =)
PS: habe eine Klasse aus diesem Forum benutz!
Mein Code sieht ungefähr so aus:
VB.NET-Quellcode
- Public Class Form1
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Dim INI As New INIDatei, i As Integer
- For i = 1 To 1000
- INI.Pfad = My.Application.Info.DirectoryPath & "\info.ini"
- INI.WertSchreiben("Verzeichnis", CStr(i), "BSP_" & CStr(i) & "_P")
- Next i
- End Sub
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- Dim INI As New INIDatei, max As Integer, i As Integer
- INI.Pfad = My.Application.Info.DirectoryPath & "\info.ini"
- max = CInt(INI.WertLesen("Verzeichnis", "max"))
- ListBox1.Items.Clear()
- For i = 1 To max
- ListBox1.Items.Add(INI.WertLesen("Verzeichnis", CStr(i)))
- Next
- End Sub
- Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
- Label1.Text = ListBox1.Text
- Label2.Text = ListBox1.SelectedIndex + 1
- End Sub
- Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
- Dim INI As New INIDatei, max As String, i As Integer
- INI.Pfad = My.Application.Info.DirectoryPath & "\info.ini"
- INI.SchlüsselLöschen("Verzeichnis", "label2.text")
- max = CInt(INI.WertLesen("Verzeichnis", "max"))
- INI.WertSchreiben("Verzeichnis", "max", CStr(max - 1))
- Button2_Click(Nothing, New System.EventArgs())
- End Sub
- Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
- Dim INI As New INIDatei, max As Integer, i As Integer
- INI.Pfad = My.Application.Info.DirectoryPath & "\info.ini"
- MsgBox("Refreh wird erstellt!")
- INI.BackupAnlegen(("Verzeichnis"))
- Button2_Click(Nothing, New System.EventArgs())
- End Sub
- End Class
Vielen Dank schon einmal im Vorraus! =)
PS: habe eine Klasse aus diesem Forum benutz!