Egalware/EgtCAM5
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

EgtCAM5 :

Browse Source 
- Migliorie varie.
This commit is contained in:
Emmanuele Sassi
2016-07-09 12:44:34 +00:00
parent bca8754b82
commit bdfd34df16
1 changed files with 16 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
ProjectPage/ProjectViewModel.vb
+16 -4
View File
@@ -505,17 +505,29 @@ Namespace EgtCAM5
End Sub)
Application.Msn.Register(Application.INSERTPROJECT, Sub()
' eseguo
Dim sDir As String = String.Empty
GetPrivateProfileString(S_GENERAL, K_LASTNGEDIR, "", sDir)
m_Controller.InsertProject(sDir)
End Sub)
Application.Msn.Register(Application.IMPORTPROJECT, Sub()
Dim sDir As String = String.Empty
GetPrivateProfileString(S_GENERAL, K_LASTIMPDIR, "", sDir)
m_Controller.ImportProject(sDir)
End Sub)
Application.Msn.Register(Application.EXPORTPROJECT, Sub()
m_Controller.ExportProject(Path.ChangeExtension(m_Controller.GetCurrFile(), "dxf"))
End Sub)
Application.Msn.Register(Application.EXECPROJECT, Sub()
'If (ModifierKeys And Keys.Shift) <> Keys.Shift Then
Dim sDir As String = String.Empty
GetPrivateProfileString(S_GENERAL, K_LASTLUADIR, "", sDir)
m_Controller.Exec(sDir)
'Else
' ShowMenuMruScripts(btnExec, New Point(0, btnExec.Height))
'End If
End Sub)
End Sub)
End Sub