Dario Sassi
28 lines
791 B
VB.net
28 lines
791 B
VB.net
Imports EgtUILib.EgtInterface
|
|
|
|
Public Class cmdSave
|
|
|
|
Private m_nContext As Integer
|
|
|
|
Sub New()
|
|
InitializeComponent()
|
|
m_nContext = 1
|
|
End Sub
|
|
|
|
Public Sub SetCtx(ByVal nCtx As Integer)
|
|
m_nContext = nCtx
|
|
End Sub
|
|
|
|
Private Sub btnSave_Click(sender As System.Object, e As System.EventArgs) Handles btnSave.Click
|
|
SaveFileDialog.Title = "Save"
|
|
SaveFileDialog.Filter = "New geometry EgalTech(*.nge)|*.nge"
|
|
SaveFileDialog.FilterIndex = 1
|
|
If SaveFileDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
|
|
Cursor = Cursors.WaitCursor
|
|
EgtSaveFile(m_nContext, SaveFileDialog.FileName, NGE_CMPTEXT)
|
|
Cursor = Cursors.Default
|
|
End If
|
|
End Sub
|
|
|
|
End Class
|