Demetrio Cassarino
59 lines
2.1 KiB
VB.net
59 lines
2.1 KiB
VB.net
Imports EgtUILib
|
|
Imports EgtWPFLib
|
|
|
|
' nuova libreria EgtWPFLib5 ver 2.4g1
|
|
Public Class WaterjetDbWindowVM_OmagCUT
|
|
Inherits EgtWPFLib5.WaterjetDbWindowVM
|
|
|
|
Public Function CloseWaterjetDb_OmagCut(MainWindow As Window) As SaveWndBtnEnum
|
|
If bIsModified Then
|
|
Dim SaveWjDbWnd As New EgtMsgBox(MainWindow, "", EgtMsg(31759), EgtMsgBox.Buttons.YES_NO_CANCEL, EgtMsgBox.Icons.NULL) ' Salvare le modifiche?
|
|
Select Case SaveWjDbWnd.m_nPressedBtn
|
|
Case 1 ' Yes
|
|
WriteWaterjetDb()
|
|
bIsModified = False
|
|
Return SaveWndBtnEnum.YES
|
|
Case 2 ' No
|
|
Return SaveWndBtnEnum.NO
|
|
Case Else ' Cancel
|
|
Return SaveWndBtnEnum.CANCEL
|
|
End Select
|
|
Else
|
|
Dim bExitFor As Boolean = False
|
|
For Each Material As EgtWPFLib5.WjMaterial In MaterialList
|
|
If Not IsNothing(Material.SubMaterialList) Then
|
|
For Each SubMaterial As EgtWPFLib5.WjSubMaterial In Material.SubMaterialList
|
|
If Not IsNothing(SubMaterial.ParamList) Then
|
|
For Each QParam As EgtWPFLib5.WjParam In SubMaterial.ParamList
|
|
bExitFor = QParam.IsModified()
|
|
If bExitFor Then Exit For
|
|
Next
|
|
End If
|
|
If bExitFor Then Exit For
|
|
Next
|
|
End If
|
|
If bExitFor Then Exit For
|
|
Next
|
|
If bExitFor Then
|
|
Dim SaveWjDbWnd As New EgtMsgBox(MainWindow, "", EgtMsg(31759), EgtMsgBox.Buttons.YES_NO_CANCEL, EgtMsgBox.Icons.NULL) ' Salvare le modifiche?
|
|
Select Case SaveWjDbWnd.m_nPressedBtn
|
|
Case 1 ' Yes
|
|
WriteWaterjetDb()
|
|
bIsModified = False
|
|
Return SaveWndBtnEnum.YES
|
|
Case 2 ' No
|
|
Return SaveWndBtnEnum.NO
|
|
Case Else ' Cancel
|
|
Return SaveWndBtnEnum.CANCEL
|
|
End Select
|
|
End If
|
|
End If
|
|
Return SaveWndBtnEnum.YES
|
|
End Function
|
|
|
|
Sub New(sMachDir As String)
|
|
MyBase.New(sMachDir)
|
|
End Sub
|
|
|
|
End Class
|