diff --git a/Common/Snapshot.Designer.vb b/Common/Snapshot.Designer.vb index 66a7630..d235932 100644 --- a/Common/Snapshot.Designer.vb +++ b/Common/Snapshot.Designer.vb @@ -30,7 +30,7 @@ Partial Public Class Snapshot Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New() MyBase.New Me.BeginInit @@ -42,7 +42,7 @@ Partial Public Class Snapshot End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context, false) If (Me.IsBinarySerialized(info, context) = true) Then @@ -77,7 +77,7 @@ Partial Public Class Snapshot End Sub _ Public ReadOnly Property Resources() As ResourcesDataTable @@ -87,7 +87,7 @@ Partial Public Class Snapshot End Property _ Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode @@ -100,7 +100,7 @@ Partial Public Class Snapshot End Property _ Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection Get @@ -109,7 +109,7 @@ Partial Public Class Snapshot End Property _ Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection Get @@ -118,7 +118,7 @@ Partial Public Class Snapshot End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub InitializeDerivedDataSet() Me.BeginInit Me.InitClass @@ -126,7 +126,7 @@ Partial Public Class Snapshot End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataSet Dim cln As Snapshot = CType(MyBase.Clone,Snapshot) cln.InitVars @@ -135,19 +135,19 @@ Partial Public Class Snapshot End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function ShouldSerializeTables() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function ShouldSerializeRelations() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader) If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then Me.Reset @@ -171,7 +171,7 @@ Partial Public Class Snapshot End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing)) @@ -180,13 +180,13 @@ Partial Public Class Snapshot End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Overloads Sub InitVars() Me.InitVars(true) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Overloads Sub InitVars(ByVal initTable As Boolean) Me.tableResources = CType(MyBase.Tables("Resources"),ResourcesDataTable) If (initTable = true) Then @@ -197,7 +197,7 @@ Partial Public Class Snapshot End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitClass() Me.DataSetName = "Snapshot" Me.Prefix = "" @@ -209,13 +209,13 @@ Partial Public Class Snapshot End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Function ShouldSerializeResources() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then Me.InitVars @@ -223,7 +223,7 @@ Partial Public Class Snapshot End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim ds As Snapshot = New Snapshot() Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() @@ -272,7 +272,7 @@ Partial Public Class Snapshot Return type End Function - _ + _ Public Delegate Sub ResourcesRowChangeEventHandler(ByVal sender As Object, ByVal e As ResourcesRowChangeEvent) ''' @@ -290,7 +290,7 @@ Partial Public Class Snapshot Private columnResourceValue As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "Resources" @@ -300,7 +300,7 @@ Partial Public Class Snapshot End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -318,14 +318,14 @@ Partial Public Class Snapshot End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property FileKeyColumn() As Global.System.Data.DataColumn Get Return Me.columnFileKey @@ -333,7 +333,7 @@ Partial Public Class Snapshot End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property ResourceKeyColumn() As Global.System.Data.DataColumn Get Return Me.columnResourceKey @@ -341,7 +341,7 @@ Partial Public Class Snapshot End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property ResourceValueColumn() As Global.System.Data.DataColumn Get Return Me.columnResourceValue @@ -349,7 +349,7 @@ Partial Public Class Snapshot End Property _ Public ReadOnly Property Count() As Integer Get @@ -358,33 +358,33 @@ Partial Public Class Snapshot End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As ResourcesRow Get Return CType(Me.Rows(index),ResourcesRow) End Get End Property - _ + _ Public Event ResourcesRowChanging As ResourcesRowChangeEventHandler - _ + _ Public Event ResourcesRowChanged As ResourcesRowChangeEventHandler - _ + _ Public Event ResourcesRowDeleting As ResourcesRowChangeEventHandler - _ + _ Public Event ResourcesRowDeleted As ResourcesRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overloads Sub AddResourcesRow(ByVal row As ResourcesRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overloads Function AddResourcesRow(ByVal FileKey As String, ByVal ResourceKey As String, ByVal ResourceValue As String) As ResourcesRow Dim rowResourcesRow As ResourcesRow = CType(Me.NewRow,ResourcesRow) Dim columnValuesArray() As Object = New Object() {FileKey, ResourceKey, ResourceValue} @@ -394,7 +394,7 @@ Partial Public Class Snapshot End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As ResourcesDataTable = CType(MyBase.Clone,ResourcesDataTable) cln.InitVars @@ -402,13 +402,13 @@ Partial Public Class Snapshot End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New ResourcesDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub InitVars() Me.columnFileKey = MyBase.Columns("FileKey") Me.columnResourceKey = MyBase.Columns("ResourceKey") @@ -416,7 +416,7 @@ Partial Public Class Snapshot End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitClass() Me.columnFileKey = New Global.System.Data.DataColumn("FileKey", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFileKey) @@ -430,25 +430,25 @@ Partial Public Class Snapshot End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function NewResourcesRow() As ResourcesRow Return CType(Me.NewRow,ResourcesRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New ResourcesRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(ResourcesRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.ResourcesRowChangedEvent) Is Nothing) Then @@ -457,7 +457,7 @@ Partial Public Class Snapshot End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.ResourcesRowChangingEvent) Is Nothing) Then @@ -466,7 +466,7 @@ Partial Public Class Snapshot End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.ResourcesRowDeletedEvent) Is Nothing) Then @@ -475,7 +475,7 @@ Partial Public Class Snapshot End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.ResourcesRowDeletingEvent) Is Nothing) Then @@ -484,13 +484,13 @@ Partial Public Class Snapshot End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub RemoveResourcesRow(ByVal row As ResourcesRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -565,14 +565,14 @@ Partial Public Class Snapshot Private tableResources As ResourcesDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableResources = CType(Me.Table,ResourcesDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property FileKey() As String Get Return CType(Me(Me.tableResources.FileKeyColumn),String) @@ -583,7 +583,7 @@ Partial Public Class Snapshot End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ResourceKey() As String Get Return CType(Me(Me.tableResources.ResourceKeyColumn),String) @@ -594,7 +594,7 @@ Partial Public Class Snapshot End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ResourceValue() As String Get Try @@ -609,13 +609,13 @@ Partial Public Class Snapshot End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsResourceValueNull() As Boolean Return Me.IsNull(Me.tableResources.ResourceValueColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetResourceValueNull() Me(Me.tableResources.ResourceValueColumn) = Global.System.Convert.DBNull End Sub @@ -624,7 +624,7 @@ Partial Public Class Snapshot ''' '''Row event argument class ''' - _ + _ Public Class ResourcesRowChangeEvent Inherits Global.System.EventArgs @@ -633,7 +633,7 @@ Partial Public Class Snapshot Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New(ByVal row As ResourcesRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -641,7 +641,7 @@ Partial Public Class Snapshot End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Row() As ResourcesRow Get Return Me.eventRow @@ -649,7 +649,7 @@ Partial Public Class Snapshot End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction diff --git a/Common/TranslatorData.Designer.vb b/Common/TranslatorData.Designer.vb index a454d33..e8b8a19 100644 --- a/Common/TranslatorData.Designer.vb +++ b/Common/TranslatorData.Designer.vb @@ -32,7 +32,7 @@ Partial Public Class TranslatorData Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New() MyBase.New Me.BeginInit @@ -44,7 +44,7 @@ Partial Public Class TranslatorData End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context, false) If (Me.IsBinarySerialized(info, context) = true) Then @@ -82,7 +82,7 @@ Partial Public Class TranslatorData End Sub _ Public ReadOnly Property Settings() As SettingsDataTable @@ -92,7 +92,7 @@ Partial Public Class TranslatorData End Property _ Public ReadOnly Property TranslationServiceLanguages() As TranslationServiceLanguagesDataTable @@ -102,7 +102,7 @@ Partial Public Class TranslatorData End Property _ Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode @@ -115,7 +115,7 @@ Partial Public Class TranslatorData End Property _ Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection Get @@ -124,7 +124,7 @@ Partial Public Class TranslatorData End Property _ Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection Get @@ -133,7 +133,7 @@ Partial Public Class TranslatorData End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub InitializeDerivedDataSet() Me.BeginInit Me.InitClass @@ -141,7 +141,7 @@ Partial Public Class TranslatorData End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataSet Dim cln As TranslatorData = CType(MyBase.Clone,TranslatorData) cln.InitVars @@ -150,19 +150,19 @@ Partial Public Class TranslatorData End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function ShouldSerializeTables() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function ShouldSerializeRelations() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader) If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then Me.Reset @@ -189,7 +189,7 @@ Partial Public Class TranslatorData End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing)) @@ -198,13 +198,13 @@ Partial Public Class TranslatorData End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Overloads Sub InitVars() Me.InitVars(true) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Overloads Sub InitVars(ByVal initTable As Boolean) Me.tableSettings = CType(MyBase.Tables("Settings"),SettingsDataTable) If (initTable = true) Then @@ -221,7 +221,7 @@ Partial Public Class TranslatorData End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitClass() Me.DataSetName = "TranslatorData" Me.Prefix = "" @@ -235,19 +235,19 @@ Partial Public Class TranslatorData End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Function ShouldSerializeSettings() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Function ShouldSerializeTranslationServiceLanguages() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then Me.InitVars @@ -255,7 +255,7 @@ Partial Public Class TranslatorData End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim ds As TranslatorData = New TranslatorData() Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() @@ -304,10 +304,10 @@ Partial Public Class TranslatorData Return type End Function - _ + _ Public Delegate Sub SettingsRowChangeEventHandler(ByVal sender As Object, ByVal e As SettingsRowChangeEvent) - _ + _ Public Delegate Sub TranslationServiceLanguagesRowChangeEventHandler(ByVal sender As Object, ByVal e As TranslationServiceLanguagesRowChangeEvent) ''' @@ -323,7 +323,7 @@ Partial Public Class TranslatorData Private columnSettingValue As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "Settings" @@ -333,7 +333,7 @@ Partial Public Class TranslatorData End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -351,14 +351,14 @@ Partial Public Class TranslatorData End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property SettingKeyColumn() As Global.System.Data.DataColumn Get Return Me.columnSettingKey @@ -366,7 +366,7 @@ Partial Public Class TranslatorData End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property SettingValueColumn() As Global.System.Data.DataColumn Get Return Me.columnSettingValue @@ -374,7 +374,7 @@ Partial Public Class TranslatorData End Property _ Public ReadOnly Property Count() As Integer Get @@ -383,33 +383,33 @@ Partial Public Class TranslatorData End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As SettingsRow Get Return CType(Me.Rows(index),SettingsRow) End Get End Property - _ + _ Public Event SettingsRowChanging As SettingsRowChangeEventHandler - _ + _ Public Event SettingsRowChanged As SettingsRowChangeEventHandler - _ + _ Public Event SettingsRowDeleting As SettingsRowChangeEventHandler - _ + _ Public Event SettingsRowDeleted As SettingsRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overloads Sub AddSettingsRow(ByVal row As SettingsRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overloads Function AddSettingsRow(ByVal SettingKey As String, ByVal SettingValue As String) As SettingsRow Dim rowSettingsRow As SettingsRow = CType(Me.NewRow,SettingsRow) Dim columnValuesArray() As Object = New Object() {SettingKey, SettingValue} @@ -419,7 +419,7 @@ Partial Public Class TranslatorData End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As SettingsDataTable = CType(MyBase.Clone,SettingsDataTable) cln.InitVars @@ -427,20 +427,20 @@ Partial Public Class TranslatorData End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New SettingsDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub InitVars() Me.columnSettingKey = MyBase.Columns("SettingKey") Me.columnSettingValue = MyBase.Columns("SettingValue") End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitClass() Me.columnSettingKey = New Global.System.Data.DataColumn("SettingKey", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSettingKey) @@ -452,25 +452,25 @@ Partial Public Class TranslatorData End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function NewSettingsRow() As SettingsRow Return CType(Me.NewRow,SettingsRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New SettingsRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(SettingsRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.SettingsRowChangedEvent) Is Nothing) Then @@ -479,7 +479,7 @@ Partial Public Class TranslatorData End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.SettingsRowChangingEvent) Is Nothing) Then @@ -488,7 +488,7 @@ Partial Public Class TranslatorData End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.SettingsRowDeletedEvent) Is Nothing) Then @@ -497,7 +497,7 @@ Partial Public Class TranslatorData End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.SettingsRowDeletingEvent) Is Nothing) Then @@ -506,13 +506,13 @@ Partial Public Class TranslatorData End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub RemoveSettingsRow(ByVal row As SettingsRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -589,7 +589,7 @@ Partial Public Class TranslatorData Private columnLocale As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TranslationServiceLanguages" @@ -599,7 +599,7 @@ Partial Public Class TranslatorData End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -617,14 +617,14 @@ Partial Public Class TranslatorData End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property LocaleColumn() As Global.System.Data.DataColumn Get Return Me.columnLocale @@ -632,7 +632,7 @@ Partial Public Class TranslatorData End Property _ Public ReadOnly Property Count() As Integer Get @@ -641,33 +641,33 @@ Partial Public Class TranslatorData End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TranslationServiceLanguagesRow Get Return CType(Me.Rows(index),TranslationServiceLanguagesRow) End Get End Property - _ + _ Public Event TranslationServiceLanguagesRowChanging As TranslationServiceLanguagesRowChangeEventHandler - _ + _ Public Event TranslationServiceLanguagesRowChanged As TranslationServiceLanguagesRowChangeEventHandler - _ + _ Public Event TranslationServiceLanguagesRowDeleting As TranslationServiceLanguagesRowChangeEventHandler - _ + _ Public Event TranslationServiceLanguagesRowDeleted As TranslationServiceLanguagesRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overloads Sub AddTranslationServiceLanguagesRow(ByVal row As TranslationServiceLanguagesRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overloads Function AddTranslationServiceLanguagesRow(ByVal Locale As String) As TranslationServiceLanguagesRow Dim rowTranslationServiceLanguagesRow As TranslationServiceLanguagesRow = CType(Me.NewRow,TranslationServiceLanguagesRow) Dim columnValuesArray() As Object = New Object() {Locale} @@ -677,7 +677,7 @@ Partial Public Class TranslatorData End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TranslationServiceLanguagesDataTable = CType(MyBase.Clone,TranslationServiceLanguagesDataTable) cln.InitVars @@ -685,44 +685,44 @@ Partial Public Class TranslatorData End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TranslationServiceLanguagesDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub InitVars() Me.columnLocale = MyBase.Columns("Locale") End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitClass() Me.columnLocale = New Global.System.Data.DataColumn("Locale", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLocale) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function NewTranslationServiceLanguagesRow() As TranslationServiceLanguagesRow Return CType(Me.NewRow,TranslationServiceLanguagesRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TranslationServiceLanguagesRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TranslationServiceLanguagesRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TranslationServiceLanguagesRowChangedEvent) Is Nothing) Then @@ -731,7 +731,7 @@ Partial Public Class TranslatorData End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TranslationServiceLanguagesRowChangingEvent) Is Nothing) Then @@ -740,7 +740,7 @@ Partial Public Class TranslatorData End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TranslationServiceLanguagesRowDeletedEvent) Is Nothing) Then @@ -749,7 +749,7 @@ Partial Public Class TranslatorData End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TranslationServiceLanguagesRowDeletingEvent) Is Nothing) Then @@ -758,13 +758,13 @@ Partial Public Class TranslatorData End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub RemoveTranslationServiceLanguagesRow(ByVal row As TranslationServiceLanguagesRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -839,14 +839,14 @@ Partial Public Class TranslatorData Private tableSettings As SettingsDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableSettings = CType(Me.Table,SettingsDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property SettingKey() As String Get Return CType(Me(Me.tableSettings.SettingKeyColumn),String) @@ -857,7 +857,7 @@ Partial Public Class TranslatorData End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property SettingValue() As String Get Try @@ -872,13 +872,13 @@ Partial Public Class TranslatorData End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsSettingValueNull() As Boolean Return Me.IsNull(Me.tableSettings.SettingValueColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetSettingValueNull() Me(Me.tableSettings.SettingValueColumn) = Global.System.Convert.DBNull End Sub @@ -893,14 +893,14 @@ Partial Public Class TranslatorData Private tableTranslationServiceLanguages As TranslationServiceLanguagesDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTranslationServiceLanguages = CType(Me.Table,TranslationServiceLanguagesDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property Locale() As String Get Try @@ -915,13 +915,13 @@ Partial Public Class TranslatorData End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsLocaleNull() As Boolean Return Me.IsNull(Me.tableTranslationServiceLanguages.LocaleColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetLocaleNull() Me(Me.tableTranslationServiceLanguages.LocaleColumn) = Global.System.Convert.DBNull End Sub @@ -930,7 +930,7 @@ Partial Public Class TranslatorData ''' '''Row event argument class ''' - _ + _ Public Class SettingsRowChangeEvent Inherits Global.System.EventArgs @@ -939,7 +939,7 @@ Partial Public Class TranslatorData Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New(ByVal row As SettingsRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -947,7 +947,7 @@ Partial Public Class TranslatorData End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Row() As SettingsRow Get Return Me.eventRow @@ -955,7 +955,7 @@ Partial Public Class TranslatorData End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -966,7 +966,7 @@ Partial Public Class TranslatorData ''' '''Row event argument class ''' - _ + _ Public Class TranslationServiceLanguagesRowChangeEvent Inherits Global.System.EventArgs @@ -975,7 +975,7 @@ Partial Public Class TranslatorData Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New(ByVal row As TranslationServiceLanguagesRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -983,7 +983,7 @@ Partial Public Class TranslatorData End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Row() As TranslationServiceLanguagesRow Get Return Me.eventRow @@ -991,7 +991,7 @@ Partial Public Class TranslatorData End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb index bc1b83a..fb30421 100644 --- a/My Project/AssemblyInfo.vb +++ b/My Project/AssemblyInfo.vb @@ -55,5 +55,5 @@ Imports System.Windows ' by using the '*' as shown below: ' - - + + diff --git a/My Project/Resources.Designer.vb b/My Project/Resources.Designer.vb index a95782d..0625f9f 100644 --- a/My Project/Resources.Designer.vb +++ b/My Project/Resources.Designer.vb @@ -22,7 +22,7 @@ Namespace My.Resources ''' ''' A strongly-typed resource class, for looking up localized strings, etc. ''' - _ diff --git a/My Project/Settings.Designer.vb b/My Project/Settings.Designer.vb index 02bc9c8..f0f6904 100644 --- a/My Project/Settings.Designer.vb +++ b/My Project/Settings.Designer.vb @@ -12,15 +12,16 @@ Option Strict On Option Explicit On - - _ -Partial Friend NotInheritable Class MySettings - Inherits Global.System.Configuration.ApplicationSettingsBase - - Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings) +Namespace My + _ + Partial Friend NotInheritable Class MySettings + Inherits Global.System.Configuration.ApplicationSettingsBase + + Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings) + #Region "My.Settings Auto-Save Functionality" #If _MyType = "WindowsForms" Then Private Shared addedHandler As Boolean @@ -35,10 +36,10 @@ Partial Friend NotInheritable Class MySettings End Sub #End If #End Region - - Public Shared ReadOnly Property [Default]() As MySettings - Get - + + Public Shared ReadOnly Property [Default]() As MySettings + Get + #If _MyType = "WindowsForms" Then If Not addedHandler Then SyncLock addedHandlerLockObject @@ -49,10 +50,11 @@ Partial Friend NotInheritable Class MySettings End SyncLock End If #End If - Return defaultInstance - End Get - End Property -End Class + Return defaultInstance + End Get + End Property + End Class +End Namespace Namespace My @@ -62,9 +64,9 @@ Namespace My Friend Module MySettingsProperty _ - Friend ReadOnly Property Settings() As Global.DotNetNuke.Translator.MySettings + Friend ReadOnly Property Settings() As Global.DotNetNuke.Translator.My.MySettings Get - Return Global.DotNetNuke.Translator.MySettings.Default + Return Global.DotNetNuke.Translator.My.MySettings.Default End Get End Property End Module diff --git a/Resources/Template.Designer.vb b/Resources/Template.Designer.vb index b78d484..901e5cb 100644 --- a/Resources/Template.Designer.vb +++ b/Resources/Template.Designer.vb @@ -22,7 +22,7 @@ Namespace My.Resources ''' ''' A strongly-typed resource class, for looking up localized strings, etc. ''' - _ Friend Class Template diff --git a/SmithHtmlEditor/Resources/UiText.Designer.cs b/SmithHtmlEditor/Resources/UiText.Designer.cs index 2f6d344..4bfef65 100644 --- a/SmithHtmlEditor/Resources/UiText.Designer.cs +++ b/SmithHtmlEditor/Resources/UiText.Designer.cs @@ -19,7 +19,7 @@ namespace Smith.WPF.HtmlEditor.Resources { // class via a tool like ResGen or Visual Studio. // To add or remove a member, edit your .ResX file then rerun ResGen // with the /str option, or rebuild your VS project. - [global::System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "16.0.0.0")] + [global::System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "17.0.0.0")] [global::System.Diagnostics.DebuggerNonUserCodeAttribute()] [global::System.Runtime.CompilerServices.CompilerGeneratedAttribute()] public class UiText { diff --git a/SmithHtmlEditor/SmithHtmlEditor.csproj b/SmithHtmlEditor/SmithHtmlEditor.csproj index fc9d744..388f096 100644 --- a/SmithHtmlEditor/SmithHtmlEditor.csproj +++ b/SmithHtmlEditor/SmithHtmlEditor.csproj @@ -10,7 +10,7 @@ Properties Smith.WPF.HtmlEditor Smith.WPF.HtmlEditor - v4.7.2 + v4.8 512 {60dc8134-eba5-43b8-bcc9-bb4bc16c2548};{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC} 4 diff --git a/Translator.vbproj b/Translator.vbproj index 62b9121..3cfd230 100644 --- a/Translator.vbproj +++ b/Translator.vbproj @@ -8,7 +8,7 @@ WinExe DotNetNuke.Translator Translator - v4.7.2 + v4.8 Custom diff --git a/TranslatorLibrary/Properties/AssemblyInfo.cs b/TranslatorLibrary/Properties/AssemblyInfo.cs index 21454b3..f8f2681 100644 --- a/TranslatorLibrary/Properties/AssemblyInfo.cs +++ b/TranslatorLibrary/Properties/AssemblyInfo.cs @@ -31,5 +31,5 @@ // You can specify all the values or you can default the Build and Revision Numbers // by using the '*' as shown below: // [assembly: AssemblyVersion("1.0.*")] -[assembly: AssemblyVersion("1.4.0.0")] -[assembly: AssemblyFileVersion("1.4.0.0")] +[assembly: AssemblyVersion("1.4.1.0")] +[assembly: AssemblyFileVersion("1.4.1.0")] diff --git a/TranslatorLibrary/TranslatorLibrary.csproj b/TranslatorLibrary/TranslatorLibrary.csproj index c721860..42f657e 100644 --- a/TranslatorLibrary/TranslatorLibrary.csproj +++ b/TranslatorLibrary/TranslatorLibrary.csproj @@ -10,7 +10,7 @@ Properties TranslatorLibrary TranslatorLibrary - v4.7.2 + v4.8 512 diff --git a/app.config b/app.config index 7fc48ac..3c9fb62 100644 --- a/app.config +++ b/app.config @@ -24,4 +24,4 @@ - +