ivanszabo/Nuvolar
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

INIT OK 20.1.4

Browse Source
This commit is contained in:
ivanszabo
2020-06-09 10:30:25 +02:00
parent 96e5588d9d
commit 291939e03f
25 changed files with 54 additions and 60 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Nuvolar.Module.Win/Editor/ExcelEditor/ExcelUserControl.vb
+6 -6
View File
@@ -45,7 +45,7 @@ Public Class ExcelUserControl
End Sub
Private Sub ImportXLS_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles ImportXLS.ItemClick
Me.OpenFileDialog1.Filter = "Excel (*.xls) |*.xls;*.xlsx"
If Me.OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
If Me.OpenFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
Me.SP.OpenExcel(Me.OpenFileDialog1.FileName)
_FileName = Me.OpenFileDialog1.FileName
End If
@@ -53,7 +53,7 @@ Public Class ExcelUserControl
Private Sub ExportXLS_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles ExportXLS.ItemClick
'Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
Me.SaveFileDialog1.Filter = "Excel (*.xls) |*.xls;*.xlsx"
If Me.SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
If Me.SaveFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
Me.SP.SaveExcel(Me.SaveFileDialog1.FileName)
End If
End Sub
@@ -68,14 +68,14 @@ Public Class ExcelUserControl
End Sub
Private Sub BarButtonItem6_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem6.ItemClick
Me.OpenFileDialog1.Filter = "Spread (*.xml) |*.xml"
If Me.OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
If Me.OpenFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
Me.SP.Open(Me.OpenFileDialog1.FileName)
_FileName = Me.OpenFileDialog1.FileName
End If
End Sub
Private Sub BarButtonItem7_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem7.ItemClick
Me.SaveFileDialog1.Filter = "Spread (*.xml) |*.xml"
If Me.SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
If Me.SaveFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
Me.SP.Save(Me.SaveFileDialog1.FileName, False)
End If
End Sub
@@ -113,7 +113,7 @@ Public Class ExcelUserControl
End If
End Sub
Private Sub SetColor(_Object As String)
Dim _ColorDialog As New Windows.Forms.ColorDialog
Dim _ColorDialog As New System.Windows.Forms.ColorDialog
Select Case _Object
Case "CellBackColor"
If (_ColorDialog.ShowDialog() = DialogResult.OK) Then
@@ -136,7 +136,7 @@ Public Class ExcelUserControl
End Select
End Sub
Private Sub SP_CellClick(sender As System.Object, e As FarPoint.Win.Spread.CellClickEventArgs) Handles SP.CellClick
If e.Button = Windows.Forms.MouseButtons.Right Then
If e.Button = System.Windows.Forms.MouseButtons.Right Then
Cursor = New Cursor(Cursor.Current.Handle)
ContextMenuStrip1.Show(New System.Drawing.Point(Cursor.Position))
End If