Hallo,
Habe da mal folgende Probleme.ich würde gerne so wie in dem Video youtube.com/watch?v=zboCFXpXZI4 die Inhalte der Text / Picture Box zum Dataset hinzufügen.
Des Weiteren möchte ich gerne, das die BindingNavigator weg ist, sprich ich möchte gerne das AddNewItem auf den Add-Button haben, sowie den DeleteItem auf den Delete Button legen. Ziel ist es, über das eine Fenster Daten zur einer Datenbank hinzufügen, so das ich aus der Combobox das Spiel auswählen und starten kann, und über das Hauptprogramm das Spiel wieder aus der Datenbank entfernen kann.
Hier mal der Code:
Das Controll Fenster ist jetzt erstmal mit drin, um zu prüfen, ob die daten gespeichert werden. aber da scheitere ich leider auch.
Anbei auch nochmal das gesamte Projekt als Rar Datei im Anhang. Danke euch schon mal
PS: Die anderen Formen sind so mit bei, damit ich das, wenn es mal läuft, so in das Haupt Programm übertragen kann
Habe da mal folgende Probleme.ich würde gerne so wie in dem Video youtube.com/watch?v=zboCFXpXZI4 die Inhalte der Text / Picture Box zum Dataset hinzufügen.
Des Weiteren möchte ich gerne, das die BindingNavigator weg ist, sprich ich möchte gerne das AddNewItem auf den Add-Button haben, sowie den DeleteItem auf den Delete Button legen. Ziel ist es, über das eine Fenster Daten zur einer Datenbank hinzufügen, so das ich aus der Combobox das Spiel auswählen und starten kann, und über das Hauptprogramm das Spiel wieder aus der Datenbank entfernen kann.
Hier mal der Code:
VB.NET-Quellcode
- Imports System.IO
- Imports Game_DB.gameliste
- Public Class Form2
- Dim Pfad As String
- Dim ofd As New OpenFileDialog
- Private _dataSource As String = "Game DB.xml"
- Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- If IO.File.Exists(_dataSource) Then
- Me.Gameliste1.ReadXml(_dataSource)
- End If
- End Sub
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- 'Spiel in DB einfügen
- If TextBox1.Text = Nothing And TextBox3.Text = Nothing Then
- MsgBox("Bitte Name des Spieles eintragen oder Pfad angeben", MsgBoxStyle.Exclamation)
- ElseIf TextBox1.Text = Nothing Then
- MsgBox("Bitte Name des Spiels eingeben", MsgBoxStyle.Exclamation)
- ElseIf TextBox3.Text = Nothing Then
- MsgBox("Bitte Pfad auswählen", MsgBoxStyle.Exclamation)
- Else
- 'In DB die Daten hinzufügen
- Me.GamesBindingSource.AddNew()
- Me.Gameliste1.WriteXml(_dataSource)
- Me.GamesBindingSource.EndEdit()
- End If
- End Sub
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- Form1.Show()
- End Sub
- Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
- End Sub
- Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged
- End Sub
- Private Sub BindingNavigatorAddNewItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorAddNewItem.Click
- End Sub
- Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
- 'Me.GamesBindingSource.EndEdit()
- 'Me.Gameliste1.WriteXml(_dataSource)
- End Sub
- Private Sub BindingNavigatorDeleteItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorDeleteItem.Click
- End Sub
- Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
- 'Delete - Button
- 'Me.GamesBindingSource.Clear()
- Me.GamesBindingSource.EndEdit()
- Me.Gameliste1.WriteXml(_dataSource)
- End Sub
- Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
- 'Pfad für die .exe Datei
- OpenFileDialog1.ShowDialog()
- Pfad = OpenFileDialog1.FileName
- TextBox3.Text = Pfad
- End Sub
- Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
- 'Pfad für.ico Datei
- If ofd.ShowDialog() = Windows.Forms.DialogResult.OK Then
- PictureBox1.Image = Image.FromFile(ofd.FileName)
- PictureBox1.BackgroundImageLayout = ImageLayout.Stretch
- End If
- End Sub
- Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
- 'Exit - BUtton
- Me.Close()
- End Sub
- End Class
Das Controll Fenster ist jetzt erstmal mit drin, um zu prüfen, ob die daten gespeichert werden. aber da scheitere ich leider auch.
Anbei auch nochmal das gesamte Projekt als Rar Datei im Anhang. Danke euch schon mal
PS: Die anderen Formen sind so mit bei, damit ich das, wenn es mal läuft, so in das Haupt Programm übertragen kann
Grüße Snipy26
Auf jeder Aktion erfolgt immer eine Re-Aktion, und selbst wenn es nur ne Fehlermeldung ist.
Auf jeder Aktion erfolgt immer eine Re-Aktion, und selbst wenn es nur ne Fehlermeldung ist.