Imports EgtUILib

Public Class MachineBox

   Public Shadows DialogResult As MessageBoxResult = MessageBoxResult.Cancel

   Public Sub New( Owner As Window, sMachName As String)

       InitializeComponent()

       Me.Owner = Owner

       Title = EgtMsg( 6534)                ' Avviso

       MessageLbl.Text = String.Format( EgtMsg( 6528), sMachName)  ' La macchina "{0}" esiste già,<br/> cosa vuoi fare ?

       ReplaceBtn.Content = EgtMsg( 6531)   ' Sostituisci

       UpdateBtn.Content = EgtMsg( 6532)    ' Aggiorna

       CancelBtn.Content = EgtMsg( 6533)    ' Annulla

   End Sub

   Private Sub ReplaceBtn_Click( sender As Object, e As RoutedEventArgs) Handles ReplaceBtn.Click
      DialogResult = MessageBoxResult.Yes
      Close()
   End Sub

   Private Sub UpdateBtn_Click( sender As Object, e As RoutedEventArgs) Handles UpdateBtn.Click
      DialogResult = MessageBoxResult.No
      Close()
   End Sub

   Private Sub CancelBtn_Click( sender As Object, e As RoutedEventArgs) Handles CancelBtn.Click
      DialogResult = MessageBoxResult.Cancel
      Close()
   End Sub

   Public Overloads Function ShowDialog() As MessageBoxResult
      MyBase.ShowDialog()
      Return DialogResult
   End Function

End Class