Daniele Bariletti
63 lines
1.5 KiB
VB.net
63 lines
1.5 KiB
VB.net
Imports EgtWPFLib5
|
|
Imports EgtUILib
|
|
Imports System.Windows.Forms
|
|
|
|
Public Class ProjManagerVM
|
|
Private m_NewFileCmd As ICommand
|
|
Private m_SaveFileCmd As ICommand
|
|
Private m_OpenFileCmd As ICommand
|
|
|
|
Public ReadOnly Property NewFileCmd As ICommand
|
|
Get
|
|
If IsNothing(m_NewFileCmd) Then
|
|
m_NewFileCmd = New Command(AddressOf NewFile)
|
|
End If
|
|
Return m_NewFileCmd
|
|
End Get
|
|
End Property
|
|
|
|
Private Sub NewFile()
|
|
|
|
End Sub
|
|
|
|
Public ReadOnly Property OpenFileCmd As ICommand
|
|
Get
|
|
If IsNothing(m_OpenFileCmd) Then
|
|
m_OpenFileCmd = New Command(AddressOf OpenFile)
|
|
End If
|
|
Return m_OpenFileCmd
|
|
End Get
|
|
End Property
|
|
|
|
Private Sub OpenFile()
|
|
Dim dialog As New OpenFileDialog()
|
|
|
|
dialog.InitialDirectory = "D:\Temp\marmo\Vein3d"
|
|
dialog.Filter = "nge files (*.nge)|*.nge|vme files (*.vme)|*.vme"
|
|
dialog.FilterIndex = 2
|
|
dialog.RestoreDirectory = True
|
|
|
|
dialog.ShowDialog()
|
|
|
|
If String.IsNullOrEmpty(dialog.FileName) Then Return
|
|
|
|
Dim sFilePath As String = dialog.FileName
|
|
Dim a As Boolean = EgtOpenFile(sFilePath)
|
|
EgtDraw()
|
|
|
|
End Sub
|
|
|
|
Public ReadOnly Property SaveFileCmd As ICommand
|
|
Get
|
|
If IsNothing(m_SaveFileCmd) Then
|
|
m_SaveFileCmd = New Command(AddressOf SaveFile)
|
|
End If
|
|
Return m_SaveFileCmd
|
|
End Get
|
|
End Property
|
|
|
|
Private Sub SaveFile()
|
|
|
|
End Sub
|
|
End Class
|