Hallo allerseits,
Einmal vorweg, ich habe die Suchfunktion des Forums/Google genutzt jedoch nichts passendes zum Thema gefunden.
Was ich wisse/können möchte:
Hier ist der Code, den ich berreits angelegt habe:
Spoiler anzeigen
Einmal vorweg, ich habe die Suchfunktion des Forums/Google genutzt jedoch nichts passendes zum Thema gefunden.
Was ich wisse/können möchte:
- Eine CheckedListBox mit einer .txt oder .sql Datei befüllen.
- Eine ComboBox (im DropDownList-Style) mit einer .txt oder .sql Datei befüllen.
- Die Auswahl aus den jeweiligen Elementen (es sind ja mehre versiedene Kombinationen möglich) in zwei verschieden Dateien zu schreiben.
Hier ist der Code, den ich berreits angelegt habe:
VB.NET-Quellcode
- Public Class Form1
- Dim Modelnummer As String = "MN"
- Dim KiesCode As String = "KC"
- Dim CSC As String = "CSC"
- Dim T9DB As String = "T9DB"
- Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
- My.Computer.FileSystem.CreateDirectory _("C:\Programme\CSC-Creator\Solution")
- Dim file As System.IO.FileStreamfile = System.IO.File.Create("C:\Programme\CSC-Creator\Solution\test.txt")
- My.Computer.FileSystem.WriteAllText("C:\Programme\CSC-Creator\Solution\test.txt", _"This is new text to be added.", True)
- My.Computer.FileSystem.CopyFile( _"C:\Programme\CSC-Creator\Data\testFile.txt", _
- "C:\Programme\CSC-Creator\Solution\testFile.txt", _FileIO.UIOption.AllDialogs, _
- FileIO.UICancelOption.DoNothing)
- MsgBox("The >>Solution<< directory was successfully created with the content.", MsgBoxStyle.Critical)
- End Sub
- Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
- If My.Computer.FileSystem.DirectoryExists(My.Application.Info.DirectoryPath.ToString & "\Solution") Then
- TryMy.Computer.FileSystem.DeleteDirectory(My.Application.Info.DirectoryPath.ToString & "Solution", FileIO.DeleteDirectoryOption.DeleteAllContents)
- MsgBox("Cleaning was successful.", MsgBoxStyle.Information)
- Catch ex As ExceptionMsgBox("Cleanign wasn't successful", MsgBoxStyle.Information)
- End Try
- ElseMsgBox("There is no directory to clean.", MsgBoxStyle.Information)
- End If
- End Sub
- Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
- End Sub
- Private Sub ComboBox2_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
- End Sub
- Private Sub ComboBox3_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox3.SelectedIndexChanged
- End Sub
- Private Sub CheckedListBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles CheckedListBox1.SelectedIndexChanged
- End SubPrivate Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
- End Sub
- End Class
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „IluminatHALO04“ ()