35 lines
1.2 KiB
Plaintext
35 lines
1.2 KiB
Plaintext
Imports System.IO
|
|
Public Class frmNeu
|
|
|
|
Public CreatedDB As String
|
|
|
|
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
|
|
Me.SaveFileDialog1.DefaultExt = "*.db"
|
|
Me.SaveFileDialog1.Filter = "SQLite-Datenbanken (*.db)|*.db|Alle Dateien (*.*)|*.*"
|
|
Me.SaveFileDialog1.ShowDialog()
|
|
If SaveFileDialog1.FileName <> "" Then Me.TextBox1.Text = SaveFileDialog1.FileName
|
|
End Sub
|
|
|
|
Private Sub frmNeu_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
|
|
|
|
End Sub
|
|
|
|
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
|
|
Me.CreatedDB = ""
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
|
|
FileCopy(Globals.ApplicationPath + "LP_Master.db", Me.TextBox1.Text)
|
|
Me.CreatedDB = Me.TextBox1.Text
|
|
Me.Close()
|
|
End Sub
|
|
|
|
|
|
Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
|
|
|
|
End Sub
|
|
Private Sub Label1_Click(sender As System.Object, e As System.EventArgs) Handles Label1.Click
|
|
|
|
End Sub
|
|
End Class |