You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
|
|
|
|
Imports System.ComponentModel
|
|
|
|
|
|
|
|
|
|
|
|
Public Class frmMain
|
|
|
|
|
|
Private _dataPath As String = "Eintraege.xml"
|
|
|
|
|
|
|
|
|
|
|
|
Private Sub frmMain_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
|
|
|
|
|
|
Me.GästeDataSet.WriteXml(_dataPath)
|
|
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
|
|
Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
|
|
|
|
Try
|
|
|
|
|
|
Me.GästeDataSet.ReadXml(_dataPath)
|
|
|
|
|
|
Catch ex As Exception
|
|
|
|
|
|
' do nothing, that file gets created when we close the application ;)
|
|
|
|
|
|
End Try
|
|
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
|
|
Private Sub InfoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles InfoToolStripMenuItem.Click
|
|
|
|
|
|
Dim oForm As New frmAbout()
|
|
|
|
|
|
oForm.ShowDialog()
|
|
|
|
|
|
oForm.Dispose()
|
|
|
|
|
|
oForm = Nothing
|
|
|
|
|
|
End Sub
|
|
|
|
|
|
End Class
|
