Reconfigure for GIT
This commit is contained in:
@@ -0,0 +1,28 @@
|
||||
Imports Microsoft.VisualBasic
|
||||
Imports System
|
||||
Imports DevExpress.ExpressApp.Win.Editors
|
||||
Imports DevExpress.ExpressApp.Model
|
||||
Imports DevExpress.ExpressApp.Editors
|
||||
|
||||
<PropertyEditor(GetType([String]), False)> _
|
||||
Public Class ExcelPropertyEditor
|
||||
Inherits WinPropertyEditor
|
||||
Public Sub New(ByVal objectType As Type, ByVal info As IModelMemberViewItem)
|
||||
MyBase.New(objectType, info)
|
||||
ControlBindingProperty = "ExcelInfo"
|
||||
End Sub
|
||||
Private ExcelUserControlCore As ExcelUserControl = Nothing
|
||||
Public ReadOnly Property ExcelUserControl() As ExcelUserControl
|
||||
Get
|
||||
Return ExcelUserControlCore
|
||||
End Get
|
||||
End Property
|
||||
Protected Overrides Function CreateControlCore() As Object
|
||||
ExcelUserControlCore = New ExcelUserControl()
|
||||
Return ExcelUserControlCore
|
||||
End Function
|
||||
Protected Overrides Sub OnAllowEditChanged()
|
||||
MyBase.OnAllowEditChanged()
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
@@ -0,0 +1,406 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class ExcelUserControl
|
||||
Inherits System.Windows.Forms.UserControl
|
||||
|
||||
'UserControl overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Required by the Windows Form Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Windows Form Designer
|
||||
'It can be modified using the Windows Form Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Me.SP = New FarPoint.Win.Spread.FpSpread()
|
||||
Me.SP_Sheet1 = New FarPoint.Win.Spread.SheetView()
|
||||
Me.FormulaProvider1 = New FarPoint.Win.Spread.FormulaProvider()
|
||||
Me.SPFormula = New FarPoint.Win.Spread.FormulaTextBox()
|
||||
Me.BarManager1 = New DevExpress.XtraBars.BarManager(Me.components)
|
||||
Me.Bar2 = New DevExpress.XtraBars.Bar()
|
||||
Me.BarSubItem2 = New DevExpress.XtraBars.BarSubItem()
|
||||
Me.BarSubItem5 = New DevExpress.XtraBars.BarSubItem()
|
||||
Me.ImportXLS = New DevExpress.XtraBars.BarButtonItem()
|
||||
Me.BarButtonItem6 = New DevExpress.XtraBars.BarButtonItem()
|
||||
Me.BarSubItem6 = New DevExpress.XtraBars.BarSubItem()
|
||||
Me.ExportXLS = New DevExpress.XtraBars.BarButtonItem()
|
||||
Me.BarButtonItem7 = New DevExpress.XtraBars.BarButtonItem()
|
||||
Me.BarButtonItem12 = New DevExpress.XtraBars.BarButtonItem()
|
||||
Me.BarButtonItem8 = New DevExpress.XtraBars.BarButtonItem()
|
||||
Me.BarButtonItem11 = New DevExpress.XtraBars.BarButtonItem()
|
||||
Me.BarSubItem3 = New DevExpress.XtraBars.BarSubItem()
|
||||
Me.BarButtonItem5 = New DevExpress.XtraBars.BarButtonItem()
|
||||
Me.BarSubItem7 = New DevExpress.XtraBars.BarSubItem()
|
||||
Me.TrimColumns = New DevExpress.XtraBars.BarButtonItem()
|
||||
Me.TrimRows = New DevExpress.XtraBars.BarButtonItem()
|
||||
Me.BarButtonItem9 = New DevExpress.XtraBars.BarButtonItem()
|
||||
Me.BarButtonItem10 = New DevExpress.XtraBars.BarButtonItem()
|
||||
Me.barDockControlTop = New DevExpress.XtraBars.BarDockControl()
|
||||
Me.barDockControlBottom = New DevExpress.XtraBars.BarDockControl()
|
||||
Me.barDockControlLeft = New DevExpress.XtraBars.BarDockControl()
|
||||
Me.barDockControlRight = New DevExpress.XtraBars.BarDockControl()
|
||||
Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
|
||||
Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
|
||||
Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem()
|
||||
Me.BarSubItem1 = New DevExpress.XtraBars.BarSubItem()
|
||||
Me.BarSubItem4 = New DevExpress.XtraBars.BarSubItem()
|
||||
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
|
||||
Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
|
||||
Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem()
|
||||
Me.FontDialog1 = New System.Windows.Forms.FontDialog()
|
||||
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.ShowHideGridToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.FontToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.BackColorToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.BorderToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.CellTypeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
CType(Me.SP, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.SP_Sheet1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.FormulaProvider1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.BarManager1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.ContextMenuStrip1.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'SP
|
||||
'
|
||||
Me.SP.AccessibleDescription = ""
|
||||
Me.SP.AllowColumnMove = True
|
||||
Me.SP.EditModeReplace = True
|
||||
Me.SP.Location = New System.Drawing.Point(0, 58)
|
||||
Me.SP.Name = "SP"
|
||||
Me.SP.Sheets.AddRange(New FarPoint.Win.Spread.SheetView() {Me.SP_Sheet1})
|
||||
Me.SP.Size = New System.Drawing.Size(798, 446)
|
||||
Me.SP.TabIndex = 0
|
||||
'
|
||||
'SP_Sheet1
|
||||
'
|
||||
Me.SP_Sheet1.Reset()
|
||||
SP_Sheet1.SheetName = "Sheet1"
|
||||
'Formulas and custom names must be loaded with R1C1 reference style
|
||||
Me.SP_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.R1C1
|
||||
SP_Sheet1.ColumnCount = 1
|
||||
SP_Sheet1.RowCount = 1
|
||||
Me.SP_Sheet1.HorizontalGridLine = New FarPoint.Win.Spread.GridLine(FarPoint.Win.Spread.GridLineType.None)
|
||||
Me.SP_Sheet1.RowHeader.Columns.Default.Resizable = False
|
||||
Me.SP_Sheet1.VerticalGridLine = New FarPoint.Win.Spread.GridLine(FarPoint.Win.Spread.GridLineType.None)
|
||||
Me.SP_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.A1
|
||||
'
|
||||
'SPFormula
|
||||
'
|
||||
Me.SPFormula.Location = New System.Drawing.Point(0, 30)
|
||||
Me.SPFormula.Multiline = False
|
||||
Me.SPFormula.Name = "SPFormula"
|
||||
Me.SPFormula.Size = New System.Drawing.Size(801, 22)
|
||||
Me.SPFormula.TabIndex = 1
|
||||
'Attach SPFormula to SP
|
||||
Me.SPFormula.Attach(Me.SP)
|
||||
'
|
||||
'BarManager1
|
||||
'
|
||||
Me.BarManager1.Bars.AddRange(New DevExpress.XtraBars.Bar() {Me.Bar2})
|
||||
Me.BarManager1.DockControls.Add(Me.barDockControlTop)
|
||||
Me.BarManager1.DockControls.Add(Me.barDockControlBottom)
|
||||
Me.BarManager1.DockControls.Add(Me.barDockControlLeft)
|
||||
Me.BarManager1.DockControls.Add(Me.barDockControlRight)
|
||||
Me.BarManager1.Form = Me
|
||||
Me.BarManager1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.ExportXLS, Me.ImportXLS, Me.TrimColumns, Me.TrimRows, Me.BarButtonItem5, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItem8, Me.BarSubItem1, Me.BarSubItem2, Me.BarSubItem3, Me.BarSubItem4, Me.BarSubItem5, Me.BarSubItem6, Me.BarSubItem7, Me.BarButtonItem9, Me.BarButtonItem10, Me.BarButtonItem11, Me.BarButtonItem12})
|
||||
Me.BarManager1.MainMenu = Me.Bar2
|
||||
Me.BarManager1.MaxItemId = 22
|
||||
'
|
||||
'Bar2
|
||||
'
|
||||
Me.Bar2.BarName = "Main menu"
|
||||
Me.Bar2.DockCol = 0
|
||||
Me.Bar2.DockRow = 0
|
||||
Me.Bar2.DockStyle = DevExpress.XtraBars.BarDockStyle.Top
|
||||
Me.Bar2.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.BarSubItem2), New DevExpress.XtraBars.LinkPersistInfo(Me.BarSubItem3)})
|
||||
Me.Bar2.OptionsBar.MultiLine = True
|
||||
Me.Bar2.OptionsBar.UseWholeRow = True
|
||||
Me.Bar2.Text = "Main menu"
|
||||
'
|
||||
'BarSubItem2
|
||||
'
|
||||
Me.BarSubItem2.Caption = "File"
|
||||
Me.BarSubItem2.Id = 12
|
||||
Me.BarSubItem2.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.BarSubItem5), New DevExpress.XtraBars.LinkPersistInfo(Me.BarSubItem6), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem8), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem11)})
|
||||
Me.BarSubItem2.Name = "BarSubItem2"
|
||||
'
|
||||
'BarSubItem5
|
||||
'
|
||||
Me.BarSubItem5.Caption = "Import"
|
||||
Me.BarSubItem5.Id = 15
|
||||
Me.BarSubItem5.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.ImportXLS), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem6)})
|
||||
Me.BarSubItem5.Name = "BarSubItem5"
|
||||
'
|
||||
'ImportXLS
|
||||
'
|
||||
Me.ImportXLS.Caption = "... from XLS"
|
||||
Me.ImportXLS.Id = 4
|
||||
Me.ImportXLS.Name = "ImportXLS"
|
||||
'
|
||||
'BarButtonItem6
|
||||
'
|
||||
Me.BarButtonItem6.Caption = "... from XML"
|
||||
Me.BarButtonItem6.Id = 8
|
||||
Me.BarButtonItem6.Name = "BarButtonItem6"
|
||||
'
|
||||
'BarSubItem6
|
||||
'
|
||||
Me.BarSubItem6.Caption = "Export"
|
||||
Me.BarSubItem6.Id = 16
|
||||
Me.BarSubItem6.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.ExportXLS), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem7), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem12)})
|
||||
Me.BarSubItem6.Name = "BarSubItem6"
|
||||
'
|
||||
'ExportXLS
|
||||
'
|
||||
Me.ExportXLS.Caption = "... to XLS" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
|
||||
Me.ExportXLS.Id = 3
|
||||
Me.ExportXLS.Name = "ExportXLS"
|
||||
'
|
||||
'BarButtonItem7
|
||||
'
|
||||
Me.BarButtonItem7.Caption = "... to XML"
|
||||
Me.BarButtonItem7.Id = 9
|
||||
Me.BarButtonItem7.Name = "BarButtonItem7"
|
||||
'
|
||||
'BarButtonItem12
|
||||
'
|
||||
Me.BarButtonItem12.Caption = "... to PDF"
|
||||
Me.BarButtonItem12.Id = 21
|
||||
Me.BarButtonItem12.Name = "BarButtonItem12"
|
||||
'
|
||||
'BarButtonItem8
|
||||
'
|
||||
Me.BarButtonItem8.Caption = "Print..."
|
||||
Me.BarButtonItem8.Id = 10
|
||||
Me.BarButtonItem8.Name = "BarButtonItem8"
|
||||
'
|
||||
'BarButtonItem11
|
||||
'
|
||||
Me.BarButtonItem11.Caption = "Print preview..."
|
||||
Me.BarButtonItem11.Id = 20
|
||||
Me.BarButtonItem11.Name = "BarButtonItem11"
|
||||
'
|
||||
'BarSubItem3
|
||||
'
|
||||
Me.BarSubItem3.Caption = "Edit"
|
||||
Me.BarSubItem3.Id = 13
|
||||
Me.BarSubItem3.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem5), New DevExpress.XtraBars.LinkPersistInfo(Me.BarSubItem7), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem9), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem10)})
|
||||
Me.BarSubItem3.Name = "BarSubItem3"
|
||||
'
|
||||
'BarButtonItem5
|
||||
'
|
||||
Me.BarButtonItem5.Caption = "Show/Hide grid line"
|
||||
Me.BarButtonItem5.Id = 7
|
||||
Me.BarButtonItem5.Name = "BarButtonItem5"
|
||||
'
|
||||
'BarSubItem7
|
||||
'
|
||||
Me.BarSubItem7.Caption = "Trim"
|
||||
Me.BarSubItem7.Id = 17
|
||||
Me.BarSubItem7.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.TrimColumns), New DevExpress.XtraBars.LinkPersistInfo(Me.TrimRows)})
|
||||
Me.BarSubItem7.Name = "BarSubItem7"
|
||||
'
|
||||
'TrimColumns
|
||||
'
|
||||
Me.TrimColumns.Caption = "... columns"
|
||||
Me.TrimColumns.Id = 5
|
||||
Me.TrimColumns.Name = "TrimColumns"
|
||||
'
|
||||
'TrimRows
|
||||
'
|
||||
Me.TrimRows.Caption = "... rows"
|
||||
Me.TrimRows.Id = 6
|
||||
Me.TrimRows.Name = "TrimRows"
|
||||
'
|
||||
'BarButtonItem9
|
||||
'
|
||||
Me.BarButtonItem9.Caption = "Font..."
|
||||
Me.BarButtonItem9.Id = 18
|
||||
Me.BarButtonItem9.Name = "BarButtonItem9"
|
||||
'
|
||||
'BarButtonItem10
|
||||
'
|
||||
Me.BarButtonItem10.Caption = "Color..."
|
||||
Me.BarButtonItem10.Id = 19
|
||||
Me.BarButtonItem10.Name = "BarButtonItem10"
|
||||
'
|
||||
'barDockControlTop
|
||||
'
|
||||
Me.barDockControlTop.CausesValidation = False
|
||||
Me.barDockControlTop.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.barDockControlTop.Location = New System.Drawing.Point(0, 0)
|
||||
Me.barDockControlTop.Size = New System.Drawing.Size(801, 24)
|
||||
'
|
||||
'barDockControlBottom
|
||||
'
|
||||
Me.barDockControlBottom.CausesValidation = False
|
||||
Me.barDockControlBottom.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.barDockControlBottom.Location = New System.Drawing.Point(0, 558)
|
||||
Me.barDockControlBottom.Size = New System.Drawing.Size(801, 0)
|
||||
'
|
||||
'barDockControlLeft
|
||||
'
|
||||
Me.barDockControlLeft.CausesValidation = False
|
||||
Me.barDockControlLeft.Dock = System.Windows.Forms.DockStyle.Left
|
||||
Me.barDockControlLeft.Location = New System.Drawing.Point(0, 24)
|
||||
Me.barDockControlLeft.Size = New System.Drawing.Size(0, 534)
|
||||
'
|
||||
'barDockControlRight
|
||||
'
|
||||
Me.barDockControlRight.CausesValidation = False
|
||||
Me.barDockControlRight.Dock = System.Windows.Forms.DockStyle.Right
|
||||
Me.barDockControlRight.Location = New System.Drawing.Point(801, 24)
|
||||
Me.barDockControlRight.Size = New System.Drawing.Size(0, 534)
|
||||
'
|
||||
'BarButtonItem1
|
||||
'
|
||||
Me.BarButtonItem1.Caption = "BarButtonItem1"
|
||||
Me.BarButtonItem1.Id = 0
|
||||
Me.BarButtonItem1.Name = "BarButtonItem1"
|
||||
'
|
||||
'BarButtonItem2
|
||||
'
|
||||
Me.BarButtonItem2.Caption = "FileOpen"
|
||||
Me.BarButtonItem2.Id = 1
|
||||
Me.BarButtonItem2.Name = "BarButtonItem2"
|
||||
'
|
||||
'BarButtonItem3
|
||||
'
|
||||
Me.BarButtonItem3.Caption = "FileSave"
|
||||
Me.BarButtonItem3.Id = 2
|
||||
Me.BarButtonItem3.Name = "BarButtonItem3"
|
||||
'
|
||||
'BarSubItem1
|
||||
'
|
||||
Me.BarSubItem1.Caption = "FIle"
|
||||
Me.BarSubItem1.Id = 11
|
||||
Me.BarSubItem1.Name = "BarSubItem1"
|
||||
'
|
||||
'BarSubItem4
|
||||
'
|
||||
Me.BarSubItem4.Caption = "BarSubItem4"
|
||||
Me.BarSubItem4.Id = 14
|
||||
Me.BarSubItem4.Name = "BarSubItem4"
|
||||
'
|
||||
'OpenFileDialog1
|
||||
'
|
||||
Me.OpenFileDialog1.FileName = "OpenFileDialog1"
|
||||
'
|
||||
'BarButtonItem4
|
||||
'
|
||||
Me.BarButtonItem4.Caption = "Trim columns"
|
||||
Me.BarButtonItem4.Id = 5
|
||||
Me.BarButtonItem4.Name = "BarButtonItem4"
|
||||
'
|
||||
'ContextMenuStrip1
|
||||
'
|
||||
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ShowHideGridToolStripMenuItem, Me.FontToolStripMenuItem, Me.BackColorToolStripMenuItem, Me.BorderToolStripMenuItem, Me.CellTypeToolStripMenuItem})
|
||||
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
|
||||
Me.ContextMenuStrip1.Size = New System.Drawing.Size(147, 114)
|
||||
'
|
||||
'ShowHideGridToolStripMenuItem
|
||||
'
|
||||
Me.ShowHideGridToolStripMenuItem.Name = "ShowHideGridToolStripMenuItem"
|
||||
Me.ShowHideGridToolStripMenuItem.Size = New System.Drawing.Size(146, 22)
|
||||
Me.ShowHideGridToolStripMenuItem.Text = "Show/Hide grid"
|
||||
'
|
||||
'FontToolStripMenuItem
|
||||
'
|
||||
Me.FontToolStripMenuItem.Name = "FontToolStripMenuItem"
|
||||
Me.FontToolStripMenuItem.Size = New System.Drawing.Size(146, 22)
|
||||
Me.FontToolStripMenuItem.Text = "Font..."
|
||||
'
|
||||
'BackColorToolStripMenuItem
|
||||
'
|
||||
Me.BackColorToolStripMenuItem.Name = "BackColorToolStripMenuItem"
|
||||
Me.BackColorToolStripMenuItem.Size = New System.Drawing.Size(146, 22)
|
||||
Me.BackColorToolStripMenuItem.Text = "Back color..."
|
||||
'
|
||||
'BorderToolStripMenuItem
|
||||
'
|
||||
Me.BorderToolStripMenuItem.Name = "BorderToolStripMenuItem"
|
||||
Me.BorderToolStripMenuItem.Size = New System.Drawing.Size(146, 22)
|
||||
Me.BorderToolStripMenuItem.Text = "Border ..."
|
||||
'
|
||||
'CellTypeToolStripMenuItem
|
||||
'
|
||||
Me.CellTypeToolStripMenuItem.Name = "CellTypeToolStripMenuItem"
|
||||
Me.CellTypeToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
|
||||
Me.CellTypeToolStripMenuItem.Text = "Cell type ..."
|
||||
'
|
||||
'ExcelUserControl
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.Controls.Add(Me.SPFormula)
|
||||
Me.Controls.Add(Me.SP)
|
||||
Me.Controls.Add(Me.barDockControlLeft)
|
||||
Me.Controls.Add(Me.barDockControlRight)
|
||||
Me.Controls.Add(Me.barDockControlBottom)
|
||||
Me.Controls.Add(Me.barDockControlTop)
|
||||
Me.Name = "ExcelUserControl"
|
||||
Me.Size = New System.Drawing.Size(801, 558)
|
||||
CType(Me.SP, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.SP_Sheet1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.FormulaProvider1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.BarManager1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ContextMenuStrip1.ResumeLayout(False)
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents SP As FarPoint.Win.Spread.FpSpread
|
||||
Friend WithEvents SP_Sheet1 As FarPoint.Win.Spread.SheetView
|
||||
Friend WithEvents FormulaProvider1 As FarPoint.Win.Spread.FormulaProvider
|
||||
Friend WithEvents SPFormula As FarPoint.Win.Spread.FormulaTextBox
|
||||
Friend WithEvents BarManager1 As DevExpress.XtraBars.BarManager
|
||||
Friend WithEvents Bar2 As DevExpress.XtraBars.Bar
|
||||
Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem
|
||||
Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem
|
||||
Friend WithEvents ExportXLS As DevExpress.XtraBars.BarButtonItem
|
||||
Friend WithEvents ImportXLS As DevExpress.XtraBars.BarButtonItem
|
||||
Friend WithEvents barDockControlTop As DevExpress.XtraBars.BarDockControl
|
||||
Friend WithEvents barDockControlBottom As DevExpress.XtraBars.BarDockControl
|
||||
Friend WithEvents barDockControlLeft As DevExpress.XtraBars.BarDockControl
|
||||
Friend WithEvents barDockControlRight As DevExpress.XtraBars.BarDockControl
|
||||
Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
|
||||
Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog
|
||||
Friend WithEvents SaveFileDialog1 As System.Windows.Forms.SaveFileDialog
|
||||
Friend WithEvents TrimColumns As DevExpress.XtraBars.BarButtonItem
|
||||
Friend WithEvents TrimRows As DevExpress.XtraBars.BarButtonItem
|
||||
Friend WithEvents BarButtonItem4 As DevExpress.XtraBars.BarButtonItem
|
||||
Friend WithEvents BarButtonItem5 As DevExpress.XtraBars.BarButtonItem
|
||||
Friend WithEvents BarButtonItem6 As DevExpress.XtraBars.BarButtonItem
|
||||
Friend WithEvents BarButtonItem7 As DevExpress.XtraBars.BarButtonItem
|
||||
Friend WithEvents BarButtonItem8 As DevExpress.XtraBars.BarButtonItem
|
||||
Friend WithEvents BarSubItem2 As DevExpress.XtraBars.BarSubItem
|
||||
Friend WithEvents BarSubItem3 As DevExpress.XtraBars.BarSubItem
|
||||
Friend WithEvents BarSubItem1 As DevExpress.XtraBars.BarSubItem
|
||||
Friend WithEvents BarSubItem5 As DevExpress.XtraBars.BarSubItem
|
||||
Friend WithEvents BarSubItem6 As DevExpress.XtraBars.BarSubItem
|
||||
Friend WithEvents BarSubItem4 As DevExpress.XtraBars.BarSubItem
|
||||
Friend WithEvents BarSubItem7 As DevExpress.XtraBars.BarSubItem
|
||||
Friend WithEvents BarButtonItem9 As DevExpress.XtraBars.BarButtonItem
|
||||
Friend WithEvents FontDialog1 As System.Windows.Forms.FontDialog
|
||||
Friend WithEvents BarButtonItem10 As DevExpress.XtraBars.BarButtonItem
|
||||
Friend WithEvents BarButtonItem11 As DevExpress.XtraBars.BarButtonItem
|
||||
Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip
|
||||
Friend WithEvents FontToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents BorderToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents ShowHideGridToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents BackColorToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents CellTypeToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents BarButtonItem12 As DevExpress.XtraBars.BarButtonItem
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,141 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="SP_Sheet1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<metadata name="FormulaProvider1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>124, 17</value>
|
||||
</metadata>
|
||||
<metadata name="BarManager1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>272, 17</value>
|
||||
</metadata>
|
||||
<metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>534, 17</value>
|
||||
</metadata>
|
||||
<metadata name="SaveFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>397, 17</value>
|
||||
</metadata>
|
||||
<metadata name="FontDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>676, 17</value>
|
||||
</metadata>
|
||||
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>794, 17</value>
|
||||
</metadata>
|
||||
</root>
|
||||
@@ -0,0 +1,211 @@
|
||||
Imports System.IO
|
||||
Imports System.Text
|
||||
Imports FarPoint.Win.Spread
|
||||
Imports FarPoint.Win.Spread.Design
|
||||
Imports System.Windows.Forms
|
||||
|
||||
Public Class ExcelUserControl
|
||||
Private _ExcelInfo As String
|
||||
Private _FileName As String = ""
|
||||
Private _EnterMoveNextControl As Boolean
|
||||
Public Sub New()
|
||||
InitializeComponent()
|
||||
End Sub
|
||||
Public ReadOnly Property FpSpreadControl() As FpSpread
|
||||
Get
|
||||
Return Me.SP
|
||||
End Get
|
||||
End Property
|
||||
ReadOnly Property FileName As String
|
||||
Get
|
||||
Return _FileName
|
||||
End Get
|
||||
End Property
|
||||
Public Property ExcelInfo As String
|
||||
Get
|
||||
Return _ExcelInfo
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
_ExcelInfo = value
|
||||
End Set
|
||||
End Property
|
||||
Public Property EnterMoveNextControl As Boolean
|
||||
Get
|
||||
Return _EnterMoveNextControl
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
_EnterMoveNextControl = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Sub ExcelUserControl_SizeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.SizeChanged
|
||||
SP.Width = Me.Width
|
||||
SPFormula.Width = Me.Width
|
||||
SP.Height = Me.Height - SPFormula.Height - 35
|
||||
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
|
||||
Me.SP.OpenExcel(Me.OpenFileDialog1.FileName)
|
||||
_FileName = Me.OpenFileDialog1.FileName
|
||||
End If
|
||||
End Sub
|
||||
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
|
||||
Me.SP.SaveExcel(Me.SaveFileDialog1.FileName)
|
||||
End If
|
||||
End Sub
|
||||
Private Sub TrimColumns_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles TrimColumns.ItemClick
|
||||
Me.SP.ActiveSheet.ColumnCount = Me.SP.ActiveSheet.ActiveColumnIndex + 1
|
||||
End Sub
|
||||
Private Sub TrimRows_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles TrimRows.ItemClick
|
||||
Me.SP.ActiveSheet.RowCount = Me.SP.ActiveSheet.ActiveRowIndex + 1
|
||||
End Sub
|
||||
Private Sub BarButtonItem5_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem5.ItemClick
|
||||
SetGridLine()
|
||||
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
|
||||
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
|
||||
Me.SP.Save(Me.SaveFileDialog1.FileName, False)
|
||||
End If
|
||||
End Sub
|
||||
Private Sub BarButtonItem8_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem8.ItemClick
|
||||
Dim printset As New FarPoint.Win.Spread.PrintInfo()
|
||||
printset.ShowGrid = False
|
||||
printset.UseMax = True
|
||||
printset.ShowPrintDialog = True
|
||||
SP.ActiveSheet.PrintInfo = printset
|
||||
|
||||
SP.PrintSheet(SP.ActiveSheet)
|
||||
End Sub
|
||||
Private Sub BarButtonItem9_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem9.ItemClick
|
||||
SetFont()
|
||||
End Sub
|
||||
Private Sub BarButtonItem10_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem10.ItemClick
|
||||
SetColor("Any")
|
||||
End Sub
|
||||
Private Sub FontToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles FontToolStripMenuItem.Click
|
||||
SetFont()
|
||||
End Sub
|
||||
Private Sub SetFont()
|
||||
FontDialog1.ShowColor = True
|
||||
If (FontDialog1.ShowDialog() = DialogResult.OK) Then
|
||||
Dim _range As FarPoint.Win.Spread.Model.CellRange() = SP.ActiveSheet.GetSelections
|
||||
For Each _CellRange As FarPoint.Win.Spread.Model.CellRange In _range
|
||||
For ik = _CellRange.Column To _CellRange.Column + _CellRange.ColumnCount - 1
|
||||
For jk = _CellRange.Row To _CellRange.Row + _CellRange.RowCount - 1
|
||||
Dim _ActCell As FarPoint.Win.Spread.Cell = SP.ActiveSheet.Cells(jk, ik)
|
||||
_ActCell.Font = FontDialog1.Font
|
||||
_ActCell.ForeColor = FontDialog1.Color
|
||||
Next
|
||||
Next
|
||||
Next
|
||||
End If
|
||||
End Sub
|
||||
Private Sub SetColor(_Object As String)
|
||||
Dim _ColorDialog As New Windows.Forms.ColorDialog
|
||||
Select Case _Object
|
||||
Case "CellBackColor"
|
||||
If (_ColorDialog.ShowDialog() = DialogResult.OK) Then
|
||||
Dim _range As FarPoint.Win.Spread.Model.CellRange() = SP.ActiveSheet.GetSelections
|
||||
For Each _CellRange As FarPoint.Win.Spread.Model.CellRange In _range
|
||||
For ik = _CellRange.Column To _CellRange.Column + _CellRange.ColumnCount - 1
|
||||
For jk = _CellRange.Row To _CellRange.Row + _CellRange.RowCount - 1
|
||||
Dim _ActCell As FarPoint.Win.Spread.Cell = SP.ActiveSheet.Cells(jk, ik)
|
||||
_ActCell.BackColor = _ColorDialog.Color
|
||||
Next
|
||||
Next
|
||||
Next
|
||||
End If
|
||||
|
||||
Case "BorderColor"
|
||||
If (_ColorDialog.ShowDialog() = DialogResult.OK) Then
|
||||
|
||||
End If
|
||||
|
||||
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
|
||||
Cursor = New Cursor(Cursor.Current.Handle)
|
||||
ContextMenuStrip1.Show(New System.Drawing.Point(Cursor.Position))
|
||||
End If
|
||||
End Sub
|
||||
Private Sub ShowHideGridToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ShowHideGridToolStripMenuItem.Click
|
||||
SetGridLine()
|
||||
End Sub
|
||||
Private Sub SetGridLine()
|
||||
Dim HGridLine As FarPoint.Win.Spread.GridLine
|
||||
Dim VGridLine As FarPoint.Win.Spread.GridLine
|
||||
If Me.SP.ActiveSheet.HorizontalGridLine.Type = GridLineType.None Then
|
||||
HGridLine = New FarPoint.Win.Spread.GridLine(FarPoint.Win.Spread.GridLineType.Flat, System.Drawing.Color.LightGray)
|
||||
VGridLine = New FarPoint.Win.Spread.GridLine(FarPoint.Win.Spread.GridLineType.Flat, System.Drawing.Color.LightGray)
|
||||
Else
|
||||
HGridLine = New FarPoint.Win.Spread.GridLine(FarPoint.Win.Spread.GridLineType.None, System.Drawing.Color.Transparent)
|
||||
VGridLine = New FarPoint.Win.Spread.GridLine(FarPoint.Win.Spread.GridLineType.None, System.Drawing.Color.Transparent)
|
||||
End If
|
||||
|
||||
Me.SP.ActiveSheet.HorizontalGridLine = HGridLine
|
||||
Me.SP.ActiveSheet.VerticalGridLine = VGridLine
|
||||
End Sub
|
||||
Private Sub BackColorToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles BackColorToolStripMenuItem.Click
|
||||
SetColor("CellBackColor")
|
||||
End Sub
|
||||
Private Sub BorderToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles BorderToolStripMenuItem.Click
|
||||
FarPoint.Win.Spread.Design.ExternalDialogs.BorderEditor(SP)
|
||||
End Sub
|
||||
Private Sub BarButtonItem11_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem11.ItemClick
|
||||
Dim printset As New FarPoint.Win.Spread.PrintInfo()
|
||||
printset.ShowGrid = False
|
||||
printset.UseMax = True
|
||||
'printset.ShowPrintDialog = True
|
||||
printset.Preview = True
|
||||
SP.ActiveSheet.PrintInfo = printset
|
||||
|
||||
SP.PrintSheet(SP.ActiveSheet)
|
||||
|
||||
|
||||
End Sub
|
||||
Private Sub CellTypeToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles CellTypeToolStripMenuItem.Click
|
||||
FarPoint.Win.Spread.Design.ExternalDialogs.CellTypeEditor(SP)
|
||||
End Sub
|
||||
Private Sub BarButtonItem12_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem12.ItemClick
|
||||
Dim _FpPdf As FarPoint.Win.Spread.PrintInfo = New FarPoint.Win.Spread.PrintInfo
|
||||
Dim _SaveDialog As New SaveFileDialog
|
||||
_SaveDialog.Filter = "PDF (*.pdf) |*.pdf"
|
||||
_SaveDialog.DefaultExt = ".pdf"
|
||||
_SaveDialog.FileName = "Munkalap"
|
||||
|
||||
If (_SaveDialog.ShowDialog() = DialogResult.OK) Then
|
||||
|
||||
|
||||
SP.ActiveSheet.ColumnHeader.Visible = False
|
||||
SP.ActiveSheet.RowHeader.Visible = False
|
||||
|
||||
_FpPdf.PdfFileName = _SaveDialog.FileName
|
||||
'_FpPdf.PdfWriteMode = PdfWriteMode.New
|
||||
'_FpPdf.PdfWriteTo = PdfWriteTo.File
|
||||
_FpPdf.PrintToPdf = True
|
||||
'_FpPdf.PaperSize = New System.Drawing.Printing.PaperSize("A4", 8, 11)
|
||||
'_FpPdf.Centering = Centering.Both
|
||||
_FpPdf.Preview = False
|
||||
|
||||
SP.ActiveSheet.PrintInfo = _FpPdf
|
||||
SP.PrintSheet(SP.ActiveSheet)
|
||||
'SP.SafePrint(SP, 0)
|
||||
|
||||
SP.ActiveSheet.ColumnHeader.Visible = True
|
||||
SP.ActiveSheet.RowHeader.Visible = True
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user