DUMPRESTORE

Public Class frmParam

    Private Sub cmdFermer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdFermer.Click

        DialogResult = Windows.Forms.DialogResult.No

    End Sub

    Private Sub cmdBakup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSauvegarde.Click
        OpenFile.Filter = "Fichier mysqldump|mysqldump.exe"
        If OpenFile.ShowDialog = Windows.Forms.DialogResult.OK Then
            txtSauvegarde.Text = OpenFile.FileName
        Else
            txtSauvegarde.Clear()
        End If
    End Sub

    Private Sub cmdRestauration_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdRestauration.Click
        OpenFile.Filter = "Fichier mysql|mysql.exe"
        If OpenFile.ShowDialog = Windows.Forms.DialogResult.OK Then
            txtRestauration.Text = OpenFile.FileName
        Else
            txtRestauration.Clear()
        End If
    End Sub

    Private Sub cmdOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdOk.Click
        If txtSauvegarde.Text = "" Then
            MsgBox("Veuillez choisi le chemin d'executable de sauvegarde 'mysqldump.exe'", MsgBoxStyle.Information, Text)
        ElseIf txtRestauration.Text = "" Then
            MsgBox("Veuillez choisi le chemin d'executable de restauration 'mysql.exe'", MsgBoxStyle.Information, Text)
        Else
            DialogResult = Windows.Forms.DialogResult.Yes
        End If

    End Sub

    Private Sub txtRestauration_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtRestauration.KeyPress, txtSauvegarde.KeyPress
        e.Handled = True
    End Sub
End Class