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

Reconfigure for GIT

Browse Source
This commit is contained in:
ivanszabo
2017-03-26 20:00:03 +02:00
commit 00637826ab
8056 changed files with 535977 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
SISBusiness.Module.Win/Editor/DXPropertyEditors/CalculatorPropertyEditor.vb
+19
View File
@@ -0,0 +1,19 @@
Imports DevExpress.ExpressApp.Model
Imports DevExpress.ExpressApp.Editors
Imports DevExpress.ExpressApp.Win.Editors
Imports DevExpress.ExpressApp.Win.Core.ModelEditor
Imports DevExpress.XtraEditors
<PropertyEditor(GetType([Double]), False)> _
Public Class CalculatorPropertyEditor
Inherits DXPropertyEditor
Public Sub New(type As Type, model As IModelMemberViewItem)
MyBase.New(type, model)
End Sub
Protected Overrides Function CreateControlCore() As Object
Dim control As New CalcEdit()
Return control
End Function
End Class
SISBusiness.Module.Win/Editor/DXPropertyEditors/FieldPicker.vb
+56
View File
@@ -0,0 +1,56 @@
Imports DevExpress.ExpressApp.Model
Imports DevExpress.ExpressApp.Editors
Imports DevExpress.ExpressApp.Win.Editors
Imports DevExpress.ExpressApp.Win.Core.ModelEditor
Imports DevExpress.XtraEditors
<PropertyEditor(GetType([String]), False)> _
Public Class FieldPickerPropertyEditor
Inherits DXPropertyEditor
Public Sub New(type As Type, model As IModelMemberViewItem)
MyBase.New(type, model)
End Sub
Protected Overrides Function CreateControlCore() As Object
Dim control As New FieldPicker()
control.Properties.ClassType = Me.ObjectType
Return control
End Function
End Class
<PropertyEditor(GetType([String]), False)> _
Public Class FieldPickerPropertyEditorContacts
Inherits DXPropertyEditor
Public Sub New(type As Type, model As IModelMemberViewItem)
MyBase.New(type, model)
End Sub
Protected Overrides Function CreateControlCore() As Object
Dim control As New FieldPicker()
control.Properties.ClassType = GetType(Contacts)
Return control
End Function
End Class
<PropertyEditor(GetType([String]), False)> _
Public Class FieldPickerPropertyEditorContract
Inherits DXPropertyEditor
Public Sub New(type As Type, model As IModelMemberViewItem)
MyBase.New(type, model)
End Sub
Protected Overrides Function CreateControlCore() As Object
Dim control As New FieldPicker()
control.Properties.ClassType = GetType(Contracts)
Return control
End Function
End Class
<PropertyEditor(GetType([String]), False)> _
Public Class FieldPickerPropertyEditorAPCShettByProducts
Inherits DXPropertyEditor
Public Sub New(type As Type, model As IModelMemberViewItem)
MyBase.New(type, model)
End Sub
Protected Overrides Function CreateControlCore() As Object
Dim control As New FieldPicker()
control.Properties.ClassType = GetType(APCSheetByProducts)
Return control
End Function
End Class
SISBusiness.Module.Win/Editor/DXPropertyEditors/NotePropertyEditor.vb
+47
View File
@@ -0,0 +1,47 @@
Imports DevExpress.ExpressApp.Model
Imports DevExpress.ExpressApp.Editors
Imports DevExpress.ExpressApp.Win.Editors
Imports DevExpress.ExpressApp.Win.Core.ModelEditor
Imports DevExpress.XtraEditors
<PropertyEditor(GetType([String]), False)> _
Public Class NotePropertyEditor
Inherits DXPropertyEditor
Public Sub New(type As Type, model As IModelMemberViewItem)
MyBase.New(type, model)
End Sub
Protected Overrides Function CreateControlCore() As Object
Dim control As New ComboBoxEdit
control.Properties.Sorted = True
control.Properties.ImmediatePopup = True
'AddHandler control.Properties.CloseUp, AddressOf control_CloseUp
'AddHandler control.KeyDown, AddressOf control_KeyDown
Return control
End Function
Private Sub control_PreviewKeyDown(sender As Object, e As Windows.Forms.PreviewKeyDownEventArgs)
Dim control As ComboBoxEdit = TryCast(sender, ComboBoxEdit)
If e.KeyCode = Windows.Forms.Keys.F6 Then
MsgBox(control.Text)
control.EditValue = control.Text
End If
End Sub
Private Sub control_KeyDown(sender As Object, e As Windows.Forms.KeyEventArgs)
Dim control As ComboBoxEdit = TryCast(sender, ComboBoxEdit)
If control.IsPopupOpen Then
If e.KeyCode = Windows.Forms.Keys.F6 Then
control.ClosePopup()
MsgBox(control.Text)
End If
End If
End Sub
Private Sub control_CloseUp(sender As Object, e As Controls.CloseUpEventArgs)
'Beep()
End Sub
End Class
SISBusiness.Module.Win/Editor/DashBoard/Designer/DashboardDesignerPropertyEditor.vb
+27
View File
@@ -0,0 +1,27 @@
Imports Microsoft.VisualBasic
Imports System
Imports DevExpress.ExpressApp.Win.Editors
Imports DevExpress.ExpressApp.Model
Imports DevExpress.ExpressApp.Editors
<PropertyEditor(GetType([String]), False)> _
Public Class DashboardDesignerPropertyEditor
Inherits WinPropertyEditor
Public Sub New(ByVal objectType As Type, ByVal info As IModelMemberViewItem)
MyBase.New(objectType, info)
ControlBindingProperty = "DashboardDesignerInfo"
End Sub
Private DashboardDesignerUserControlCore As DashboardDesignerUserControl = Nothing
Public ReadOnly Property DashboardDesignerUserControl() As DashboardDesignerUserControl
Get
Return DashboardDesignerUserControlCore
End Get
End Property
Protected Overrides Function CreateControlCore() As Object
DashboardDesignerUserControlCore = New DashboardDesignerUserControl()
Return DashboardDesignerUserControlCore
End Function
Protected Overrides Sub OnAllowEditChanged()
MyBase.OnAllowEditChanged()
End Sub
End Class
SISBusiness.Module.Win/Editor/DashBoard/Designer/DashboardDesignerUserControl.Designer.vb
Generated
+2608
View File
File diff suppressed because one or more lines are too long
SISBusiness.Module.Win/Editor/DashBoard/Designer/DashboardDesignerUserControl.resx
+1750
View File
File diff suppressed because it is too large Load Diff
SISBusiness.Module.Win/Editor/DashBoard/Designer/DashboardDesignerUserControl.vb
+101
View File
@@ -0,0 +1,101 @@
Imports DevExpress.DataAccess
Imports DevExpress.DataAccess.ConnectionParameters
Imports DevExpress.DataAccess.Sql
Public Class DashboardDesignerUserControl
Private _DashboardViewerInfo As String
Private _UserName As String
Private _Password As String
Private _Database As String
Private _SQLServer As String
Private _SQLType As eSQLType
Public ReadOnly Property DashboardDesigner() As DevExpress.DashboardWin.DashboardDesigner
Get
Return Me.DashboardDesigner1
End Get
End Property
Public ReadOnly Property BarManger As DevExpress.XtraBars.BarManager
Get
Return BarManager1
End Get
End Property
Public Property DashboardViewerInfo As String
Get
Return _DashboardViewerInfo
End Get
Set(value As String)
_DashboardViewerInfo = value
End Set
End Property
Public Property UserName As String
Get
Return _UserName
End Get
Set(value As String)
_UserName = value
End Set
End Property
Public Property Password As String
Get
Return _Password
End Get
Set(value As String)
_Password = value
End Set
End Property
Public Property Database As String
Get
Return _Database
End Get
Set(value As String)
_Database = value
End Set
End Property
Property SQLServer As String
Get
Return _SQLServer
End Get
Set(value As String)
_SQLServer = value
End Set
End Property
Public Property SQLType As eSQLType
Get
Return _SQLType
End Get
Set(value As eSQLType)
_SQLType = value
End Set
End Property
Private Sub DashboardDesigner1_ConfigureDataConnection(sender As Object, e As ConfigureDataConnectionEventArgs) Handles DashboardDesigner1.ConfigureDataConnection
Select Case Me.SQLType.ToString
Case "MySQL"
Dim _ConnectionParameters As New MySqlConnectionParameters
_ConnectionParameters.DatabaseName = Me.Database
_ConnectionParameters.UserName = Me.UserName
_ConnectionParameters.Password = Me.Password
_ConnectionParameters.ServerName = Me.SQLServer
e.ConnectionParameters = _ConnectionParameters
Case "PostgreSQL"
Dim _ConnectionParameters As New PostgreSqlConnectionParameters
_ConnectionParameters.DatabaseName = Me.Database
_ConnectionParameters.UserName = Me.UserName
_ConnectionParameters.Password = Me.Password
_ConnectionParameters.ServerName = Me.SQLServer
e.ConnectionParameters = _ConnectionParameters
Case "MSSQL"
Dim _ConnectionParameters As New MsSqlConnectionParameters
_ConnectionParameters.DatabaseName = Me.Database
_ConnectionParameters.UserName = Me.UserName
_ConnectionParameters.Password = Me.Password
_ConnectionParameters.ServerName = Me.SQLServer
e.ConnectionParameters = _ConnectionParameters
End Select
End Sub
End Class
SISBusiness.Module.Win/Editor/DashBoard/Viewer/DashboardViewerPropertyEditor.vb
+24
View File
@@ -0,0 +1,24 @@
Imports Microsoft.VisualBasic
Imports System
Imports DevExpress.ExpressApp.Win.Editors
Imports DevExpress.ExpressApp.Model
Public Class DashboardViewerPropertyEditor
Inherits WinPropertyEditor
Public Sub New(ByVal objectType As Type, ByVal info As IModelMemberViewItem)
MyBase.New(objectType, info)
ControlBindingProperty = "DashboardViewerInfo"
End Sub
Private DashboardViewerUserControlCore As DashboardViewerUserControl = Nothing
Public ReadOnly Property DashboardViewerUserControl() As DashboardViewerUserControl
Get
Return DashboardViewerUserControlCore
End Get
End Property
Protected Overrides Function CreateControlCore() As Object
DashboardViewerUserControlCore = New DashboardViewerUserControl()
Return DashboardViewerUserControlCore
End Function
Protected Overrides Sub OnAllowEditChanged()
MyBase.OnAllowEditChanged()
End Sub
End Class
SISBusiness.Module.Win/Editor/DashBoard/Viewer/DashboardViewerUserControl.Designer.vb
Generated
+51
View File
@@ -0,0 +1,51 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class DashboardViewerUserControl
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.DashboardViewer1 = New DevExpress.DashboardWin.DashboardViewer(Me.components)
CType(Me.DashboardViewer1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'DashboardViewer1
'
Me.DashboardViewer1.Dock = System.Windows.Forms.DockStyle.Fill
Me.DashboardViewer1.Location = New System.Drawing.Point(0, 0)
Me.DashboardViewer1.Name = "DashboardViewer1"
Me.DashboardViewer1.Size = New System.Drawing.Size(922, 715)
Me.DashboardViewer1.TabIndex = 0
'
'DashboardViewerUserControl
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.DashboardViewer1)
Me.Name = "DashboardViewerUserControl"
Me.Size = New System.Drawing.Size(922, 715)
CType(Me.DashboardViewer1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents DashboardViewer1 As DevExpress.DashboardWin.DashboardViewer
End Class
SISBusiness.Module.Win/Editor/DashBoard/Viewer/DashboardViewerUserControl.resx
+120
View File
@@ -0,0 +1,120 @@
<?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>
</root>
SISBusiness.Module.Win/Editor/DashBoard/Viewer/DashboardViewerUserControl.vb
+99
View File
@@ -0,0 +1,99 @@
Imports DevExpress.DashboardCommon
Imports DevExpress.DataAccess
Imports DevExpress.DataAccess.ConnectionParameters
Imports DevExpress.DataAccess.Sql
Public Class DashboardViewerUserControl
Private _DashboardViewerInfo As String
Private _UserName As String
Private _Password As String
Private _Database As String
Private _SQLServer As String
Private _SQLType As eSQLType
Public ReadOnly Property DashboardViewer() As DevExpress.DashboardWin.DashboardViewer
Get
Return Me.DashboardViewer1
End Get
End Property
Public Property DashboardViewerInfo As String
Get
Return _DashboardViewerInfo
End Get
Set(value As String)
_DashboardViewerInfo = value
End Set
End Property
Public Property UserName As String
Get
Return _UserName
End Get
Set(value As String)
_UserName = value
End Set
End Property
Public Property Password As String
Get
Return _Password
End Get
Set(value As String)
_Password = value
End Set
End Property
Public Property Database As String
Get
Return _Database
End Get
Set(value As String)
_Database = value
End Set
End Property
Property SQLServer As String
Get
Return _SQLServer
End Get
Set(value As String)
_SQLServer = value
End Set
End Property
Public Property SQLType As eSQLType
Get
Return _SQLType
End Get
Set(value As eSQLType)
_SQLType = value
End Set
End Property
Private Sub DashboardViewer1_ConfigureDataConnection(sender As Object, e As ConfigureDataConnectionEventArgs) Handles DashboardViewer1.ConfigureDataConnection
Select Case Me.SQLType.ToString
Case "MySQL"
Dim _ConnectionParameters As New MySqlConnectionParameters
_ConnectionParameters.DatabaseName = Me.Database
_ConnectionParameters.UserName = Me.UserName
_ConnectionParameters.Password = Me.Password
_ConnectionParameters.ServerName = Me.SQLServer
e.ConnectionParameters = _ConnectionParameters
Case "PostgreSQL"
Dim _ConnectionParameters As New PostgreSqlConnectionParameters
_ConnectionParameters.DatabaseName = Me.Database
_ConnectionParameters.UserName = Me.UserName
_ConnectionParameters.Password = Me.Password
_ConnectionParameters.ServerName = Me.SQLServer
e.ConnectionParameters = _ConnectionParameters
Case "MSSQL"
Dim _ConnectionParameters As New MsSqlConnectionParameters
_ConnectionParameters.DatabaseName = Me.Database
_ConnectionParameters.UserName = Me.UserName
_ConnectionParameters.Password = Me.Password
_ConnectionParameters.ServerName = Me.SQLServer
e.ConnectionParameters = _ConnectionParameters
End Select
End Sub
End Class
SISBusiness.Module.Win/Editor/DateTimeEditor.vb
+20
View File
@@ -0,0 +1,20 @@
Imports Microsoft.VisualBasic
Imports System
Imports DevExpress.ExpressApp.Editors
Imports DevExpress.ExpressApp.Win.Editors
Imports DevExpress.ExpressApp
Imports DevExpress.ExpressApp.Model
Imports DevExpress.XtraEditors
Public Class DateTimeEditor
Inherits DatePropertyEditor
Public Sub New(ByVal objectType As Type, ByVal item As IModelMemberViewItem)
MyBase.New(objectType, item)
End Sub
Protected Overrides Sub SetupRepositoryItem(ByVal item As DevExpress.XtraEditors.Repository.RepositoryItem)
MyBase.SetupRepositoryItem(item)
Dim defaultItem As RepositoryItemDateTimeEdit = CType(item, RepositoryItemDateTimeEdit)
defaultItem.VistaDisplayMode = DevExpress.Utils.DefaultBoolean.True
defaultItem.VistaEditTime = DevExpress.Utils.DefaultBoolean.True
End Sub
End Class
SISBusiness.Module.Win/Editor/ExcelEditor/ExcelPropertyEditor.vb
+28
View File
@@ -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
SISBusiness.Module.Win/Editor/ExcelEditor/ExcelUserControl.Designer.vb
Generated
+406
View File
@@ -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
SISBusiness.Module.Win/Editor/ExcelEditor/ExcelUserControl.resx
+141
View File
@@ -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>
SISBusiness.Module.Win/Editor/ExcelEditor/ExcelUserControl.vb
+211
View File
@@ -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
SISBusiness.Module.Win/Editor/FolderPropertyEditor.vb
+24
View File
@@ -0,0 +1,24 @@
Imports Microsoft.VisualBasic
Imports System
Imports DevExpress.ExpressApp.Win.Editors
Imports DevExpress.ExpressApp.Model
Imports DevExpress.ExpressApp.Editors
<PropertyEditor(GetType([String]), False)> _
Public Class FolderPropertyEditor
Inherits WinPropertyEditor
Public Sub New(ByVal objectType As Type, ByVal info As IModelMemberViewItem)
MyBase.New(objectType, info)
ControlBindingProperty = "FolderName"
End Sub
Private FolderUserControlCore As FolderUserControl = Nothing
Public ReadOnly Property FolderUserControl() As FolderUserControl
Get
Return FolderUserControlCore
End Get
End Property
Protected Overrides Function CreateControlCore() As Object
FolderUserControlCore = New FolderUserControl()
Return FolderUserControlCore
End Function
End Class
SISBusiness.Module.Win/Editor/FolderUserControl.Designer.vb
Generated
+68
View File
@@ -0,0 +1,68 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class FolderUserControl
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.TextEdit1 = New DevExpress.XtraEditors.TextEdit()
Me.StyleController1 = New DevExpress.XtraEditors.StyleController(Me.components)
Me.SimpleButton1 = New DevExpress.XtraEditors.SimpleButton()
Me.FolderBrowserDialog = New System.Windows.Forms.FolderBrowserDialog()
CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.StyleController1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'TextEdit1
'
Me.TextEdit1.Location = New System.Drawing.Point(0, 0)
Me.TextEdit1.Name = "TextEdit1"
Me.TextEdit1.Size = New System.Drawing.Size(409, 20)
Me.TextEdit1.StyleController = Me.StyleController1
Me.TextEdit1.TabIndex = 0
'
'SimpleButton1
'
Me.SimpleButton1.Location = New System.Drawing.Point(426, 0)
Me.SimpleButton1.Name = "SimpleButton1"
Me.SimpleButton1.Size = New System.Drawing.Size(18, 20)
Me.SimpleButton1.TabIndex = 1
Me.SimpleButton1.Text = "..."
'
'FolderUserControl
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.SimpleButton1)
Me.Controls.Add(Me.TextEdit1)
Me.Name = "FolderUserControl"
Me.Size = New System.Drawing.Size(444, 22)
CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.StyleController1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents TextEdit1 As DevExpress.XtraEditors.TextEdit
Friend WithEvents StyleController1 As DevExpress.XtraEditors.StyleController
Friend WithEvents SimpleButton1 As DevExpress.XtraEditors.SimpleButton
Friend WithEvents FolderBrowserDialog As System.Windows.Forms.FolderBrowserDialog
End Class
SISBusiness.Module.Win/Editor/FolderUserControl.resx
+126
View File
@@ -0,0 +1,126 @@
<?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="StyleController1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="FolderBrowserDialog.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>156, 17</value>
</metadata>
</root>
SISBusiness.Module.Win/Editor/FolderUserControl.vb
+20
View File
@@ -0,0 +1,20 @@
Public Class FolderUserControl
Public Property FolderName
Get
Return TextEdit1.Text
End Get
Set(ByVal value)
TextEdit1.Text = value
End Set
End Property
Private Sub FolderUserControl_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
TextEdit1.Width = Me.Width - SimpleButton1.Width
SimpleButton1.Left = Me.Width - SimpleButton1.Width
End Sub
Private Sub SimpleButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SimpleButton1.Click
Me.FolderBrowserDialog.ShowDialog()
Me.TextEdit1.Text = Me.FolderBrowserDialog.SelectedPath.ToString
End Sub
End Class
SISBusiness.Module.Win/Editor/GanttChartEditor/GanttChartPropertyEditor.vb
+3
View File
@@ -0,0 +1,3 @@
Public Class GanttChartPropertyEditor
End Class
SISBusiness.Module.Win/Editor/GanttChartEditor/GanttChartUserControl.Designer.vb
Generated
+95
View File
@@ -0,0 +1,95 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class GanttChartUserControl
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()
Dim GanttDiagram1 As DevExpress.XtraCharts.GanttDiagram = New DevExpress.XtraCharts.GanttDiagram()
Dim Series1 As DevExpress.XtraCharts.Series = New DevExpress.XtraCharts.Series()
Dim RangeBarSeriesLabel1 As DevExpress.XtraCharts.RangeBarSeriesLabel = New DevExpress.XtraCharts.RangeBarSeriesLabel()
Dim OverlappedGanttSeriesView1 As DevExpress.XtraCharts.OverlappedGanttSeriesView = New DevExpress.XtraCharts.OverlappedGanttSeriesView()
Dim Series2 As DevExpress.XtraCharts.Series = New DevExpress.XtraCharts.Series()
Dim RangeBarSeriesLabel2 As DevExpress.XtraCharts.RangeBarSeriesLabel = New DevExpress.XtraCharts.RangeBarSeriesLabel()
Dim OverlappedGanttSeriesView2 As DevExpress.XtraCharts.OverlappedGanttSeriesView = New DevExpress.XtraCharts.OverlappedGanttSeriesView()
Dim RangeBarSeriesLabel3 As DevExpress.XtraCharts.RangeBarSeriesLabel = New DevExpress.XtraCharts.RangeBarSeriesLabel()
Dim OverlappedGanttSeriesView3 As DevExpress.XtraCharts.OverlappedGanttSeriesView = New DevExpress.XtraCharts.OverlappedGanttSeriesView()
Me.ChartControl = New DevExpress.XtraCharts.ChartControl()
CType(Me.ChartControl, System.ComponentModel.ISupportInitialize).BeginInit()
CType(GanttDiagram1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Series1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(RangeBarSeriesLabel1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(OverlappedGanttSeriesView1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Series2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(RangeBarSeriesLabel2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(OverlappedGanttSeriesView2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(RangeBarSeriesLabel3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(OverlappedGanttSeriesView3, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'ChartControl
'
GanttDiagram1.AxisX.Range.ScrollingRange.SideMarginsEnabled = True
GanttDiagram1.AxisX.Range.SideMarginsEnabled = True
GanttDiagram1.AxisX.VisibleInPanesSerializable = "-1"
GanttDiagram1.AxisY.Range.ScrollingRange.SideMarginsEnabled = True
GanttDiagram1.AxisY.Range.SideMarginsEnabled = True
GanttDiagram1.AxisY.VisibleInPanesSerializable = "-1"
Me.ChartControl.Diagram = GanttDiagram1
Me.ChartControl.Dock = System.Windows.Forms.DockStyle.Fill
Me.ChartControl.Location = New System.Drawing.Point(0, 0)
Me.ChartControl.Name = "ChartControl"
Series1.Label = RangeBarSeriesLabel1
Series1.Name = "Series 1"
Series1.ValueScaleType = DevExpress.XtraCharts.ScaleType.DateTime
Series1.View = OverlappedGanttSeriesView1
Series2.Label = RangeBarSeriesLabel2
Series2.Name = "Series 2"
Series2.ValueScaleType = DevExpress.XtraCharts.ScaleType.DateTime
Series2.View = OverlappedGanttSeriesView2
Me.ChartControl.SeriesSerializable = New DevExpress.XtraCharts.Series() {Series1, Series2}
Me.ChartControl.SeriesTemplate.Label = RangeBarSeriesLabel3
Me.ChartControl.SeriesTemplate.View = OverlappedGanttSeriesView3
Me.ChartControl.Size = New System.Drawing.Size(484, 308)
Me.ChartControl.TabIndex = 0
'
'GanttChartUserControl
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.ChartControl)
Me.Name = "GanttChartUserControl"
Me.Size = New System.Drawing.Size(484, 308)
CType(GanttDiagram1, System.ComponentModel.ISupportInitialize).EndInit()
CType(RangeBarSeriesLabel1, System.ComponentModel.ISupportInitialize).EndInit()
CType(OverlappedGanttSeriesView1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Series1, System.ComponentModel.ISupportInitialize).EndInit()
CType(RangeBarSeriesLabel2, System.ComponentModel.ISupportInitialize).EndInit()
CType(OverlappedGanttSeriesView2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Series2, System.ComponentModel.ISupportInitialize).EndInit()
CType(RangeBarSeriesLabel3, System.ComponentModel.ISupportInitialize).EndInit()
CType(OverlappedGanttSeriesView3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ChartControl, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents ChartControl As DevExpress.XtraCharts.ChartControl
End Class
SISBusiness.Module.Win/Editor/GanttChartEditor/GanttChartUserControl.resx
+120
View File
@@ -0,0 +1,120 @@
<?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>
</root>
SISBusiness.Module.Win/Editor/GanttChartEditor/GanttChartUserControl.vb
+3
View File
@@ -0,0 +1,3 @@
Public Class GanttChartUserControl
End Class
SISBusiness.Module.Win/Editor/GanttEditor/G2anttPropertyEditor.vb
+28
View File
@@ -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 G2anttPropertyEditor
Inherits WinPropertyEditor
Public Sub New(ByVal objectType As Type, ByVal info As IModelMemberViewItem)
MyBase.New(objectType, info)
ControlBindingProperty = "G2anttInfo"
End Sub
Private G2anttUserControlCore As G2anttUserControl = Nothing
Public ReadOnly Property G2anttUserControl() As G2anttUserControl
Get
Return G2anttUserControlCore
End Get
End Property
Protected Overrides Function CreateControlCore() As Object
G2anttUserControlCore = New G2anttUserControl()
Return G2anttUserControlCore
End Function
Protected Overrides Sub OnAllowEditChanged()
MyBase.OnAllowEditChanged()
End Sub
End Class
SISBusiness.Module.Win/Editor/GanttEditor/G2anttUserControl.Designer.vb
Generated
+77
View File
@@ -0,0 +1,77 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class G2anttUserControl
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.Exg2antt = New exontrol.EXG2ANTTLib.exg2antt()
Me.SuspendLayout()
'
'Exg2antt
'
Me.Exg2antt.BackColorAlternate = System.Drawing.Color.Black
Me.Exg2antt.BackColorHeader = System.Drawing.SystemColors.Control
Me.Exg2antt.BackColorHeader32 = -2147483633
Me.Exg2antt.BackColorLevelHeader = System.Drawing.SystemColors.Control
Me.Exg2antt.BackColorLock = System.Drawing.SystemColors.Window
Me.Exg2antt.BackColorSortBar = System.Drawing.SystemColors.ControlDark
Me.Exg2antt.BackColorSortBar32 = -2147483632
Me.Exg2antt.BackColorSortBarCaption = System.Drawing.SystemColors.Control
Me.Exg2antt.BackColorSortBarCaption32 = -2147483633
Me.Exg2antt.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Exg2antt.ColumnsAllowSizing = True
Me.Exg2antt.DefaultItemHeight = 18
Me.Exg2antt.Dock = System.Windows.Forms.DockStyle.Fill
Me.Exg2antt.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines
Me.Exg2antt.FilterBarBackColor = System.Drawing.SystemColors.Control
Me.Exg2antt.FilterBarBackColor32 = -2147483633
Me.Exg2antt.FilterBarForeColor = System.Drawing.SystemColors.WindowText
Me.Exg2antt.ForeColorHeader = System.Drawing.SystemColors.WindowText
Me.Exg2antt.ForeColorLock = System.Drawing.SystemColors.WindowText
Me.Exg2antt.ForeColorSortBar = System.Drawing.SystemColors.ControlDark
Me.Exg2antt.GridLineColor = System.Drawing.SystemColors.ControlDark
Me.Exg2antt.HyperLinkColor = System.Drawing.Color.FromArgb(CType(CType(49, Byte), Integer), CType(CType(101, Byte), Integer), CType(CType(255, Byte), Integer))
Me.Exg2antt.Location = New System.Drawing.Point(0, 0)
Me.Exg2antt.MarkSearchColumn = False
Me.Exg2antt.Name = "Exg2antt"
Me.Exg2antt.PictureLevelHeader = Nothing
Me.Exg2antt.SelBackColor = System.Drawing.SystemColors.Highlight
Me.Exg2antt.SelBackColor32 = -2147483635
Me.Exg2antt.SelForeColor = System.Drawing.SystemColors.HighlightText
Me.Exg2antt.SingleSort = False
Me.Exg2antt.Size = New System.Drawing.Size(371, 307)
Me.Exg2antt.SortBarHeight = 42
Me.Exg2antt.TabIndex = 0
Me.Exg2antt.TooltipCellsColor = System.Drawing.Color.FromArgb(CType(CType(49, Byte), Integer), CType(CType(101, Byte), Integer), CType(CType(255, Byte), Integer))
'
'G2anttUserControl
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.Exg2antt)
Me.Name = "G2anttUserControl"
Me.Size = New System.Drawing.Size(371, 307)
Me.ResumeLayout(False)
End Sub
Friend WithEvents Exg2antt As exontrol.EXG2ANTTLib.exg2antt
End Class
SISBusiness.Module.Win/Editor/GanttEditor/G2anttUserControl.resx
+120
View File
@@ -0,0 +1,120 @@
<?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>
</root>
SISBusiness.Module.Win/Editor/GanttEditor/G2anttUserControl.vb
+23
View File
@@ -0,0 +1,23 @@
Public Class G2anttUserControl
Property _G2anttInfo As String
Public Sub New()
InitializeComponent()
'exontrol.EXG2ANTTLib.exg2antt.RuntimeKey = "kxcp0u|cdqBuku/tgpfu|gtjc|0jw"
End Sub
Public Property G2anttInfo As String
Get
Return _G2anttInfo
End Get
Set(ByVal value As String)
_G2anttInfo = value
End Set
End Property
Private Sub G2anttUserControl_Load(sender As Object, e As EventArgs) Handles Me.Load
End Sub
Private Sub Exg2antt_Load(sender As Object, e As EventArgs) Handles Exg2antt.Load
'exontrol.EXG2ANTTLib.exg2antt.RuntimeKey = "kxcp0u|cdqBuku/tgpfu|gtjc|0jw"
End Sub
End Class
SISBusiness.Module.Win/Editor/IEPropertyEditor.vb
+24
View File
@@ -0,0 +1,24 @@
Imports Microsoft.VisualBasic
Imports System
Imports DevExpress.ExpressApp.Win.Editors
Imports DevExpress.ExpressApp.Model
Imports DevExpress.ExpressApp.Editors
<PropertyEditor(GetType([String]), False)> _
Public Class IEPropertyEditor
Inherits WinPropertyEditor
Public Sub New(ByVal objectType As Type, ByVal info As IModelMemberViewItem)
MyBase.New(objectType, info)
ControlBindingProperty = "URL"
End Sub
Private IEControlCore As IEUserControl = Nothing
Public ReadOnly Property FolderUserControl() As IEUserControl
Get
Return IEControlCore
End Get
End Property
Protected Overrides Function CreateControlCore() As Object
IEControlCore = New IEUserControl
Return IEControlCore
End Function
End Class
SISBusiness.Module.Win/Editor/IEUserControl.Designer.vb
Generated
+54
View File
@@ -0,0 +1,54 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class IEUserControl
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.StyleController1 = New DevExpress.XtraEditors.StyleController(Me.components)
Me.WB = New System.Windows.Forms.WebBrowser()
CType(Me.StyleController1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'WB
'
Me.WB.Dock = System.Windows.Forms.DockStyle.Fill
Me.WB.Location = New System.Drawing.Point(0, 0)
Me.WB.MinimumSize = New System.Drawing.Size(20, 20)
Me.WB.Name = "WB"
Me.WB.Size = New System.Drawing.Size(444, 226)
Me.WB.TabIndex = 0
'
'IEUserControl
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.WB)
Me.Name = "IEUserControl"
Me.Size = New System.Drawing.Size(444, 226)
CType(Me.StyleController1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents StyleController1 As DevExpress.XtraEditors.StyleController
Friend WithEvents WB As System.Windows.Forms.WebBrowser
End Class
SISBusiness.Module.Win/Editor/IEUserControl.resx
+123
View File
@@ -0,0 +1,123 @@
<?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="StyleController1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
</root>
SISBusiness.Module.Win/Editor/IEUserControl.vb
+13
View File
@@ -0,0 +1,13 @@
Public Class IEUserControl
Public Property Url As String
Get
Return WB.Url.ToString
End Get
Set(ByVal value As String)
WB.Navigate(value)
End Set
End Property
Private Sub FolderUserControl_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
End Sub
End Class
SISBusiness.Module.Win/Editor/MemoEditor.vb
+16
View File
@@ -0,0 +1,16 @@
Imports DevExpress.ExpressApp.Win.Editors
Imports Microsoft.VisualBasic
Imports System
Imports DevExpress.ExpressApp.Model
Public Class MemoEditStringPropertyEditor
Inherits StringPropertyEditor
Sub New(objectType As System.Type, model As DevExpress.ExpressApp.Model.IModelMemberViewItem)
MyBase.New(objectType, model)
End Sub
Protected Overrides Function CreateRepositoryItem() As DevExpress.XtraEditors.Repository.RepositoryItem
Return New RepositoryItemLargeStringEdit
End Function
End Class
SISBusiness.Module.Win/Editor/PivotGridLayout.vb
+78
View File
@@ -0,0 +1,78 @@
Imports System
Imports System.ComponentModel
Imports DevExpress.Xpo
Imports DevExpress.Data.Filtering
Imports DevExpress.ExpressApp
Imports DevExpress.Persistent.Base
Imports DevExpress.Persistent.BaseImpl
Imports DevExpress.Persistent.Validation
<DefaultClassOptions(), NavigationItem(False), CreatableItem(False)> _
Public Class PivotGridLayout
Inherits BaseObject
Private _MasterKey As Guid
Private _ViewID As String
Private _LayoutXML As String
Private _UserCreated As User
Private _ObjectCreated As Date
Public Sub New(ByVal session As Session)
MyBase.New(session)
' This constructor is used when an object is loaded from a persistent storage.
' Do not place any code here or place it only when the IsLoading property is false:
' if (!IsLoading){
' It is now OK to place your initialization code here.
' }
' or as an alternative, move your initialization code into the AfterConstruction method.
End Sub
Public Overrides Sub AfterConstruction()
MyBase.AfterConstruction()
' Place here your initialization code.
End Sub
Property MasterKey As Guid
Get
Return _MasterKey
End Get
Set(value As Guid)
SetPropertyValue("MasterKey", _MasterKey, value)
End Set
End Property
<Size(255)> _
Property ViewID As String
Get
Return _ViewID
End Get
Set(value As String)
SetPropertyValue("ViewID", _ViewID, value)
End Set
End Property
<Size(-1)> _
Property LayoutXML As String
Get
Return _LayoutXML
End Get
Set(value As String)
SetPropertyValue("LayoutXML", _LayoutXML, value)
End Set
End Property
<NonCloneable> _
Property UserCreated As User
Get
Return _UserCreated
End Get
Set(value As User)
SetPropertyValue("UserCreated", _UserCreated, value)
End Set
End Property
<NonCloneable> _
Property ObjectCreated As Date
Get
Return _ObjectCreated
End Get
Set(value As Date)
SetPropertyValue("ObjectCreated", _ObjectCreated, value)
End Set
End Property
End Class
SISBusiness.Module.Win/Editor/ProductsDetailEditor.vb
+21
View File
@@ -0,0 +1,21 @@
Imports Microsoft.VisualBasic
Imports System
Imports DevExpress.ExpressApp.Win.Editors
Imports DevExpress.ExpressApp.Model
Public Class ProductsDetailEditor
Inherits WinPropertyEditor
Public Sub New(ByVal objectType As Type, ByVal info As IModelMemberViewItem)
MyBase.New(objectType, info)
ControlBindingProperty = "Products"
End Sub
Private IEControlCore As IEUserControl = Nothing
Public ReadOnly Property FolderUserControl() As IEUserControl
Get
Return IEControlCore
End Get
End Property
Protected Overrides Function CreateControlCore() As Object
IEControlCore = New IEUserControl
Return IEControlCore
End Function
End Class
SISBusiness.Module.Win/Editor/ProductsDetailUserControl.Designer.vb
Generated
+54
View File
@@ -0,0 +1,54 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class ProductsDetailUserControl
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.StyleController1 = New DevExpress.XtraEditors.StyleController(Me.components)
Me.labelPRoductNumber = New DevExpress.XtraEditors.LabelControl()
CType(Me.StyleController1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'labelPRoductNumber
'
Me.labelPRoductNumber.Location = New System.Drawing.Point(0, 0)
Me.labelPRoductNumber.Name = "labelPRoductNumber"
Me.labelPRoductNumber.Size = New System.Drawing.Size(102, 13)
Me.labelPRoductNumber.TabIndex = 0
Me.labelPRoductNumber.Text = "<NINCS BEÁLLÍTVA>"
'
'ProductsDetailUserControl
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.labelPRoductNumber)
Me.Name = "ProductsDetailUserControl"
Me.Size = New System.Drawing.Size(444, 226)
CType(Me.StyleController1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents StyleController1 As DevExpress.XtraEditors.StyleController
Friend WithEvents labelPRoductNumber As DevExpress.XtraEditors.LabelControl
End Class
SISBusiness.Module.Win/Editor/ProductsDetailUserControl.resx
+123
View File
@@ -0,0 +1,123 @@
<?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="StyleController1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
</root>
SISBusiness.Module.Win/Editor/ProductsDetailUserControl.vb
+18
View File
@@ -0,0 +1,18 @@
Imports SISBusiness.Module
Imports DevExpress.Xpo
Public Class ProductsDetailUserControl
Private _Products As Products
Private _uow As UnitOfWork
Public Property Products As SISBusiness.Module.Products
Get
Return _Products
End Get
Set(value As SISBusiness.Module.Products)
End Set
End Property
Private Sub FolderUserControl_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
End Sub
End Class
SISBusiness.Module.Win/Editor/RichTextEditor/RichEditHandler.vb
+159
View File
@@ -0,0 +1,159 @@
Option Strict On
Option Explicit On
Imports System.Text
''' <summary>
''' Helper class to return the cleaned rtf, especcially the merge fields
''' to be clean and replaced by their values. Keep in mind:
''' 1. NO PIPES (|) allowed in the merge field(they will be removed) !!!
''' 2. ALL SPACES will be removed
''' </summary>
Public Class RTFMergeFieldCleaner
Private _ArrayOfFields(,) As String
''' <summary>
''' Returns array of uncleaned (0st dimension 1) and cleaned (1st dimension 1) strings
''' </summary>
Public ReadOnly Property ArrayOfFields() As String(,)
Get
Return _ArrayOfFields
End Get
End Property
''' <summary>
''' Returns the amount of millisecconds it took to clean the page from strange rtf tags
''' </summary>
Public ReadOnly Property MilliseccondsItTookToProcess() As Integer
Get
Return processedinmillisecconds
End Get
End Property
'onderstaande is essentieel om de volgende instantie van een merge field te vinden
'houdt enkel bij waar de search was in het document
Private bcounter As Integer
'om de waarde om te slaan
Dim processedinmillisecconds As Integer
''' <summary>
''' Input string or stringbuilder. Returns cleaned(everything within
''' the tags is cleaned from rtf codes)string or stringbuilder
''' On failure or no start and end tag combination it will return an
''' empty string or stringbuilder or a mangled one :-)
''' </summary>
Public Function CleanDocument(ByVal rtfSring As String, Optional ByVal detectStartChar As Char = CChar("["), Optional ByVal detectEndChar As Char = CChar("]")) As String
Dim time As Integer = Date.Now.TimeOfDay.Milliseconds
Dim sb As New StringBuilder(rtfSring)
Dim sbclean As New StringBuilder(sb.ToString)
Dim tempstr(1) As String
Dim stepper As Integer = 0
Do
tempstr = ReturnNextRtfString(sb, detectStartChar, detectEndChar, True)
'als de return leeg is exit, dit implicdeert dat er geen start tag was gevonden
If tempstr(0) Is Nothing Then Exit Do
sbclean.Replace(tempstr(0), tempstr(1))
'array opbouwen met de velden evt groter maken
ReDim Preserve _ArrayOfFields(1, stepper)
_ArrayOfFields(0, stepper) = tempstr(0)
_ArrayOfFields(1, stepper) = tempstr(1)
stepper += 1
Loop
processedinmillisecconds = Date.Now.TimeOfDay.Milliseconds - time
Return sbclean.ToString
End Function
' overload van de vorige alleen nu met een string builder
Public Function CleanDocument(ByRef sb As StringBuilder, Optional ByVal detectStartChar As Char = CChar("["), Optional ByVal detectEndChar As Char = CChar("]")) As StringBuilder
Dim time As Integer = Date.Now.TimeOfDay.Milliseconds
Dim sbclean As New StringBuilder(sb.ToString)
Dim stepper As Integer = 0
Dim tempstr(1) As String
Do
tempstr = ReturnNextRtfString(sb, detectStartChar, detectEndChar, True)
If tempstr(0) Is Nothing Then Exit Do
sbclean.Replace(tempstr(0), tempstr(1))
ReDim Preserve _ArrayOfFields(1, stepper)
_ArrayOfFields(0, stepper) = tempstr(0)
_ArrayOfFields(1, stepper) = tempstr(1)
stepper += 1
Loop
processedinmillisecconds = Date.Now.TimeOfDay.Milliseconds - time
Return sbclean
End Function
''' <summary>
''' Returns the next rtf string with the start and end tags.
''' optional define other start and end tags, and defin if the sting gets cleaned
''' </summary>
Private Function ReturnNextRtfString(ByRef sb As StringBuilder, ByVal startchar As Char, ByVal endchar As Char, Optional ByVal autoclean As Boolean = False) As String()
Dim startcounter, endcounter As Integer
Dim acounter As Integer
Dim returnstring(1) As String
' loop door de hele stringbuilder vanaf het startpunt
For acounter = bcounter To sb.Length - 1
'zoek begin
If sb.Chars(acounter) = startchar Then
startcounter = acounter
End If
'zoek einde
If sb.Chars(acounter) = endchar Then
endcounter = acounter + 1
'set nieuwe start voor de volgende aanroep van de functie
bcounter = acounter + 1
End If
'retourneer de substring
If startcounter > 0 AndAlso endcounter > startcounter Then
'als auto clean dan meteen schoonmaken
If autoclean = True Then
returnstring(1) = CleanRtfString(sb.ToString.Substring(startcounter, endcounter - startcounter))
returnstring(0) = sb.ToString.Substring(startcounter, endcounter - startcounter)
Return returnstring
Else
returnstring(0) = sb.ToString.Substring(startcounter, endcounter - startcounter)
Return returnstring
End If
Exit Function
End If
Next
Return returnstring
End Function
''' <summary>
''' Removes anny rtf codes between the tags leaving the strue string as return
''' allso it removes spaces(32) and pipes(|)
''' internally it replaces everything it does not know by pipes thats why :-)
''' </summary>
''' <remarks></remarks>
Private Function CleanRtfString(ByRef rtfstring As String) As String
Dim sb As New StringBuilder(rtfstring)
Dim cleansb As New StringBuilder
Dim ccounter As Integer
For ccounter = 0 To sb.Length
'verwijderen van dit soort strings \af0\afs20 en { }
'als geen leesteken onder de 32 ascii nummer dan weg
If Asc(sb.Chars(ccounter)) > 32 AndAlso sb.Chars(ccounter) <> "|" AndAlso sb.Chars(ccounter) <> "\" AndAlso sb.Chars(ccounter) <> "{" AndAlso sb.Chars(ccounter) <> "}" Then
cleansb.Append(sb.Chars(ccounter))
End If
'als we er overheen zijn dan pleite!
If ccounter + 1 >= sb.Length Then Exit For
' ff al het andre wordt genegeerd en omgezet in een pipe(|)
If sb.Chars(ccounter + 1) = "\" OrElse sb.Chars(ccounter + 1) = "{" OrElse sb.Chars(ccounter + 1) = "}" Then
For dcounter As Integer = ccounter + 1 To sb.Length - 1
If sb.Chars(dcounter) = CChar(" ") Then Exit For
sb.Chars(dcounter) = CChar("|")
Next
End If
Next
'alle pipes weg en retourneren
cleansb.Replace("|", "")
Return cleansb.ToString
End Function
End Class
SISBusiness.Module.Win/Editor/RichTextEditor/RichEditPropertyEditor.vb
+63
View File
@@ -0,0 +1,63 @@
' Developer Express Code Central Example:
' How to create a PropertyEditor based on the XtraRichEdit control
'
' Take special note that this editor is intended to be used for a simple and most
' common scenario when only one text property in a Detail View is edited with the
' help of the XtraRichEdit control. Other scenarios are not supported in this
' example and are required to be implemented manually. For example, if there are
' more than one property, edited with this editor in a Detail View, then there may
' be problems with merging in ribbons. See the issue for more detailed
' information. See Also: Implement Custom Property Editors How to: Implement a
' Property Editor for Windows Forms Applications XtraRichEdit Home
'
' You can find sample updates and versions for different programming languages here:
' http://www.devexpress.com/example=E1509
Imports Microsoft.VisualBasic
Imports System
Imports DevExpress.ExpressApp.Win.Editors
Imports DevExpress.ExpressApp.Model
Imports DevExpress.Xpo
Imports DevExpress.ExpressApp
Imports DevExpress.ExpressApp.Editors
<PropertyEditor(GetType([String]), False)> _
Public Class RichEditPropertyEditor
Inherits WinPropertyEditor
Public Sub New(ByVal objectType As Type, ByVal info As IModelMemberViewItem)
MyBase.New(objectType, info)
ControlBindingProperty = "RtfText"
End Sub
Private richEditUserControlCore As RichEditUserControl = Nothing
Public ReadOnly Property RichEditUserControl() As RichEditUserControl
Get
Return richEditUserControlCore
End Get
End Property
Protected Overrides Function CreateControlCore() As Object
richEditUserControlCore = New RichEditUserControl()
AddHandler richEditUserControlCore.RichEditControl.RtfTextChanged, AddressOf RichEditControl_RtfTextChanged
UpdateReadOnly()
Return richEditUserControlCore
End Function
Protected Overrides Sub OnAllowEditChanged()
MyBase.OnAllowEditChanged()
UpdateReadOnly()
End Sub
Private Sub UpdateReadOnly()
'Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
'Dim _Customers_Collection As New XPCollection(Of Customers)(_ocur.Session)
'If RichEditUserControl IsNot Nothing AndAlso RichEditUserControl.RichEditControl IsNot Nothing Then
' RichEditUserControl.RichEditControl.ReadOnly = Not AllowEdit
' 'RichEditUserControl.RichEditControl.Options.MailMerge.DataSource = _Customers_Collection
'End If
End Sub
Private Sub RichEditControl_RtfTextChanged(sender As Object, e As EventArgs)
'Me.PropertyValue = Me.RichEditUserControl.RichEditControl.RtfText
OnControlValueChanged()
End Sub
End Class
SISBusiness.Module.Win/Editor/RichTextEditor/RichEditUserControl.Designer.vb
Generated
+1774
View File
File diff suppressed because it is too large Load Diff
SISBusiness.Module.Win/Editor/RichTextEditor/RichEditUserControl.resx
+6203
View File
File diff suppressed because it is too large Load Diff
SISBusiness.Module.Win/Editor/RichTextEditor/RichEditUserControl.vb
+81
View File
@@ -0,0 +1,81 @@
' Developer Express Code Central Example:
' How to create a PropertyEditor based on the XtraRichEdit control
'
' Take special note that this editor is intended to be used for a simple and most
' common scenario when only one text property in a Detail View is edited with the
' help of the XtraRichEdit control. Other scenarios are not supported in this
' example and are required to be implemented manually. For example, if there are
' more than one property, edited with this editor in a Detail View, then there may
' be problems with merging in ribbons. See the issue for more detailed
' information. See Also: Implement Custom Property Editors How to: Implement a
' Property Editor for Windows Forms Applications XtraRichEdit Home
'
' You can find sample updates and versions for different programming languages here:
' http://www.devexpress.com/example=E1509
Imports Microsoft.VisualBasic
Imports System
Imports DevExpress.XtraEditors
Imports DevExpress.XtraRichEdit
Imports DevExpress.XtraBars.Ribbon
Imports DevExpress.XtraBars
Partial Public Class RichEditUserControl
Inherits XtraUserControl
Private _EnterMoveNextControl As Boolean
Public Sub New()
InitializeComponent()
Me.richEditControl_Renamed.Document.Sections(0).Page.PaperKind = System.Drawing.Printing.PaperKind.A4
End Sub
Public Property EnterMoveNextControl As Boolean
Get
Return _EnterMoveNextControl
End Get
Set(value As Boolean)
_EnterMoveNextControl = value
End Set
End Property
Public ReadOnly Property RichEditControl() As RichEditControl
Get
Return (Me.richEditControl_Renamed)
End Get
End Property
Public ReadOnly Property RibbonControl() As RibbonControl
Get
Return Me.ribbonControl1
End Get
End Property
Public Property RtfText() As String
Get
If richEditControl_Renamed IsNot Nothing Then
Return richEditControl_Renamed.RtfText
End If
Return String.Empty
End Get
Set(ByVal value As String)
If richEditControl_Renamed IsNot Nothing Then
richEditControl_Renamed.RtfText = value
End If
End Set
End Property
Public Property MailingDataSource As Object
Get
Return Me.richEditControl_Renamed.Options.MailMerge.DataSource
End Get
Set(value As Object)
Me.richEditControl_Renamed.Options.MailMerge.DataSource = value
End Set
End Property
Public ReadOnly Property MailingInsertItemLink As DevExpress.XtraBars.PopupMenu
Get
Dim _RichEditUserControl As RichEditUserControl = TryCast(Me.RichEditControl.GetContainerControl, RichEditUserControl)
Dim _InsertMergeFieldItem As DevExpress.XtraRichEdit.UI.InsertMergeFieldItem = TryCast(_RichEditUserControl.InsertMergeFieldItem1, DevExpress.XtraRichEdit.UI.InsertMergeFieldItem)
Dim _PopupMenu As PopupMenu = TryCast(_InsertMergeFieldItem.DropDownControl, PopupMenu)
Return _PopupMenu
End Get
End Property
End Class
SISBusiness.Module.Win/Editor/RichTextEditor/RichTextView.vb
+25
View File
@@ -0,0 +1,25 @@
Imports System
Imports System.ComponentModel
Imports DevExpress.Xpo
Imports DevExpress.Data.Filtering
Imports DevExpress.ExpressApp
Imports DevExpress.Persistent.Base
Imports DevExpress.Persistent.BaseImpl
Imports DevExpress.Persistent.Validation
<DefaultClassOptions(), NavigationItem(False), CreatableItem(False), NonPersistent()> _
Public Class RichTextView
Inherits BaseObject
Public Sub New(ByVal session As Session)
MyBase.New(session)
End Sub
Public Overrides Sub AfterConstruction()
MyBase.AfterConstruction()
End Sub
<Size(-1)> Property RichText As String
Property ObjectType As Type
Property ObjectGUID As Guid
End Class
SISBusiness.Module.Win/Editor/RichTextEditor/RichTextViewVC.Designer.vb
Generated
+81
View File
@@ -0,0 +1,81 @@
Partial Class RichTextViewVC
<System.Diagnostics.DebuggerNonUserCode()> _
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
MyClass.New()
'Required for Windows.Forms Class Composition Designer support
Container.Add(Me)
End Sub
'Component overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Component Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Component Designer
'It can be modified using the Component Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.aViewRichText = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aViewRichText_Save = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aViewRichText_SaveAndClose = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
'
'aViewRichText
'
Me.aViewRichText.Caption = "aView Rich Text"
Me.aViewRichText.ConfirmationMessage = Nothing
Me.aViewRichText.Id = "aViewRichText"
Me.aViewRichText.ImageName = Nothing
Me.aViewRichText.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
Me.aViewRichText.Shortcut = Nothing
Me.aViewRichText.Tag = Nothing
Me.aViewRichText.TargetObjectsCriteria = Nothing
Me.aViewRichText.TargetViewId = Nothing
Me.aViewRichText.ToolTip = Nothing
Me.aViewRichText.TypeOfView = Nothing
'
'aViewRichText_Save
'
Me.aViewRichText_Save.Caption = "aViewRichText_Save"
Me.aViewRichText_Save.ConfirmationMessage = Nothing
Me.aViewRichText_Save.Id = "aViewRichText_Save"
Me.aViewRichText_Save.ImageName = Nothing
Me.aViewRichText_Save.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
Me.aViewRichText_Save.Shortcut = Nothing
Me.aViewRichText_Save.Tag = Nothing
Me.aViewRichText_Save.TargetObjectsCriteria = Nothing
Me.aViewRichText_Save.TargetViewId = Nothing
Me.aViewRichText_Save.ToolTip = Nothing
Me.aViewRichText_Save.TypeOfView = Nothing
'
'aViewRichText_SaveAndClose
'
Me.aViewRichText_SaveAndClose.Caption = "aViewRichText_SaveAndClose"
Me.aViewRichText_SaveAndClose.ConfirmationMessage = Nothing
Me.aViewRichText_SaveAndClose.Id = "aViewRichText_SaveAndClose"
Me.aViewRichText_SaveAndClose.ImageName = Nothing
Me.aViewRichText_SaveAndClose.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
Me.aViewRichText_SaveAndClose.Shortcut = Nothing
Me.aViewRichText_SaveAndClose.Tag = Nothing
Me.aViewRichText_SaveAndClose.TargetObjectsCriteria = Nothing
Me.aViewRichText_SaveAndClose.TargetViewId = Nothing
Me.aViewRichText_SaveAndClose.ToolTip = Nothing
Me.aViewRichText_SaveAndClose.TypeOfView = Nothing
End Sub
Friend WithEvents aViewRichText As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aViewRichText_Save As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aViewRichText_SaveAndClose As DevExpress.ExpressApp.Actions.SimpleAction
End Class
SISBusiness.Module.Win/Editor/RichTextEditor/RichTextViewVC.resx
+132
View File
@@ -0,0 +1,132 @@
<?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="aViewRichText.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="aViewRichText_Save.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>147, 17</value>
</metadata>
<metadata name="aViewRichText_SaveAndClose.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>307, 17</value>
</metadata>
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
</root>
SISBusiness.Module.Win/Editor/RichTextEditor/RichTextViewVC.vb
+76
View File
@@ -0,0 +1,76 @@
Imports System
Imports System.ComponentModel
Imports System.Collections.Generic
Imports System.Diagnostics
Imports System.Text
Imports DevExpress.ExpressApp
Imports DevExpress.ExpressApp.Actions
Imports DevExpress.Persistent.Base
Imports DevExpress.ExpressApp.Editors
Imports DevExpress.Data.Filtering
Imports DevExpress.ExpressApp.Utils
Public Class RichTextViewVC
Inherits DevExpress.ExpressApp.ViewController
Public Sub New()
MyBase.New()
InitializeComponent()
RegisterActions(components)
End Sub
Protected Overrides Sub OnActivated()
MyBase.OnActivated()
Frame.GetController(Of RichTextViewVC).aViewRichText.Active.SetItemValue("", False)
Frame.GetController(Of RichTextViewVC).aViewRichText_Save.Active.SetItemValue("", False)
Frame.GetController(Of RichTextViewVC).aViewRichText_SaveAndClose.Active.SetItemValue("", False)
If View.Id = "ContractTemplate_DetailView" Then
Frame.GetController(Of RichTextViewVC).aViewRichText.Active.SetItemValue("", True)
End If
If View.Id = "RichTextView_DetailView" Then
Frame.GetController(Of RichTextViewVC).aViewRichText_Save.Active.SetItemValue("", True)
Frame.GetController(Of RichTextViewVC).aViewRichText_SaveAndClose.Active.SetItemValue("", True)
End If
End Sub
Private Sub aViewRichText_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewRichText.Execute
Try
If View.Id = "ContractTemplate_DetailView" Then
Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
Dim _ContractTemplate As ContractTemplate = TryCast(View.SelectedObjects(0), ContractTemplate)
If _ContractTemplate Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
Dim _RichTextView As RichTextView = _ocur.CreateObject(Of RichTextView)()
_RichTextView.RichText = _ContractTemplate.DocumentBody
_RichTextView.ObjectGUID = _ContractTemplate.Oid
e.ShowViewParameters.CreatedView = Application.CreateDetailView(_ocur, "RichTextView_DetailView", False, _RichTextView)
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain")))
End Try
End Sub
Private Sub aViewRichText_Save_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewRichText_Save.Execute
Try
Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
Dim _RichTextView As RichTextView = TryCast(View.SelectedObjects(0), RichTextView)
If _RichTextView Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt")
Dim _ContractTemplate As ContractTemplate = _ocur.FindObject(Of ContractTemplate)(CriteriaOperator.Parse("Oid=?", _RichTextView.ObjectGUID))
If _ContractTemplate IsNot Nothing Then
_ContractTemplate.DocumentBody = _RichTextView.RichText
If Not _ocur.IsNewObject(_ContractTemplate) Then _ocur.CommitChanges()
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain")))
End Try
End Sub
Private Sub aViewRichText_SaveAndClose_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewRichText_SaveAndClose.Execute
Frame.GetController(Of RichTextViewVC).aViewRichText_Save.DoExecute()
View.Close()
End Sub
End Class
SISBusiness.Module.Win/Editor/SpreadEditor/SpreadFactoryService.vb
+84
View File
@@ -0,0 +1,84 @@
Imports DevExpress.XtraSpreadsheet.Services
Imports DevExpress.XtraSpreadsheet
Imports DevExpress.XtraSpreadsheet.Commands
Imports DevExpress.ExpressApp
Public Class CustomCommandFactoryServise
Inherits SpreadsheetCommandFactoryServiceWrapper
Private Property Control() As SpreadsheetControl
Get
Return m_Control
End Get
Set(value As SpreadsheetControl)
m_Control = value
End Set
End Property
Private Property View As DevExpress.ExpressApp.View
Get
Return m_View
End Get
Set(value As DevExpress.ExpressApp.View)
m_View = value
End Set
End Property
Private m_Control As SpreadsheetControl
Private m_View As DevExpress.ExpressApp.View
Public Sub New(service As ISpreadsheetCommandFactoryService, _control As SpreadsheetControl, _view As DevExpress.ExpressApp.View)
MyBase.New(service)
Control = _control
View = _view
End Sub
Public Overrides Function CreateCommand(id As SpreadsheetCommandId) As SpreadsheetCommand
Dim command As SpreadsheetCommand = MyBase.CreateCommand(id)
If id = SpreadsheetCommandId.FileSave Then
Return New SaveCommand(Control, View)
End If
Return command
End Function
End Class
Public Class SaveCommand
Inherits SaveDocumentCommand
Private m_View As DevExpress.ExpressApp.View
Private m_Control As SpreadsheetControl
Private Property SpreadControl() As SpreadsheetControl
Get
Return m_Control
End Get
Set(value As SpreadsheetControl)
m_Control = value
End Set
End Property
Private Property View As DevExpress.ExpressApp.View
Get
Return m_View
End Get
Set(value As DevExpress.ExpressApp.View)
m_View = value
End Set
End Property
Public Sub New(control As ISpreadsheetControl, _view As DevExpress.ExpressApp.View)
MyBase.New(control)
SpreadControl = control
View = _view
End Sub
Public Overrides Sub Execute()
Dim _OpenSpreadDocument_Popup = TryCast(View.SelectedObjects(0), OpenSpreadDocument_Popup)
Dim _BusinessDirectory As BusinessDirectory = _OpenSpreadDocument_Popup.BusinessDirectory
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _FilePath As String = System.IO.Path.Combine(System.IO.Path.GetTempPath(), _OpenSpreadDocument_Popup.BusinessDirectory.FileData.FileName)
Dim _Stream As System.IO.Stream = New System.IO.FileStream(_FilePath, System.IO.FileMode.Create)
SpreadControl.Document.SaveDocument(_Stream, DevExpress.Spreadsheet.DocumentFormat.OpenXml)
_Stream.Close()
Dim _StreamFile = New System.IO.FileStream(_FilePath, System.IO.FileMode.Open, System.IO.FileAccess.Read)
Dim _StreamReader As New System.IO.StreamReader(_StreamFile)
_StreamFile.Seek(0, System.IO.SeekOrigin.Begin)
_OpenSpreadDocument_Popup.BusinessDirectory.FileData.LoadFromStream(_OpenSpreadDocument_Popup.BusinessDirectory.FileData.FileName, _StreamFile)
_ocur.CommitChanges()
End Sub
End Class
SISBusiness.Module.Win/Editor/SpreadEditor/SpreadPropertyEditor.vb
+32
View File
@@ -0,0 +1,32 @@
Imports Microsoft.VisualBasic
Imports System
Imports DevExpress.ExpressApp.Win.Editors
Imports DevExpress.ExpressApp.Model
Imports DevExpress.ExpressApp.Editors
<PropertyEditor(GetType([String]), False)> _
Public Class SpreadPropertyEditor
Inherits WinPropertyEditor
Public Sub New(ByVal objectType As Type, ByVal info As IModelMemberViewItem)
MyBase.New(objectType, info)
ControlBindingProperty = "SpreadInfo"
End Sub
Private SpreadUserControlCore As SpreadUserControl = Nothing
Public ReadOnly Property SpreadUserControl() As SpreadUserControl
Get
Return SpreadUserControlCore
End Get
End Property
Protected Overrides Function CreateControlCore() As Object
SpreadUserControlCore = New SpreadUserControl()
AddHandler SpreadUserControlCore.SpreadsheetControl1.CellValueChanged, AddressOf SpreadSheetControl_CellValueChanged
Return SpreadUserControlCore
End Function
Protected Overrides Sub OnAllowEditChanged()
MyBase.OnAllowEditChanged()
End Sub
Private Sub SpreadSheetControl_CellValueChanged(sender As Object, e As DevExpress.XtraSpreadsheet.SpreadsheetCellEventArgs)
OnControlValueChanged()
End Sub
End Class
SISBusiness.Module.Win/Editor/SpreadEditor/SpreadSimplePropertyEditor.vb
+34
View File
@@ -0,0 +1,34 @@
Imports Microsoft.VisualBasic
Imports System
Imports DevExpress.ExpressApp.Win.Editors
Imports DevExpress.ExpressApp.Model
Imports DevExpress.ExpressApp.Editors
<PropertyEditor(GetType([String]), False)> _
Public Class SpreadSimplePropertyEditor
Inherits WinPropertyEditor
Public Sub New(ByVal objectType As Type, ByVal info As IModelMemberViewItem)
MyBase.New(objectType, info)
ControlBindingProperty = "SpreadInfo"
End Sub
Private SpreadSimpleUserControlCore As SpreadSimpleUserControl = Nothing
Public ReadOnly Property SpreadSimpleUserControl() As SpreadSimpleUserControl
Get
Return SpreadSimpleUserControlCore
End Get
End Property
Protected Overrides Function CreateControlCore() As Object
SpreadSimpleUserControlCore = New SpreadSimpleUserControl()
AddHandler SpreadSimpleUserControlCore.SpreadsheetControl1.CellValueChanged, AddressOf SpreadSheetControl_CellValueChanged
Return SpreadSimpleUserControlCore
End Function
Protected Overrides Sub OnAllowEditChanged()
MyBase.OnAllowEditChanged()
End Sub
Private Sub SpreadSheetControl_CellValueChanged(sender As Object, e As DevExpress.XtraSpreadsheet.SpreadsheetCellEventArgs)
OnControlValueChanged()
End Sub
End Class
SISBusiness.Module.Win/Editor/SpreadEditor/SpreadSimpleUserControl.Designer.vb
Generated
+110
View File
@@ -0,0 +1,110 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class SpreadSimpleUserControl
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()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(SpreadSimpleUserControl))
Me.SpreadsheetControl1 = New DevExpress.XtraSpreadsheet.SpreadsheetControl()
Me.SpreadsheetFormulaBarControl1 = New DevExpress.XtraSpreadsheet.SpreadsheetFormulaBarControl()
Me.SpreadsheetNameBoxControl1 = New DevExpress.XtraSpreadsheet.SpreadsheetNameBoxControl()
Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl()
Me.SplitterControl1 = New DevExpress.XtraEditors.SplitterControl()
CType(Me.SpreadsheetNameBoxControl1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerControl1.SuspendLayout()
Me.SuspendLayout()
'
'SpreadsheetControl1
'
Me.SpreadsheetControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.SpreadsheetControl1.Location = New System.Drawing.Point(0, 25)
Me.SpreadsheetControl1.Name = "SpreadsheetControl1"
Me.SpreadsheetControl1.Options.Export.Csv.Encoding = CType(resources.GetObject("SpreadsheetControl1.Options.Export.Csv.Encoding"), System.Text.Encoding)
Me.SpreadsheetControl1.Options.Export.Txt.Encoding = CType(resources.GetObject("SpreadsheetControl1.Options.Export.Txt.Encoding"), System.Text.Encoding)
Me.SpreadsheetControl1.Size = New System.Drawing.Size(467, 385)
Me.SpreadsheetControl1.TabIndex = 0
Me.SpreadsheetControl1.Text = "SpreadsheetControl1"
'
'SpreadsheetFormulaBarControl1
'
Me.SpreadsheetFormulaBarControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.SpreadsheetFormulaBarControl1.Location = New System.Drawing.Point(0, 0)
Me.SpreadsheetFormulaBarControl1.MinimumSize = New System.Drawing.Size(0, 20)
Me.SpreadsheetFormulaBarControl1.Name = "SpreadsheetFormulaBarControl1"
Me.SpreadsheetFormulaBarControl1.Size = New System.Drawing.Size(317, 20)
Me.SpreadsheetFormulaBarControl1.SpreadsheetControl = Me.SpreadsheetControl1
Me.SpreadsheetFormulaBarControl1.TabIndex = 0
'
'SpreadsheetNameBoxControl1
'
Me.SpreadsheetNameBoxControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.SpreadsheetNameBoxControl1.EditValue = "A1"
Me.SpreadsheetNameBoxControl1.Location = New System.Drawing.Point(0, 0)
Me.SpreadsheetNameBoxControl1.Name = "SpreadsheetNameBoxControl1"
Me.SpreadsheetNameBoxControl1.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
Me.SpreadsheetNameBoxControl1.Size = New System.Drawing.Size(145, 20)
Me.SpreadsheetNameBoxControl1.SpreadsheetControl = Me.SpreadsheetControl1
Me.SpreadsheetNameBoxControl1.TabIndex = 0
'
'SplitContainerControl1
'
Me.SplitContainerControl1.Dock = System.Windows.Forms.DockStyle.Top
Me.SplitContainerControl1.Location = New System.Drawing.Point(0, 0)
Me.SplitContainerControl1.Name = "SplitContainerControl1"
Me.SplitContainerControl1.Panel1.Controls.Add(Me.SpreadsheetNameBoxControl1)
Me.SplitContainerControl1.Panel2.Controls.Add(Me.SpreadsheetFormulaBarControl1)
Me.SplitContainerControl1.Size = New System.Drawing.Size(467, 20)
Me.SplitContainerControl1.SplitterPosition = 145
Me.SplitContainerControl1.TabIndex = 2
'
'SplitterControl1
'
Me.SplitterControl1.Dock = System.Windows.Forms.DockStyle.Top
Me.SplitterControl1.Location = New System.Drawing.Point(0, 20)
Me.SplitterControl1.MinSize = 20
Me.SplitterControl1.Name = "SplitterControl1"
Me.SplitterControl1.Size = New System.Drawing.Size(467, 5)
Me.SplitterControl1.TabIndex = 1
Me.SplitterControl1.TabStop = False
'
'SpreadSimpleUserControl
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.SpreadsheetControl1)
Me.Controls.Add(Me.SplitterControl1)
Me.Controls.Add(Me.SplitContainerControl1)
Me.Name = "SpreadSimpleUserControl"
Me.Size = New System.Drawing.Size(467, 410)
CType(Me.SpreadsheetNameBoxControl1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerControl1.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Friend WithEvents SpreadsheetControl1 As DevExpress.XtraSpreadsheet.SpreadsheetControl
Friend WithEvents SpreadsheetFormulaBarControl1 As DevExpress.XtraSpreadsheet.SpreadsheetFormulaBarControl
Friend WithEvents SpreadsheetNameBoxControl1 As DevExpress.XtraSpreadsheet.SpreadsheetNameBoxControl
Friend WithEvents SplitContainerControl1 As DevExpress.XtraEditors.SplitContainerControl
Friend WithEvents SplitterControl1 As DevExpress.XtraEditors.SplitterControl
End Class
SISBusiness.Module.Win/Editor/SpreadEditor/SpreadSimpleUserControl.resx
+152
View File
@@ -0,0 +1,152 @@
<?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>
<data name="SpreadsheetControl1.Options.Export.Csv.Encoding" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAEAQAAABxTeXN0ZW0uVGV4dC5Db2RlUGFnZUVuY29kaW5nCAAAAAxtX2lz
UmVhZE9ubHkPZW5jb2RlckZhbGxiYWNrD2RlY29kZXJGYWxsYmFjawptX2NvZGVQYWdlCGRhdGFJdGVt
E0VuY29kaW5nK21fY29kZVBhZ2URRW5jb2RpbmcrZGF0YUl0ZW0LbWF4Q2hhclNpemUAAwMAAgACAAEq
U3lzdGVtLlRleHQuSW50ZXJuYWxFbmNvZGVyQmVzdEZpdEZhbGxiYWNrKlN5c3RlbS5UZXh0LkludGVy
bmFsRGVjb2RlckJlc3RGaXRGYWxsYmFjawgICAEJAgAAAAkDAAAA4gQAAAriBAAACgEAAAAEAgAAACpT
eXN0ZW0uVGV4dC5JbnRlcm5hbEVuY29kZXJCZXN0Rml0RmFsbGJhY2sEAAAACGVuY29kaW5nDGFycmF5
QmVzdEZpdBtiSXNNaWNyb3NvZnRCZXN0Rml0RmFsbGJhY2srRW5jb2RlckZhbGxiYWNrK2JJc01pY3Jv
c29mdEJlc3RGaXRGYWxsYmFjawMHAAAcU3lzdGVtLlRleHQuQ29kZVBhZ2VFbmNvZGluZwMBAQkBAAAA
CgEBBAMAAAAqU3lzdGVtLlRleHQuSW50ZXJuYWxEZWNvZGVyQmVzdEZpdEZhbGxiYWNrBQAAAAhlbmNv
ZGluZwxhcnJheUJlc3RGaXQMY1JlcGxhY2VtZW50G2JJc01pY3Jvc29mdEJlc3RGaXRGYWxsYmFjaytE
ZWNvZGVyRmFsbGJhY2srYklzTWljcm9zb2Z0QmVzdEZpdEZhbGxiYWNrAwcAAAAcU3lzdGVtLlRleHQu
Q29kZVBhZ2VFbmNvZGluZwMDAQEJAQAAAAo/AQEL
</value>
</data>
<data name="SpreadsheetControl1.Options.Export.Txt.Encoding" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAEAQAAABxTeXN0ZW0uVGV4dC5Db2RlUGFnZUVuY29kaW5nCAAAAAxtX2lz
UmVhZE9ubHkPZW5jb2RlckZhbGxiYWNrD2RlY29kZXJGYWxsYmFjawptX2NvZGVQYWdlCGRhdGFJdGVt
E0VuY29kaW5nK21fY29kZVBhZ2URRW5jb2RpbmcrZGF0YUl0ZW0LbWF4Q2hhclNpemUAAwMAAgACAAEq
U3lzdGVtLlRleHQuSW50ZXJuYWxFbmNvZGVyQmVzdEZpdEZhbGxiYWNrKlN5c3RlbS5UZXh0LkludGVy
bmFsRGVjb2RlckJlc3RGaXRGYWxsYmFjawgICAEJAgAAAAkDAAAA4gQAAAriBAAACgEAAAAEAgAAACpT
eXN0ZW0uVGV4dC5JbnRlcm5hbEVuY29kZXJCZXN0Rml0RmFsbGJhY2sEAAAACGVuY29kaW5nDGFycmF5
QmVzdEZpdBtiSXNNaWNyb3NvZnRCZXN0Rml0RmFsbGJhY2srRW5jb2RlckZhbGxiYWNrK2JJc01pY3Jv
c29mdEJlc3RGaXRGYWxsYmFjawMHAAAcU3lzdGVtLlRleHQuQ29kZVBhZ2VFbmNvZGluZwMBAQkBAAAA
CgEBBAMAAAAqU3lzdGVtLlRleHQuSW50ZXJuYWxEZWNvZGVyQmVzdEZpdEZhbGxiYWNrBQAAAAhlbmNv
ZGluZwxhcnJheUJlc3RGaXQMY1JlcGxhY2VtZW50G2JJc01pY3Jvc29mdEJlc3RGaXRGYWxsYmFjaytE
ZWNvZGVyRmFsbGJhY2srYklzTWljcm9zb2Z0QmVzdEZpdEZhbGxiYWNrAwcAAAAcU3lzdGVtLlRleHQu
Q29kZVBhZ2VFbmNvZGluZwMDAQEJAQAAAAo/AQEL
</value>
</data>
</root>
SISBusiness.Module.Win/Editor/SpreadEditor/SpreadSimpleUserControl.vb
+22
View File
@@ -0,0 +1,22 @@
Public Class SpreadSimpleUserControl
Private _SpreadInfo As String
Public Sub New()
InitializeComponent()
End Sub
Property SpreadInfo As String
Get
Return _SpreadInfo
End Get
Set(value As String)
_SpreadInfo = value
End Set
End Property
Private Sub SpreadsheetControl1_CellEndEdit(sender As Object, e As DevExpress.XtraSpreadsheet.SpreadsheetCellValidatingEventArgs) Handles SpreadsheetControl1.CellEndEdit
If SpreadInfo <> "1" Then
SpreadInfo = "1"
Else
SpreadInfo = "0"
End If
End Sub
End Class
SISBusiness.Module.Win/Editor/SpreadEditor/SpreadUserControl.Designer.vb
Generated
+4572
View File
File diff suppressed because one or more lines are too long
SISBusiness.Module.Win/Editor/SpreadEditor/SpreadUserControl.resx
+165
View File
@@ -0,0 +1,165 @@
<?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>
<data name="SpreadsheetControl1.Options.Export.Csv.Encoding" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAEAQAAABxTeXN0ZW0uVGV4dC5Db2RlUGFnZUVuY29kaW5nCAAAAAxtX2lz
UmVhZE9ubHkPZW5jb2RlckZhbGxiYWNrD2RlY29kZXJGYWxsYmFjawptX2NvZGVQYWdlCGRhdGFJdGVt
E0VuY29kaW5nK21fY29kZVBhZ2URRW5jb2RpbmcrZGF0YUl0ZW0LbWF4Q2hhclNpemUAAwMAAgACAAEq
U3lzdGVtLlRleHQuSW50ZXJuYWxFbmNvZGVyQmVzdEZpdEZhbGxiYWNrKlN5c3RlbS5UZXh0LkludGVy
bmFsRGVjb2RlckJlc3RGaXRGYWxsYmFjawgICAEJAgAAAAkDAAAA4gQAAAriBAAACgEAAAAEAgAAACpT
eXN0ZW0uVGV4dC5JbnRlcm5hbEVuY29kZXJCZXN0Rml0RmFsbGJhY2sEAAAACGVuY29kaW5nDGFycmF5
QmVzdEZpdBtiSXNNaWNyb3NvZnRCZXN0Rml0RmFsbGJhY2srRW5jb2RlckZhbGxiYWNrK2JJc01pY3Jv
c29mdEJlc3RGaXRGYWxsYmFjawMHAAAcU3lzdGVtLlRleHQuQ29kZVBhZ2VFbmNvZGluZwMBAQkBAAAA
CgEBBAMAAAAqU3lzdGVtLlRleHQuSW50ZXJuYWxEZWNvZGVyQmVzdEZpdEZhbGxiYWNrBQAAAAhlbmNv
ZGluZwxhcnJheUJlc3RGaXQMY1JlcGxhY2VtZW50G2JJc01pY3Jvc29mdEJlc3RGaXRGYWxsYmFjaytE
ZWNvZGVyRmFsbGJhY2srYklzTWljcm9zb2Z0QmVzdEZpdEZhbGxiYWNrAwcAAAAcU3lzdGVtLlRleHQu
Q29kZVBhZ2VFbmNvZGluZwMDAQEJAQAAAAo/AQEL
</value>
</data>
<data name="SpreadsheetControl1.Options.Export.Txt.Encoding" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAEAQAAABxTeXN0ZW0uVGV4dC5Db2RlUGFnZUVuY29kaW5nCAAAAAxtX2lz
UmVhZE9ubHkPZW5jb2RlckZhbGxiYWNrD2RlY29kZXJGYWxsYmFjawptX2NvZGVQYWdlCGRhdGFJdGVt
E0VuY29kaW5nK21fY29kZVBhZ2URRW5jb2RpbmcrZGF0YUl0ZW0LbWF4Q2hhclNpemUAAwMAAgACAAEq
U3lzdGVtLlRleHQuSW50ZXJuYWxFbmNvZGVyQmVzdEZpdEZhbGxiYWNrKlN5c3RlbS5UZXh0LkludGVy
bmFsRGVjb2RlckJlc3RGaXRGYWxsYmFjawgICAEJAgAAAAkDAAAA4gQAAAriBAAACgEAAAAEAgAAACpT
eXN0ZW0uVGV4dC5JbnRlcm5hbEVuY29kZXJCZXN0Rml0RmFsbGJhY2sEAAAACGVuY29kaW5nDGFycmF5
QmVzdEZpdBtiSXNNaWNyb3NvZnRCZXN0Rml0RmFsbGJhY2srRW5jb2RlckZhbGxiYWNrK2JJc01pY3Jv
c29mdEJlc3RGaXRGYWxsYmFjawMHAAAcU3lzdGVtLlRleHQuQ29kZVBhZ2VFbmNvZGluZwMBAQkBAAAA
CgEBBAMAAAAqU3lzdGVtLlRleHQuSW50ZXJuYWxEZWNvZGVyQmVzdEZpdEZhbGxiYWNrBQAAAAhlbmNv
ZGluZwxhcnJheUJlc3RGaXQMY1JlcGxhY2VtZW50G2JJc01pY3Jvc29mdEJlc3RGaXRGYWxsYmFjaytE
ZWNvZGVyRmFsbGJhY2srYklzTWljcm9zb2Z0QmVzdEZpdEZhbGxiYWNrAwcAAAAcU3lzdGVtLlRleHQu
Q29kZVBhZ2VFbmNvZGluZwMDAQEJAQAAAAo/AQEL
</value>
</data>
<data name="SpreadsheetCommandGalleryItem199.Description" xml:space="preserve">
<value>Compare the percentage each value contributes to a total across categories using horizontal rectangles.
Use it when the values on the chart represent durations or when the category text is very long.</value>
</data>
<data name="SpreadsheetCommandGalleryItem199.Hint" xml:space="preserve">
<value>Compare the percentage each value contributes to a total across categories using horizontal rectangles.
Use it when the values on the chart represent durations or when the category text is very long.</value>
</data>
<metadata name="SpreadsheetBarController1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
</root>
SISBusiness.Module.Win/Editor/SpreadEditor/SpreadUserControl.vb
+21
View File
@@ -0,0 +1,21 @@
Public Class SpreadUserControl
Private _SpreadInfo As String
Public Sub New()
InitializeComponent()
End Sub
Property SpreadInfo As String
Get
Return _SpreadInfo
End Get
Set(value As String)
_SpreadInfo = value
End Set
End Property
Private Sub SpreadsheetControl1_CellEndEdit(sender As Object, e As DevExpress.XtraSpreadsheet.SpreadsheetCellValidatingEventArgs) Handles SpreadsheetControl1.CellEndEdit
If SpreadInfo <> "1" Then
SpreadInfo = "1"
Else
SpreadInfo = "0"
End If
End Sub
End Class
SISBusiness.Module.Win/Editor/WaitForm/WaitForm.Designer.vb
Generated
+95
View File
@@ -0,0 +1,95 @@
Imports System.Windows.Forms
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class WaitForm
Inherits DevExpress.XtraWaitForm.WaitForm
'Form 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.StyleController1 = New DevExpress.XtraEditors.StyleController(Me.components)
Me.tableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
Me.progressPanel1 = New DevExpress.XtraWaitForm.ProgressPanel()
CType(Me.StyleController1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.tableLayoutPanel1.SuspendLayout()
Me.SuspendLayout()
'
'tableLayoutPanel1
'
Me.tableLayoutPanel1.AutoSize = True
Me.tableLayoutPanel1.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.tableLayoutPanel1.BackColor = System.Drawing.Color.Transparent
Me.tableLayoutPanel1.ColumnCount = 1
Me.tableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
Me.tableLayoutPanel1.Controls.Add(Me.progressPanel1, 0, 0)
Me.tableLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.tableLayoutPanel1.Location = New System.Drawing.Point(0, 0)
Me.tableLayoutPanel1.Name = "tableLayoutPanel1"
Me.tableLayoutPanel1.Padding = New System.Windows.Forms.Padding(0, 14, 0, 14)
Me.tableLayoutPanel1.RowCount = 1
Me.tableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
Me.tableLayoutPanel1.Size = New System.Drawing.Size(481, 248)
Me.tableLayoutPanel1.TabIndex = 2
Me.tableLayoutPanel1.UseWaitCursor = True
'
'progressPanel1
'
Me.progressPanel1.Appearance.BackColor = System.Drawing.Color.Transparent
Me.progressPanel1.Appearance.Options.UseBackColor = True
Me.progressPanel1.AppearanceCaption.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.progressPanel1.AppearanceCaption.Options.UseFont = True
Me.progressPanel1.AppearanceDescription.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
Me.progressPanel1.AppearanceDescription.Options.UseFont = True
Me.progressPanel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.progressPanel1.ImageHorzOffset = 20
Me.progressPanel1.Location = New System.Drawing.Point(0, 17)
Me.progressPanel1.Margin = New System.Windows.Forms.Padding(0, 3, 0, 3)
Me.progressPanel1.Name = "progressPanel1"
Me.progressPanel1.Size = New System.Drawing.Size(481, 214)
Me.progressPanel1.StyleController = Me.StyleController1
Me.progressPanel1.TabIndex = 0
Me.progressPanel1.Text = "progressPanel1"
Me.progressPanel1.UseWaitCursor = True
'
'WaitForm
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.AutoSize = True
Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.ClientSize = New System.Drawing.Size(481, 248)
Me.Controls.Add(Me.tableLayoutPanel1)
Me.DoubleBuffered = True
Me.Name = "WaitForm"
Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual
Me.Text = "Form1"
CType(Me.StyleController1, System.ComponentModel.ISupportInitialize).EndInit()
Me.tableLayoutPanel1.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents StyleController1 As DevExpress.XtraEditors.StyleController
Private WithEvents tableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel
Private WithEvents progressPanel1 As DevExpress.XtraWaitForm.ProgressPanel
'Friend WithEvents StyleController1 As DevExpress.XtraEditors.StyleController
End Class
SISBusiness.Module.Win/Editor/WaitForm/WaitForm.resx
+123
View File
@@ -0,0 +1,123 @@
<?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="StyleController1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
</root>
SISBusiness.Module.Win/Editor/WaitForm/WaitForm.vb
+25
View File
@@ -0,0 +1,25 @@
Public Class WaitForm
Sub New()
InitializeComponent()
Me.progressPanel1.AutoHeight = True
End Sub
Public Overrides Sub SetCaption(ByVal caption As String)
MyBase.SetCaption(caption)
Me.progressPanel1.Caption = caption
End Sub
Public Overrides Sub SetDescription(ByVal description As String)
MyBase.SetDescription(description)
Me.progressPanel1.Description = description
End Sub
Public Overrides Sub ProcessCommand(ByVal cmd As System.Enum, ByVal arg As Object)
MyBase.ProcessCommand(cmd, arg)
End Sub
Public Enum WaitFormCommand
SomeCommandId
End Enum
End Class
SISBusiness.Module.Win/Editor/WaitForm/WaitFormClass.vb
+109
View File
@@ -0,0 +1,109 @@
Imports DevExpress.XtraSplashScreen
Imports System.Threading
Public Class WaitFormClass
Private _WaitForm_Minimum As Long = -1
Private _WaitForm_Maximum As Long = -1
Private _WaitForm_Step As Long = -1
Private _Current_Step As Long = -1
Private _Current_Percent As Double = 0
Private _Last_Percent As Double = 0
Private _Act_Displayed_Time As Date
Private _Prev_Displayed_Time As Date
Private _StartTime As Date
Private _Caption As String
Private _DoThread As Boolean = False
Private _ThreadHandler As Thread
Public Property Caption
Get
Return _Caption
End Get
Set(value)
_Caption = value
End Set
End Property
Public Sub Initwork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long)
_WaitForm_Minimum = _Minimum
_WaitForm_Maximum = _Maximum
_WaitForm_Step = _Step
_Current_Step = 0
_Current_Percent = 0
_Last_Percent = 0
_Act_Displayed_Time = Now
_Prev_Displayed_Time = Date.MinValue
_StartTime = Now
SplashScreenManager.ShowForm(Nothing, GetType(WaitForm), True, False, False)
System.Windows.Forms.Application.DoEvents()
_DoThread = True
_ThreadHandler = New Thread(AddressOf ThreadTask)
_ThreadHandler.IsBackground = True
_ThreadHandler.Start()
End Sub
Public Sub DoWork()
Dim _EstimatedSec As Long = 0
Dim _SpentSec As Long = 0
_Current_Step += _WaitForm_Step
_Current_Percent = Math.Round(_Current_Step / _WaitForm_Maximum * 100, 0, MidpointRounding.AwayFromZero)
If _Last_Percent <> _Current_Percent Then
Try
If Caption = "" Then
SplashScreenManager.Default.SetWaitFormCaption(String.Format("Kérem várjon, dolgozom ... {0}", Format(_StartTime, "hh:mm:ss")))
Else
SplashScreenManager.Default.SetWaitFormCaption(Me.Caption)
End If
_SpentSec = DateDiff(DateInterval.Second, _StartTime, Now)
_EstimatedSec = ((_SpentSec / _Current_Step) * (_WaitForm_Maximum - _Current_Step)) + 1
Dim iSpan As TimeSpan = TimeSpan.FromSeconds(_EstimatedSec)
SplashScreenManager.Default.SetWaitFormDescription(String.Format("{0}% ,{1}/{2}, eltelt idő: {3}, becsült hátralévő : {4}:{5}:{6}",
_Current_Percent, _Current_Step, _WaitForm_Maximum, FormatEllapsedTime(),
iSpan.Hours.ToString, iSpan.Minutes.ToString, iSpan.Seconds.ToString))
Catch ex As Exception
End Try
_Last_Percent = _Current_Percent
End If
System.Windows.Forms.Application.DoEvents()
End Sub
Public Sub FinalWork()
_DoThread = False
_ThreadHandler = Nothing
SplashScreenManager.CloseForm(False)
System.Windows.Forms.Application.DoEvents()
End Sub
Private Function FormatEllapsedTime() As String
Dim iSpan As TimeSpan = TimeSpan.FromSeconds(DateDiff(DateInterval.Second, _StartTime, Now).ToString)
Return String.Format("{0}:{1}:{2}", iSpan.Hours.ToString, iSpan.Minutes.ToString, iSpan.Seconds.ToString)
End Function
'// THREADING
Private Sub ThreadTask()
Dim _EstimatedSec As Long = 0
Dim _SpentSec As Long = 0
While _DoThread
_Act_Displayed_Time = Now
Try
If _Act_Displayed_Time <> _Prev_Displayed_Time Then
If DateDiff(DateInterval.Second, _Prev_Displayed_Time, _Act_Displayed_Time) >= 1 Then
_SpentSec = DateDiff(DateInterval.Second, _StartTime, Now)
_EstimatedSec = ((_SpentSec / _Current_Step) * (_WaitForm_Maximum - _Current_Step)) + 1
Dim iSpan As TimeSpan = TimeSpan.FromSeconds(_EstimatedSec)
SplashScreenManager.Default.SetWaitFormDescription(String.Format("{0}% ,{1}/{2}, eltelt idő: {3}, becsült hátralévő : {4}:{5}:{6}",
_Current_Percent, _Current_Step, _WaitForm_Maximum, FormatEllapsedTime(),
iSpan.Hours.ToString, iSpan.Minutes.ToString, iSpan.Seconds.ToString))
_Prev_Displayed_Time = Now
End If
End If
Catch ex As Exception
End Try
Thread.Sleep(1000)
End While
End Sub
End Class