INIT OK 20.1.4

This commit is contained in:
2020-06-09 10:30:25 +02:00
parent 96e5588d9d
commit 291939e03f
25 changed files with 54 additions and 60 deletions
@@ -132,7 +132,7 @@ Public Class BallanceVC
Dim _workbook As DevExpress.Spreadsheet.IWorkbook = _SpreadsheetControl.Document
Dim _worksheet As Worksheet = _workbook.Worksheets("Borító")
Dim _worksheet_range As DevExpress.Spreadsheet.Range
Dim _worksheet_range As DevExpress.Spreadsheet.CellRange
_worksheet_range = _worksheet.GetUsedRange()
@@ -162,7 +162,7 @@ Public Class BallanceVC
End Sub
Private Sub aSpreadImportXML_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aSpreadImportXML.Execute
Dim openFileDialog1 As New Windows.Forms.OpenFileDialog()
Dim openFileDialog1 As New System.Windows.Forms.OpenFileDialog()
openFileDialog1.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
openFileDialog1.Filter = "XML files (*.xml)|*.xml|All files (*.*)|*.*"
@@ -175,7 +175,7 @@ Public Class BallanceVC
End Sub
Private Sub aSpreadExportXML_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aSpreadExportXML.Execute
Dim openFileDialog1 As New Windows.Forms.SaveFileDialog()
Dim openFileDialog1 As New System.Windows.Forms.SaveFileDialog()
openFileDialog1.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
openFileDialog1.Filter = "XML files (*.xml)|*.xml|All files (*.*)|*.*"