Dario Sassi
8413405e24
- scambiata posizione di Interseca e Sottrai Superfici - migliorato dialogo Sostituzione/Aggiornamento/Annulla di Macchina.
46 lines
1.2 KiB
VB.net
46 lines
1.2 KiB
VB.net
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
|