diff --git a/app/DD_PM_WINDREAM/App.config b/app/DD_PM_WINDREAM/App.config index fef0f89..c5ec99d 100644 --- a/app/DD_PM_WINDREAM/App.config +++ b/app/DD_PM_WINDREAM/App.config @@ -6,11 +6,10 @@ - + - + diff --git a/app/DD_PM_WINDREAM/ClassPMWindream.vb b/app/DD_PM_WINDREAM/ClassPMWindream.vb index 064b323..d0c1c8b 100644 --- a/app/DD_PM_WINDREAM/ClassPMWindream.vb +++ b/app/DD_PM_WINDREAM/ClassPMWindream.vb @@ -1,5 +1,6 @@ Imports WINDREAMLib Imports WMOSRCHLib + Public Class ClassPMWindream Inherits ClassWindream_allgemein 'Private email As New ClassNIEmail diff --git a/app/DD_PM_WINDREAM/ClassSQLEditor.vb b/app/DD_PM_WINDREAM/ClassSQLEditor.vb new file mode 100644 index 0000000..a70dc77 --- /dev/null +++ b/app/DD_PM_WINDREAM/ClassSQLEditor.vb @@ -0,0 +1,30 @@ +Imports System.ComponentModel +Imports System.Drawing.Design +Imports System.Windows.Forms.Design +Imports DD_PM_WINDREAM.InputProperties + +Public Class ClassSQLEditor + Inherits UITypeEditor + + Public Overrides Function GetEditStyle(context As ITypeDescriptorContext) As UITypeEditorEditStyle + Return UITypeEditorEditStyle.Modal + End Function + + Public Overrides Function EditValue(context As ITypeDescriptorContext, provider As IServiceProvider, value As Object) As Object + 'Return MyBase.EditValue(context, provider, value) + Dim svc As IWindowsFormsEditorService = TryCast(provider.GetService(GetType(IWindowsFormsEditorService)), IWindowsFormsEditorService) + Dim SQLSTring As String = DirectCast(value, SQLValue).Value + + If svc IsNot Nothing AndAlso SQLSTring IsNot Nothing Then + Using Form As New frmSQL_DESIGNER() + Form.Value = SQLSTring + If svc.ShowDialog(Form) = DialogResult.OK Then + Dim sql As New SQLValue(Form.Value) + value = sql + End If + End Using + End If + + Return value + End Function +End Class diff --git a/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj b/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj index 6479038..d8beaa7 100644 --- a/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj +++ b/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj @@ -1,5 +1,5 @@  - + Debug x86 @@ -13,7 +13,7 @@ DD_PM_WINDREAM 512 WindowsForms - v4.0 + v4.5.1 @@ -27,6 +27,7 @@ DD_PM_WINDREAM.xml 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 false + UnusedCode.ruleset x86 @@ -55,6 +56,10 @@ PM_ohne_slogan_128px.ico + + False + ..\..\..\DDLibStandards\DD_LIB_Standards\bin\Debug\DD_LIB_Standards.dll + False @@ -109,7 +114,7 @@ D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.XtraTreeList.v15.2.dll - ..\..\..\LizenzManager\LizenzManager\bin\Debug\DLLLicenseManager.dll + P:\Visual Studio Projekte\Bibliotheken\DLLLicenseManager.dll False @@ -151,6 +156,7 @@ + frmAbout.vb @@ -269,6 +275,8 @@ Form + + diff --git a/app/DD_PM_WINDREAM/ModuleControlProperties.vb b/app/DD_PM_WINDREAM/ModuleControlProperties.vb new file mode 100644 index 0000000..626cce7 --- /dev/null +++ b/app/DD_PM_WINDREAM/ModuleControlProperties.vb @@ -0,0 +1,329 @@ +Imports System.ComponentModel +Imports System.Drawing.Design +Imports System.Globalization + +Public Module ModuleControlProperties + Public Enum IndexTypes + SimpleIndex = 0 + VectorIndex = 1 + End Enum + + Public Class BaseProperties + Private _id As Integer + Private _name As String + Private _location As Point + Private _size As Size + Private _font As Font + Private _text_color As Color + + + <[ReadOnly](True)> + Public Property ID() As Integer + Get + Return _id + End Get + Set(value As Integer) + _id = value + End Set + End Property + + + Public Property Name() As String + Get + Return _name + End Get + Set(value As String) + _name = value + End Set + End Property + + + Public Property Location() As Point + Get + Return _location + End Get + Set(value As Point) + _location = value + End Set + End Property + + + Public Property Size() As Size + Get + Return _size + End Get + Set(value As Size) + _size = value + End Set + End Property + + + + Public Property Font As Font + Get + Return _font + End Get + Set(value As Font) + _font = value + End Set + End Property + + + Public Property TextColor As Color + Get + Return _text_color + End Get + Set(value As Color) + _text_color = value + End Set + End Property + + Class FontConverter + Inherits TypeConverter + + Public Overrides Function ConvertTo(context As ITypeDescriptorContext, culture As CultureInfo, value As Object, destinationType As Type) As Object + Dim font = DirectCast(value, Font) + Return $"{font.Name}, {font.Size}" + End Function + End Class + End Class + + Public Class InputProperties + Inherits BaseProperties + + Private _required As Boolean + Private _read_only As Boolean + Private _index_type As String + Private _indicies As List(Of String) + Private _index As String + Private _sql_command As String + + Public Property Required() As Boolean + Get + Return _required + End Get + Set(ByVal value As Boolean) + _required = value + End Set + End Property + + Public Property [ReadOnly]() As Boolean + Get + Return _read_only + End Get + Set(ByVal value As Boolean) + _read_only = value + End Set + End Property + + + Public Property IndexType() As IndexTypes + Get + Return _index_type + End Get + Set(ByVal value As IndexTypes) + _index_type = value + End Set + End Property + + ''' + ''' Diese Eigenschaft enthält die auswählbaren Indicies, die für das Control verfügbar sind. Wird nicht direkt angezeigt. + ''' + + Public Property Indicies() As List(Of String) + Get + Return _indicies + End Get + Set(ByVal value As List(Of String)) + _indicies = value + End Set + End Property + + ''' + ''' Diese Eigenschaft enthält des ausgewählten Index + ''' + + + Public Property Index() As String + Get + Return _index + End Get + Set(value As String) + _index = value + End Set + End Property + + + Public Property SQLCommand() As SQLValue + Get + Return New SQLValue(NotNull(_sql_command, "")) + End Get + Set(ByVal value As SQLValue) + _sql_command = value.Value + End Set + End Property + + ''' + ''' Sorgt dafür, dass die Liste von Indicies aus dem gleichnamigen Feld ausgelesen wird + ''' + Public Class IndexListConverter + Inherits TypeConverter + + Public Overrides Function GetStandardValuesSupported(context As ITypeDescriptorContext) As Boolean + Return True + End Function + + Public Overrides Function GetStandardValues(context As ITypeDescriptorContext) As StandardValuesCollection + Dim indexList = DirectCast(context.Instance, InputProperties).Indicies + Dim values As New StandardValuesCollection(indexList) + Return values + End Function + + Public Overrides Function ConvertTo(context As ITypeDescriptorContext, culture As CultureInfo, value As Object, destinationType As Type) As Object + If IsNothing(value) Then + Return "" + Else + Return value.ToString() + End If + End Function + End Class + + Public Class SQLTypeConverter + Inherits TypeConverter + + Public Overrides Function ConvertTo(context As ITypeDescriptorContext, culture As Globalization.CultureInfo, value As Object, destinationType As Type) As Object + 'Return MyBase.ConvertTo(context, culture, value, destinationType) + Dim sqlvalue As SQLValue = DirectCast(value, SQLValue) + Return sqlvalue.Value + End Function + End Class + + ''' + ''' Hilfsklasse, die für das anzeigen und abspeichern von SQL-Befehlen verwendet wird + ''' + + + Public Class SQLValue + Private _value As String + + Public Sub New(value As String) + Me.Value = value + End Sub + + Public Property Value As String + Get + Return _value + End Get + Set(value As String) + _value = value + End Set + End Property + End Class + End Class + + Public Class TextboxProperties + Inherits InputProperties + + End Class + + Public Class LabelProperties + Inherits BaseProperties + + Private _text As String + + + Public Property Text() As String + Get + Return _text + End Get + Set(value As String) + _text = value + End Set + End Property + End Class + + Public Class CheckboxProperties + Inherits InputProperties + + Private _text As String + + + Public Property Text() As String + Get + Return _text + End Get + Set(value As String) + _text = value + End Set + End Property + End Class + + Public Class ComboboxProperties + Inherits InputProperties + + Private _text As String + Private _choice_list As String + Private _choice_lists As List(Of String) + + + Public Property Text() As String + Get + Return _text + End Get + Set(value As String) + _text = value + End Set + End Property + + + Public Property ChoiceLists() As List(Of String) + Get + Return _choice_lists + End Get + Set(value As List(Of String)) + _choice_lists = value + End Set + End Property + + + + Public Property ChoiceList() As String + Get + Return _choice_list + End Get + Set(value As String) + _choice_list = value + End Set + End Property + + Public Class ChoiceListConverter + Inherits TypeConverter + + Public Overrides Function GetStandardValuesSupported(context As ITypeDescriptorContext) As Boolean + Return True + End Function + + Public Overrides Function GetStandardValues(context As ITypeDescriptorContext) As StandardValuesCollection + Dim choiceListList = DirectCast(context.Instance, ComboboxProperties).ChoiceLists + Dim values As New StandardValuesCollection(choiceListList) + Return values + End Function + + Public Overrides Function ConvertTo(context As ITypeDescriptorContext, culture As CultureInfo, value As Object, destinationType As Type) As Object + If IsNothing(value) Then + Return "" + Else + Return value.ToString() + End If + End Function + End Class + End Class + + Public Class DatepickerProperties + Inherits InputProperties + End Class + + Public Class GridViewProperties + Inherits InputProperties + End Class +End Module diff --git a/app/DD_PM_WINDREAM/ModuleHelperMethods.vb b/app/DD_PM_WINDREAM/ModuleHelperMethods.vb new file mode 100644 index 0000000..0a95b6b --- /dev/null +++ b/app/DD_PM_WINDREAM/ModuleHelperMethods.vb @@ -0,0 +1,50 @@ +Module ModuleHelperMethods + ''' + ''' Überprüft einen Wert auf verschiedene Arten von "Null"-Werten + ''' + ''' Der zu überprüfende Wert + ''' Der Standard Wert + ''' value oder wenn dieser "Null" ist, defaultValue + Public Function NotNull(Of T)(ByVal value As T, ByVal defaultValue As T) As T + If IsNothing(value) OrElse String.IsNullOrEmpty(value.ToString) OrElse IsDBNull(value) Then + Return defaultValue + Else + Return value + End If + End Function + + ''' + ''' Versucht einen String in einen Boolean zu konvertieren + ''' + ''' Der zu konvertierende String + ''' Den umgewandelten Wert oder Falsche + Public Function StrToBool(str As Object) As Boolean + Dim result As Boolean = False + + str = TryCast(str, String) + + Try + result = Convert.ToBoolean(str) + Catch ex As Exception + result = False + End Try + + Return result + End Function + + ''' + ''' Konvertiert eine Farbe in den entsprechenden Integer Wert + ''' + Public Function ColorToInt(color As Color) As Integer + Return ColorTranslator.ToWin32(color) + End Function + + ''' + ''' Konvertiert eine Zahl in die entsprechende Farbe + ''' + Public Function IntToColor(int As Integer) As Color + Return ColorTranslator.FromWin32(int) + End Function +End Module + + diff --git a/app/DD_PM_WINDREAM/My Project/Application.Designer.vb b/app/DD_PM_WINDREAM/My Project/Application.Designer.vb index b89a52d..c74e261 100644 --- a/app/DD_PM_WINDREAM/My Project/Application.Designer.vb +++ b/app/DD_PM_WINDREAM/My Project/Application.Designer.vb @@ -1,7 +1,7 @@ '------------------------------------------------------------------------------ ' ' Dieser Code wurde von einem Tool generiert. -' Laufzeitversion:4.0.30319.34014 +' Laufzeitversion:4.0.30319.42000 ' ' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn ' der Code erneut generiert wird. @@ -14,8 +14,8 @@ Option Explicit On Namespace My - 'HINWEIS: Diese Datei wird automatisch generiert. Ändern Sie sie nicht direkt. Zum Ändern - ' oder bei in dieser Datei auftretenden Buildfehlern wechseln Sie zum Projekt-Designer. + 'HINWEIS: Diese Datei wird automatisch generiert und darf nicht direkt bearbeitet werden. Wenn Sie Änderungen vornehmen möchten + ' oder in dieser Datei Buildfehler auftreten, wechseln Sie zum Projekt-Designer. ' (Wechseln Sie dazu zu den Projekteigenschaften, oder doppelklicken Sie auf den Knoten "Mein Projekt" im ' Projektmappen-Explorer). Nehmen Sie auf der Registerkarte "Anwendung" entsprechende Änderungen vor. ' diff --git a/app/DD_PM_WINDREAM/UnusedCode.ruleset b/app/DD_PM_WINDREAM/UnusedCode.ruleset new file mode 100644 index 0000000..12af0f7 --- /dev/null +++ b/app/DD_PM_WINDREAM/UnusedCode.ruleset @@ -0,0 +1,13 @@ + + + + + + + + + + + + + \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmFormDesigner.Designer.vb b/app/DD_PM_WINDREAM/frmFormDesigner.Designer.vb index 36afcc6..33db3c8 100644 --- a/app/DD_PM_WINDREAM/frmFormDesigner.Designer.vb +++ b/app/DD_PM_WINDREAM/frmFormDesigner.Designer.vb @@ -23,24 +23,12 @@ Partial Class frmFormDesigner _ Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() - Dim X_LOCLabel As System.Windows.Forms.Label - Dim Y_LOCLabel As System.Windows.Forms.Label Dim CHANGED_WHOLabel As System.Windows.Forms.Label Dim CHANGED_WHENLabel As System.Windows.Forms.Label - Dim HEIGHTLabel As System.Windows.Forms.Label - Dim WIDTHLabel As System.Windows.Forms.Label - Dim GUIDLabel As System.Windows.Forms.Label Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFormDesigner)) Me.Panel1 = New System.Windows.Forms.Panel() Me.lblDesign = New System.Windows.Forms.Label() Me.GroupBox1 = New System.Windows.Forms.GroupBox() - Me.btnTabelle = New System.Windows.Forms.Button() - Me.btnCheckbox = New System.Windows.Forms.Button() - Me.btnVektor = New System.Windows.Forms.Button() - Me.btndtp = New System.Windows.Forms.Button() - Me.btncmb = New System.Windows.Forms.Button() - Me.btntextbox = New System.Windows.Forms.Button() - Me.btnlabel = New System.Windows.Forms.Button() Me.pnldesigner = New System.Windows.Forms.Panel() Me.Label1 = New System.Windows.Forms.Label() Me.lblhintergrund = New System.Windows.Forms.Label() @@ -48,8 +36,6 @@ Partial Class frmFormDesigner Me.TabControlEigenschaften = New System.Windows.Forms.TabControl() Me.TabPage1 = New System.Windows.Forms.TabPage() Me.LOAD_IDX_VALUECheckBox = New System.Windows.Forms.CheckBox() - Me.TBPM_PROFILE_CONTROLSBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.DD_DMSLiteDataSet = New DD_PM_WINDREAM.DD_DMSLiteDataSet() Me.READ_ONLYCheckBox = New System.Windows.Forms.CheckBox() Me.INDEX_NAME_VALUE = New System.Windows.Forms.TextBox() Me.rbVektor = New System.Windows.Forms.RadioButton() @@ -66,90 +52,72 @@ Partial Class frmFormDesigner Me.lblAuswahlliste = New System.Windows.Forms.Label() Me.INDEX_NAMETextBox = New System.Windows.Forms.TextBox() Me.TabPage2 = New System.Windows.Forms.TabPage() - Me.btnheight_minus = New System.Windows.Forms.Button() - Me.btnheight_plus = New System.Windows.Forms.Button() Me.Label3 = New System.Windows.Forms.Label() - Me.btnwidth_minus = New System.Windows.Forms.Button() - Me.btnwidth_plus = New System.Windows.Forms.Button() Me.Label2 = New System.Windows.Forms.Label() Me.TabPage3 = New System.Windows.Forms.TabPage() Me.pnlAuswahlliste = New System.Windows.Forms.Panel() - Me.btnEditor = New System.Windows.Forms.Button() - Me.btnShowConnections = New System.Windows.Forms.Button() Me.SQL_CommandTextBox = New System.Windows.Forms.TextBox() Me.Label5 = New System.Windows.Forms.Label() Me.Label4 = New System.Windows.Forms.Label() Me.cmbConnection = New System.Windows.Forms.ComboBox() + Me.TabPage4 = New System.Windows.Forms.TabPage() + Me.pgControls = New System.Windows.Forms.PropertyGrid() + Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox() + Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() + Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox() + Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) + Me.TBPM_PROFILE_CONTROLSBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.DD_DMSLiteDataSet = New DD_PM_WINDREAM.DD_DMSLiteDataSet() + Me.btnrefresh = New System.Windows.Forms.Button() + Me.tslblAenderungen = New System.Windows.Forms.ToolStripStatusLabel() + Me.btnheight_minus = New System.Windows.Forms.Button() + Me.btnheight_plus = New System.Windows.Forms.Button() + Me.btnwidth_minus = New System.Windows.Forms.Button() + Me.btnwidth_plus = New System.Windows.Forms.Button() + Me.btnEditor = New System.Windows.Forms.Button() + Me.btnShowConnections = New System.Windows.Forms.Button() Me.TBPM_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.btndelete = New System.Windows.Forms.Button() Me.btnsave = New System.Windows.Forms.Button() - Me.X_LOCTextBox = New System.Windows.Forms.TextBox() - Me.Y_LOCTextBox = New System.Windows.Forms.TextBox() - Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox() + Me.btnTabelle = New System.Windows.Forms.Button() + Me.btnCheckbox = New System.Windows.Forms.Button() + Me.btnVektor = New System.Windows.Forms.Button() + Me.btndtp = New System.Windows.Forms.Button() + Me.btncmb = New System.Windows.Forms.Button() + Me.btntextbox = New System.Windows.Forms.Button() + Me.btnlabel = New System.Windows.Forms.Button() Me.TBPM_PROFILE_CONTROLSTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_CONTROLSTableAdapter() Me.TableAdapterManager = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() - Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() - Me.tslblAenderungen = New System.Windows.Forms.ToolStripStatusLabel() - Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox() - Me.HEIGHTTextBox = New System.Windows.Forms.TextBox() - Me.WIDTHTextBox = New System.Windows.Forms.TextBox() Me.TBPM_CONNECTIONTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_CONNECTIONTableAdapter() Me.TBWH_CHECK_PROFILE_CONTROLSBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBWH_CHECK_PROFILE_CONTROLSTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBWH_CHECK_PROFILE_CONTROLSTableAdapter() - Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) Me.TBPM_CONTROL_TABLEBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBPM_CONTROL_TABLETableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_CONTROL_TABLETableAdapter() - Me.btnrefresh = New System.Windows.Forms.Button() - Me.GUIDTextBox = New System.Windows.Forms.TextBox() - X_LOCLabel = New System.Windows.Forms.Label() - Y_LOCLabel = New System.Windows.Forms.Label() CHANGED_WHOLabel = New System.Windows.Forms.Label() CHANGED_WHENLabel = New System.Windows.Forms.Label() - HEIGHTLabel = New System.Windows.Forms.Label() - WIDTHLabel = New System.Windows.Forms.Label() - GUIDLabel = New System.Windows.Forms.Label() Me.Panel1.SuspendLayout() Me.GroupBox1.SuspendLayout() Me.pnldesigner.SuspendLayout() Me.gbxControl.SuspendLayout() Me.TabControlEigenschaften.SuspendLayout() Me.TabPage1.SuspendLayout() - CType(Me.TBPM_PROFILE_CONTROLSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabPage2.SuspendLayout() Me.TabPage3.SuspendLayout() Me.pnlAuswahlliste.SuspendLayout() - CType(Me.TBPM_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPage4.SuspendLayout() Me.StatusStrip1.SuspendLayout() + CType(Me.TBPM_PROFILE_CONTROLSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBPM_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBWH_CHECK_PROFILE_CONTROLSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBPM_CONTROL_TABLEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' - 'X_LOCLabel - ' - X_LOCLabel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - X_LOCLabel.AutoSize = True - X_LOCLabel.Location = New System.Drawing.Point(12, 412) - X_LOCLabel.Name = "X_LOCLabel" - X_LOCLabel.Size = New System.Drawing.Size(72, 16) - X_LOCLabel.TabIndex = 14 - X_LOCLabel.Text = "Location X:" - ' - 'Y_LOCLabel - ' - Y_LOCLabel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Y_LOCLabel.AutoSize = True - Y_LOCLabel.Location = New System.Drawing.Point(134, 412) - Y_LOCLabel.Name = "Y_LOCLabel" - Y_LOCLabel.Size = New System.Drawing.Size(71, 16) - Y_LOCLabel.TabIndex = 16 - Y_LOCLabel.Text = "Location Y:" - ' 'CHANGED_WHOLabel ' CHANGED_WHOLabel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) CHANGED_WHOLabel.AutoSize = True - CHANGED_WHOLabel.Location = New System.Drawing.Point(12, 464) + CHANGED_WHOLabel.Location = New System.Drawing.Point(12, 499) CHANGED_WHOLabel.Name = "CHANGED_WHOLabel" CHANGED_WHOLabel.Size = New System.Drawing.Size(91, 16) CHANGED_WHOLabel.TabIndex = 18 @@ -159,41 +127,12 @@ Partial Class frmFormDesigner ' CHANGED_WHENLabel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) CHANGED_WHENLabel.AutoSize = True - CHANGED_WHENLabel.Location = New System.Drawing.Point(250, 464) + CHANGED_WHENLabel.Location = New System.Drawing.Point(250, 499) CHANGED_WHENLabel.Name = "CHANGED_WHENLabel" CHANGED_WHENLabel.Size = New System.Drawing.Size(98, 16) CHANGED_WHENLabel.TabIndex = 20 CHANGED_WHENLabel.Text = "Changed when:" ' - 'HEIGHTLabel - ' - HEIGHTLabel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - HEIGHTLabel.AutoSize = True - HEIGHTLabel.Location = New System.Drawing.Point(250, 412) - HEIGHTLabel.Name = "HEIGHTLabel" - HEIGHTLabel.Size = New System.Drawing.Size(49, 16) - HEIGHTLabel.TabIndex = 21 - HEIGHTLabel.Text = "Height:" - ' - 'WIDTHLabel - ' - WIDTHLabel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - WIDTHLabel.AutoSize = True - WIDTHLabel.Location = New System.Drawing.Point(328, 412) - WIDTHLabel.Name = "WIDTHLabel" - WIDTHLabel.Size = New System.Drawing.Size(46, 16) - WIDTHLabel.TabIndex = 22 - WIDTHLabel.Text = "Width:" - ' - 'GUIDLabel - ' - GUIDLabel.AutoSize = True - GUIDLabel.Location = New System.Drawing.Point(12, 515) - GUIDLabel.Name = "GUIDLabel" - GUIDLabel.Size = New System.Drawing.Size(25, 16) - GUIDLabel.TabIndex = 24 - GUIDLabel.Text = "ID:" - ' 'Panel1 ' Me.Panel1.Controls.Add(Me.lblDesign) @@ -233,97 +172,6 @@ Partial Class frmFormDesigner Me.GroupBox1.TabStop = False Me.GroupBox1.Text = "Control-Typ (Drag and Drop)" ' - 'btnTabelle - ' - Me.btnTabelle.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnTabelle.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.table_add - Me.btnTabelle.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnTabelle.Location = New System.Drawing.Point(290, 55) - Me.btnTabelle.Name = "btnTabelle" - Me.btnTabelle.Size = New System.Drawing.Size(103, 29) - Me.btnTabelle.TabIndex = 6 - Me.btnTabelle.Text = "Tabelle" - Me.btnTabelle.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnTabelle.UseVisualStyleBackColor = True - ' - 'btnCheckbox - ' - Me.btnCheckbox.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnCheckbox.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.checkbox_16xLG - Me.btnCheckbox.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnCheckbox.Location = New System.Drawing.Point(151, 90) - Me.btnCheckbox.Name = "btnCheckbox" - Me.btnCheckbox.Size = New System.Drawing.Size(133, 31) - Me.btnCheckbox.TabIndex = 5 - Me.btnCheckbox.Text = "Checkbox" - Me.btnCheckbox.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnCheckbox.UseVisualStyleBackColor = True - ' - 'btnVektor - ' - Me.btnVektor.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnVektor.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.table_add - Me.btnVektor.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnVektor.Location = New System.Drawing.Point(151, 55) - Me.btnVektor.Name = "btnVektor" - Me.btnVektor.Size = New System.Drawing.Size(133, 29) - Me.btnVektor.TabIndex = 4 - Me.btnVektor.Text = "Mehrfach-/Vektorfeld" - Me.btnVektor.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnVektor.UseVisualStyleBackColor = True - ' - 'btndtp - ' - Me.btndtp.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btndtp.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.DateOrTimePicker_675 - Me.btndtp.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btndtp.Location = New System.Drawing.Point(151, 22) - Me.btndtp.Name = "btndtp" - Me.btndtp.Size = New System.Drawing.Size(133, 27) - Me.btndtp.TabIndex = 3 - Me.btndtp.Text = "DatePicker" - Me.btndtp.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btndtp.UseVisualStyleBackColor = True - ' - 'btncmb - ' - Me.btncmb.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btncmb.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.ComboBox_16xLG - Me.btncmb.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btncmb.Location = New System.Drawing.Point(12, 90) - Me.btncmb.Name = "btncmb" - Me.btncmb.Size = New System.Drawing.Size(133, 31) - Me.btncmb.TabIndex = 2 - Me.btncmb.Text = "Combobox" - Me.btncmb.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btncmb.UseVisualStyleBackColor = True - ' - 'btntextbox - ' - Me.btntextbox.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btntextbox.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.TextBox_708 - Me.btntextbox.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btntextbox.Location = New System.Drawing.Point(13, 55) - Me.btntextbox.Name = "btntextbox" - Me.btntextbox.Size = New System.Drawing.Size(133, 29) - Me.btntextbox.TabIndex = 1 - Me.btntextbox.Text = "Textbox" - Me.btntextbox.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btntextbox.UseVisualStyleBackColor = True - ' - 'btnlabel - ' - Me.btnlabel.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnlabel.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.Label_684 - Me.btnlabel.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnlabel.Location = New System.Drawing.Point(12, 22) - Me.btnlabel.Name = "btnlabel" - Me.btnlabel.Size = New System.Drawing.Size(133, 27) - Me.btnlabel.TabIndex = 0 - Me.btnlabel.Text = "Label" - Me.btnlabel.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnlabel.UseVisualStyleBackColor = True - ' 'pnldesigner ' Me.pnldesigner.AllowDrop = True @@ -384,6 +232,7 @@ Partial Class frmFormDesigner Me.TabControlEigenschaften.Controls.Add(Me.TabPage1) Me.TabControlEigenschaften.Controls.Add(Me.TabPage2) Me.TabControlEigenschaften.Controls.Add(Me.TabPage3) + Me.TabControlEigenschaften.Controls.Add(Me.TabPage4) Me.TabControlEigenschaften.Location = New System.Drawing.Point(12, 22) Me.TabControlEigenschaften.Name = "TabControlEigenschaften" Me.TabControlEigenschaften.SelectedIndex = 0 @@ -429,16 +278,6 @@ Partial Class frmFormDesigner Me.ToolTip1.SetToolTip(Me.LOAD_IDX_VALUECheckBox, "Die im zugrundeliegenden Index gepeicherten" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Daten werden nicht angezeigt") Me.LOAD_IDX_VALUECheckBox.UseVisualStyleBackColor = True ' - 'TBPM_PROFILE_CONTROLSBindingSource - ' - Me.TBPM_PROFILE_CONTROLSBindingSource.DataMember = "TBPM_PROFILE_CONTROLS" - Me.TBPM_PROFILE_CONTROLSBindingSource.DataSource = Me.DD_DMSLiteDataSet - ' - 'DD_DMSLiteDataSet - ' - Me.DD_DMSLiteDataSet.DataSetName = "DD_DMSLiteDataSet" - Me.DD_DMSLiteDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema - ' 'READ_ONLYCheckBox ' Me.READ_ONLYCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBPM_PROFILE_CONTROLSBindingSource, "READ_ONLY", True)) @@ -594,7 +433,7 @@ Partial Class frmFormDesigner ' 'INDEX_NAMETextBox ' - Me.INDEX_NAMETextBox.Location = New System.Drawing.Point(6, 104) + Me.INDEX_NAMETextBox.Location = New System.Drawing.Point(6, 103) Me.INDEX_NAMETextBox.Name = "INDEX_NAMETextBox" Me.INDEX_NAMETextBox.Size = New System.Drawing.Size(319, 23) Me.INDEX_NAMETextBox.TabIndex = 16 @@ -605,9 +444,9 @@ Partial Class frmFormDesigner Me.TabPage2.Controls.Add(Me.btnheight_minus) Me.TabPage2.Controls.Add(Me.btnheight_plus) Me.TabPage2.Controls.Add(Me.Label3) + Me.TabPage2.Controls.Add(Me.Label2) Me.TabPage2.Controls.Add(Me.btnwidth_minus) Me.TabPage2.Controls.Add(Me.btnwidth_plus) - Me.TabPage2.Controls.Add(Me.Label2) Me.TabPage2.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.TabPage2.Location = New System.Drawing.Point(4, 25) Me.TabPage2.Name = "TabPage2" @@ -617,32 +456,6 @@ Partial Class frmFormDesigner Me.TabPage2.Text = "Format" Me.TabPage2.UseVisualStyleBackColor = True ' - 'btnheight_minus - ' - Me.btnheight_minus.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnheight_minus.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.zoom_out - Me.btnheight_minus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnheight_minus.Location = New System.Drawing.Point(94, 69) - Me.btnheight_minus.Name = "btnheight_minus" - Me.btnheight_minus.Size = New System.Drawing.Size(75, 25) - Me.btnheight_minus.TabIndex = 1 - Me.btnheight_minus.Text = "kleiner" - Me.btnheight_minus.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnheight_minus.UseVisualStyleBackColor = True - ' - 'btnheight_plus - ' - Me.btnheight_plus.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnheight_plus.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.zoom_in - Me.btnheight_plus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnheight_plus.Location = New System.Drawing.Point(13, 69) - Me.btnheight_plus.Name = "btnheight_plus" - Me.btnheight_plus.Size = New System.Drawing.Size(75, 25) - Me.btnheight_plus.TabIndex = 0 - Me.btnheight_plus.Text = "größer" - Me.btnheight_plus.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnheight_plus.UseVisualStyleBackColor = True - ' 'Label3 ' Me.Label3.AutoSize = True @@ -652,32 +465,6 @@ Partial Class frmFormDesigner Me.Label3.TabIndex = 5 Me.Label3.Text = "Höhe:" ' - 'btnwidth_minus - ' - Me.btnwidth_minus.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnwidth_minus.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.zoom_out - Me.btnwidth_minus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnwidth_minus.Location = New System.Drawing.Point(94, 22) - Me.btnwidth_minus.Name = "btnwidth_minus" - Me.btnwidth_minus.Size = New System.Drawing.Size(75, 25) - Me.btnwidth_minus.TabIndex = 1 - Me.btnwidth_minus.Text = "kleiner" - Me.btnwidth_minus.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnwidth_minus.UseVisualStyleBackColor = True - ' - 'btnwidth_plus - ' - Me.btnwidth_plus.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnwidth_plus.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.zoom_in - Me.btnwidth_plus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnwidth_plus.Location = New System.Drawing.Point(13, 22) - Me.btnwidth_plus.Name = "btnwidth_plus" - Me.btnwidth_plus.Size = New System.Drawing.Size(75, 25) - Me.btnwidth_plus.TabIndex = 0 - Me.btnwidth_plus.Text = "größer" - Me.btnwidth_plus.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnwidth_plus.UseVisualStyleBackColor = True - ' 'Label2 ' Me.Label2.AutoSize = True @@ -713,33 +500,6 @@ Partial Class frmFormDesigner Me.pnlAuswahlliste.Size = New System.Drawing.Size(441, 228) Me.pnlAuswahlliste.TabIndex = 2 ' - 'btnEditor - ' - Me.btnEditor.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Me.btnEditor.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnEditor.Image = CType(resources.GetObject("btnEditor.Image"), System.Drawing.Image) - Me.btnEditor.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnEditor.Location = New System.Drawing.Point(6, 197) - Me.btnEditor.Name = "btnEditor" - Me.btnEditor.Size = New System.Drawing.Size(114, 28) - Me.btnEditor.TabIndex = 81 - Me.btnEditor.Text = "Editor Detail" - Me.btnEditor.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnEditor.UseVisualStyleBackColor = True - ' - 'btnShowConnections - ' - Me.btnShowConnections.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnShowConnections.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.database_go1 - Me.btnShowConnections.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnShowConnections.Location = New System.Drawing.Point(271, 30) - Me.btnShowConnections.Name = "btnShowConnections" - Me.btnShowConnections.Size = New System.Drawing.Size(111, 24) - Me.btnShowConnections.TabIndex = 6 - Me.btnShowConnections.Text = "Connections" - Me.btnShowConnections.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnShowConnections.UseVisualStyleBackColor = True - ' 'SQL_CommandTextBox ' Me.SQL_CommandTextBox.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ @@ -786,6 +546,162 @@ Partial Class frmFormDesigner Me.cmbConnection.TabIndex = 0 Me.cmbConnection.ValueMember = "GUID" ' + 'TabPage4 + ' + Me.TabPage4.Controls.Add(Me.pgControls) + Me.TabPage4.Location = New System.Drawing.Point(4, 22) + Me.TabPage4.Name = "TabPage4" + Me.TabPage4.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage4.Size = New System.Drawing.Size(447, 237) + Me.TabPage4.TabIndex = 3 + Me.TabPage4.Text = "Eigenschaften" + Me.TabPage4.UseVisualStyleBackColor = True + ' + 'pgControls + ' + Me.pgControls.Dock = System.Windows.Forms.DockStyle.Fill + Me.pgControls.HelpVisible = False + Me.pgControls.Location = New System.Drawing.Point(3, 3) + Me.pgControls.Name = "pgControls" + Me.pgControls.Size = New System.Drawing.Size(441, 228) + Me.pgControls.TabIndex = 0 + ' + 'CHANGED_WHOTextBox + ' + Me.CHANGED_WHOTextBox.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILE_CONTROLSBindingSource, "CHANGED_WHO", True)) + Me.CHANGED_WHOTextBox.Location = New System.Drawing.Point(15, 518) + Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox" + Me.CHANGED_WHOTextBox.Size = New System.Drawing.Size(222, 23) + Me.CHANGED_WHOTextBox.TabIndex = 19 + ' + 'StatusStrip1 + ' + Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblAenderungen}) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 556) + Me.StatusStrip1.Name = "StatusStrip1" + Me.StatusStrip1.Size = New System.Drawing.Size(995, 22) + Me.StatusStrip1.TabIndex = 20 + Me.StatusStrip1.Text = "StatusStrip1" + ' + 'CHANGED_WHENTextBox + ' + Me.CHANGED_WHENTextBox.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILE_CONTROLSBindingSource, "CHANGED_WHEN", True)) + Me.CHANGED_WHENTextBox.Location = New System.Drawing.Point(253, 518) + Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox" + Me.CHANGED_WHENTextBox.Size = New System.Drawing.Size(159, 23) + Me.CHANGED_WHENTextBox.TabIndex = 21 + ' + 'TBPM_PROFILE_CONTROLSBindingSource + ' + Me.TBPM_PROFILE_CONTROLSBindingSource.DataMember = "TBPM_PROFILE_CONTROLS" + Me.TBPM_PROFILE_CONTROLSBindingSource.DataSource = Me.DD_DMSLiteDataSet + ' + 'DD_DMSLiteDataSet + ' + Me.DD_DMSLiteDataSet.DataSetName = "DD_DMSLiteDataSet" + Me.DD_DMSLiteDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'btnrefresh + ' + Me.btnrefresh.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.arrow_refresh + Me.btnrefresh.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnrefresh.Location = New System.Drawing.Point(415, 41) + Me.btnrefresh.Name = "btnrefresh" + Me.btnrefresh.Size = New System.Drawing.Size(81, 23) + Me.btnrefresh.TabIndex = 24 + Me.btnrefresh.Text = "Refresh" + Me.btnrefresh.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnrefresh.UseVisualStyleBackColor = True + ' + 'tslblAenderungen + ' + Me.tslblAenderungen.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.flag_red + Me.tslblAenderungen.Name = "tslblAenderungen" + Me.tslblAenderungen.Size = New System.Drawing.Size(153, 17) + Me.tslblAenderungen.Text = "Änderungen gespeichert" + Me.tslblAenderungen.Visible = False + ' + 'btnheight_minus + ' + Me.btnheight_minus.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnheight_minus.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.zoom_out + Me.btnheight_minus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnheight_minus.Location = New System.Drawing.Point(94, 69) + Me.btnheight_minus.Name = "btnheight_minus" + Me.btnheight_minus.Size = New System.Drawing.Size(75, 25) + Me.btnheight_minus.TabIndex = 1 + Me.btnheight_minus.Text = "kleiner" + Me.btnheight_minus.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnheight_minus.UseVisualStyleBackColor = True + ' + 'btnheight_plus + ' + Me.btnheight_plus.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnheight_plus.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.zoom_in + Me.btnheight_plus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnheight_plus.Location = New System.Drawing.Point(13, 69) + Me.btnheight_plus.Name = "btnheight_plus" + Me.btnheight_plus.Size = New System.Drawing.Size(75, 25) + Me.btnheight_plus.TabIndex = 0 + Me.btnheight_plus.Text = "größer" + Me.btnheight_plus.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnheight_plus.UseVisualStyleBackColor = True + ' + 'btnwidth_minus + ' + Me.btnwidth_minus.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnwidth_minus.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.zoom_out + Me.btnwidth_minus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnwidth_minus.Location = New System.Drawing.Point(94, 22) + Me.btnwidth_minus.Name = "btnwidth_minus" + Me.btnwidth_minus.Size = New System.Drawing.Size(75, 25) + Me.btnwidth_minus.TabIndex = 1 + Me.btnwidth_minus.Text = "kleiner" + Me.btnwidth_minus.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnwidth_minus.UseVisualStyleBackColor = True + ' + 'btnwidth_plus + ' + Me.btnwidth_plus.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnwidth_plus.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.zoom_in + Me.btnwidth_plus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnwidth_plus.Location = New System.Drawing.Point(13, 22) + Me.btnwidth_plus.Name = "btnwidth_plus" + Me.btnwidth_plus.Size = New System.Drawing.Size(75, 25) + Me.btnwidth_plus.TabIndex = 0 + Me.btnwidth_plus.Text = "größer" + Me.btnwidth_plus.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnwidth_plus.UseVisualStyleBackColor = True + ' + 'btnEditor + ' + Me.btnEditor.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.btnEditor.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnEditor.Image = CType(resources.GetObject("btnEditor.Image"), System.Drawing.Image) + Me.btnEditor.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnEditor.Location = New System.Drawing.Point(6, 197) + Me.btnEditor.Name = "btnEditor" + Me.btnEditor.Size = New System.Drawing.Size(114, 28) + Me.btnEditor.TabIndex = 81 + Me.btnEditor.Text = "Editor Detail" + Me.btnEditor.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnEditor.UseVisualStyleBackColor = True + ' + 'btnShowConnections + ' + Me.btnShowConnections.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnShowConnections.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.database_go1 + Me.btnShowConnections.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnShowConnections.Location = New System.Drawing.Point(271, 30) + Me.btnShowConnections.Name = "btnShowConnections" + Me.btnShowConnections.Size = New System.Drawing.Size(111, 24) + Me.btnShowConnections.TabIndex = 6 + Me.btnShowConnections.Text = "Connections" + Me.btnShowConnections.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnShowConnections.UseVisualStyleBackColor = True + ' 'TBPM_CONNECTIONBindingSource ' Me.TBPM_CONNECTIONBindingSource.DataMember = "TBPM_CONNECTION" @@ -818,34 +734,96 @@ Partial Class frmFormDesigner Me.btnsave.UseVisualStyleBackColor = True Me.btnsave.Visible = False ' - 'X_LOCTextBox + 'btnTabelle ' - Me.X_LOCTextBox.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Me.X_LOCTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILE_CONTROLSBindingSource, "X_LOC", True)) - Me.X_LOCTextBox.Location = New System.Drawing.Point(15, 431) - Me.X_LOCTextBox.Name = "X_LOCTextBox" - Me.X_LOCTextBox.ReadOnly = True - Me.X_LOCTextBox.Size = New System.Drawing.Size(100, 23) - Me.X_LOCTextBox.TabIndex = 15 + Me.btnTabelle.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnTabelle.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.table_add + Me.btnTabelle.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnTabelle.Location = New System.Drawing.Point(290, 55) + Me.btnTabelle.Name = "btnTabelle" + Me.btnTabelle.Size = New System.Drawing.Size(103, 29) + Me.btnTabelle.TabIndex = 6 + Me.btnTabelle.Text = "Tabelle" + Me.btnTabelle.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnTabelle.UseVisualStyleBackColor = True ' - 'Y_LOCTextBox + 'btnCheckbox ' - Me.Y_LOCTextBox.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Me.Y_LOCTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILE_CONTROLSBindingSource, "Y_LOC", True)) - Me.Y_LOCTextBox.Location = New System.Drawing.Point(137, 431) - Me.Y_LOCTextBox.Name = "Y_LOCTextBox" - Me.Y_LOCTextBox.ReadOnly = True - Me.Y_LOCTextBox.Size = New System.Drawing.Size(100, 23) - Me.Y_LOCTextBox.TabIndex = 17 + Me.btnCheckbox.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnCheckbox.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.checkbox_16xLG + Me.btnCheckbox.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnCheckbox.Location = New System.Drawing.Point(151, 90) + Me.btnCheckbox.Name = "btnCheckbox" + Me.btnCheckbox.Size = New System.Drawing.Size(133, 31) + Me.btnCheckbox.TabIndex = 5 + Me.btnCheckbox.Text = "Checkbox" + Me.btnCheckbox.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnCheckbox.UseVisualStyleBackColor = True ' - 'CHANGED_WHOTextBox + 'btnVektor ' - Me.CHANGED_WHOTextBox.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILE_CONTROLSBindingSource, "CHANGED_WHO", True)) - Me.CHANGED_WHOTextBox.Location = New System.Drawing.Point(15, 483) - Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox" - Me.CHANGED_WHOTextBox.Size = New System.Drawing.Size(222, 23) - Me.CHANGED_WHOTextBox.TabIndex = 19 + Me.btnVektor.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnVektor.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.table_add + Me.btnVektor.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnVektor.Location = New System.Drawing.Point(151, 55) + Me.btnVektor.Name = "btnVektor" + Me.btnVektor.Size = New System.Drawing.Size(133, 29) + Me.btnVektor.TabIndex = 4 + Me.btnVektor.Text = "Mehrfach-/Vektorfeld" + Me.btnVektor.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnVektor.UseVisualStyleBackColor = True + ' + 'btndtp + ' + Me.btndtp.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btndtp.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.DateOrTimePicker_675 + Me.btndtp.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btndtp.Location = New System.Drawing.Point(151, 22) + Me.btndtp.Name = "btndtp" + Me.btndtp.Size = New System.Drawing.Size(133, 27) + Me.btndtp.TabIndex = 3 + Me.btndtp.Text = "DatePicker" + Me.btndtp.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btndtp.UseVisualStyleBackColor = True + ' + 'btncmb + ' + Me.btncmb.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btncmb.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.ComboBox_16xLG + Me.btncmb.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btncmb.Location = New System.Drawing.Point(12, 90) + Me.btncmb.Name = "btncmb" + Me.btncmb.Size = New System.Drawing.Size(133, 31) + Me.btncmb.TabIndex = 2 + Me.btncmb.Text = "Combobox" + Me.btncmb.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btncmb.UseVisualStyleBackColor = True + ' + 'btntextbox + ' + Me.btntextbox.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btntextbox.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.TextBox_708 + Me.btntextbox.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btntextbox.Location = New System.Drawing.Point(13, 55) + Me.btntextbox.Name = "btntextbox" + Me.btntextbox.Size = New System.Drawing.Size(133, 29) + Me.btntextbox.TabIndex = 1 + Me.btntextbox.Text = "Textbox" + Me.btntextbox.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btntextbox.UseVisualStyleBackColor = True + ' + 'btnlabel + ' + Me.btnlabel.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnlabel.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.Label_684 + Me.btnlabel.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnlabel.Location = New System.Drawing.Point(12, 22) + Me.btnlabel.Name = "btnlabel" + Me.btnlabel.Size = New System.Drawing.Size(133, 27) + Me.btnlabel.TabIndex = 0 + Me.btnlabel.Text = "Label" + Me.btnlabel.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnlabel.UseVisualStyleBackColor = True ' 'TBPM_PROFILE_CONTROLSTableAdapter ' @@ -867,52 +845,6 @@ Partial Class frmFormDesigner Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' - 'StatusStrip1 - ' - Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblAenderungen}) - Me.StatusStrip1.Location = New System.Drawing.Point(0, 556) - Me.StatusStrip1.Name = "StatusStrip1" - Me.StatusStrip1.Size = New System.Drawing.Size(995, 22) - Me.StatusStrip1.TabIndex = 20 - Me.StatusStrip1.Text = "StatusStrip1" - ' - 'tslblAenderungen - ' - Me.tslblAenderungen.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.flag_red - Me.tslblAenderungen.Name = "tslblAenderungen" - Me.tslblAenderungen.Size = New System.Drawing.Size(153, 17) - Me.tslblAenderungen.Text = "Änderungen gespeichert" - Me.tslblAenderungen.Visible = False - ' - 'CHANGED_WHENTextBox - ' - Me.CHANGED_WHENTextBox.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILE_CONTROLSBindingSource, "CHANGED_WHEN", True)) - Me.CHANGED_WHENTextBox.Location = New System.Drawing.Point(253, 483) - Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox" - Me.CHANGED_WHENTextBox.Size = New System.Drawing.Size(159, 23) - Me.CHANGED_WHENTextBox.TabIndex = 21 - ' - 'HEIGHTTextBox - ' - Me.HEIGHTTextBox.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Me.HEIGHTTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILE_CONTROLSBindingSource, "HEIGHT", True)) - Me.HEIGHTTextBox.Location = New System.Drawing.Point(253, 431) - Me.HEIGHTTextBox.Name = "HEIGHTTextBox" - Me.HEIGHTTextBox.ReadOnly = True - Me.HEIGHTTextBox.Size = New System.Drawing.Size(71, 23) - Me.HEIGHTTextBox.TabIndex = 22 - ' - 'WIDTHTextBox - ' - Me.WIDTHTextBox.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Me.WIDTHTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILE_CONTROLSBindingSource, "WIDTH", True)) - Me.WIDTHTextBox.Location = New System.Drawing.Point(331, 431) - Me.WIDTHTextBox.Name = "WIDTHTextBox" - Me.WIDTHTextBox.ReadOnly = True - Me.WIDTHTextBox.Size = New System.Drawing.Size(81, 23) - Me.WIDTHTextBox.TabIndex = 23 - ' 'TBPM_CONNECTIONTableAdapter ' Me.TBPM_CONNECTIONTableAdapter.ClearBeforeFill = True @@ -935,48 +867,17 @@ Partial Class frmFormDesigner ' Me.TBPM_CONTROL_TABLETableAdapter.ClearBeforeFill = True ' - 'btnrefresh - ' - Me.btnrefresh.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.arrow_refresh - Me.btnrefresh.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnrefresh.Location = New System.Drawing.Point(415, 41) - Me.btnrefresh.Name = "btnrefresh" - Me.btnrefresh.Size = New System.Drawing.Size(81, 23) - Me.btnrefresh.TabIndex = 24 - Me.btnrefresh.Text = "Refresh" - Me.btnrefresh.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnrefresh.UseVisualStyleBackColor = True - ' - 'GUIDTextBox - ' - Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILE_CONTROLSBindingSource, "GUID", True)) - Me.GUIDTextBox.Location = New System.Drawing.Point(43, 512) - Me.GUIDTextBox.Name = "GUIDTextBox" - Me.GUIDTextBox.ReadOnly = True - Me.GUIDTextBox.Size = New System.Drawing.Size(72, 23) - Me.GUIDTextBox.TabIndex = 25 - ' 'frmFormDesigner ' Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(995, 578) - Me.Controls.Add(GUIDLabel) - Me.Controls.Add(Me.GUIDTextBox) Me.Controls.Add(Me.btnrefresh) - Me.Controls.Add(WIDTHLabel) - Me.Controls.Add(Me.WIDTHTextBox) - Me.Controls.Add(HEIGHTLabel) - Me.Controls.Add(Me.HEIGHTTextBox) Me.Controls.Add(CHANGED_WHENLabel) Me.Controls.Add(Me.CHANGED_WHENTextBox) Me.Controls.Add(Me.StatusStrip1) Me.Controls.Add(CHANGED_WHOLabel) Me.Controls.Add(Me.CHANGED_WHOTextBox) - Me.Controls.Add(Y_LOCLabel) - Me.Controls.Add(Me.Y_LOCTextBox) - Me.Controls.Add(X_LOCLabel) - Me.Controls.Add(Me.X_LOCTextBox) Me.Controls.Add(Me.gbxControl) Me.Controls.Add(Me.Panel1) Me.Controls.Add(Me.GroupBox1) @@ -997,16 +898,17 @@ Partial Class frmFormDesigner Me.TabControlEigenschaften.ResumeLayout(False) Me.TabPage1.ResumeLayout(False) Me.TabPage1.PerformLayout() - CType(Me.TBPM_PROFILE_CONTROLSBindingSource, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).EndInit() Me.TabPage2.ResumeLayout(False) Me.TabPage2.PerformLayout() Me.TabPage3.ResumeLayout(False) Me.pnlAuswahlliste.ResumeLayout(False) Me.pnlAuswahlliste.PerformLayout() - CType(Me.TBPM_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage4.ResumeLayout(False) Me.StatusStrip1.ResumeLayout(False) Me.StatusStrip1.PerformLayout() + CType(Me.TBPM_PROFILE_CONTROLSBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBPM_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBWH_CHECK_PROFILE_CONTROLSBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBPM_CONTROL_TABLEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) @@ -1040,8 +942,6 @@ Partial Class frmFormDesigner Friend WithEvents VALIDATIONCheckBox As System.Windows.Forms.CheckBox Friend WithEvents CTRL_TEXTTextBox As System.Windows.Forms.TextBox Friend WithEvents NAMETextBox As System.Windows.Forms.TextBox - Friend WithEvents X_LOCTextBox As System.Windows.Forms.TextBox - Friend WithEvents Y_LOCTextBox As System.Windows.Forms.TextBox Friend WithEvents CHANGED_WHOTextBox As System.Windows.Forms.TextBox Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip Friend WithEvents tslblAenderungen As System.Windows.Forms.ToolStripStatusLabel @@ -1055,8 +955,6 @@ Partial Class frmFormDesigner Friend WithEvents btnheight_plus As System.Windows.Forms.Button Friend WithEvents Label3 As System.Windows.Forms.Label Friend WithEvents Label2 As System.Windows.Forms.Label - Friend WithEvents HEIGHTTextBox As System.Windows.Forms.TextBox - Friend WithEvents WIDTHTextBox As System.Windows.Forms.TextBox Friend WithEvents btnVektor As System.Windows.Forms.Button Friend WithEvents TabPage3 As System.Windows.Forms.TabPage Friend WithEvents TBPM_CONNECTIONBindingSource As System.Windows.Forms.BindingSource @@ -1082,5 +980,6 @@ Partial Class frmFormDesigner Friend WithEvents btnrefresh As System.Windows.Forms.Button Friend WithEvents btnShowConnections As System.Windows.Forms.Button Friend WithEvents btnEditor As Button - Friend WithEvents GUIDTextBox As TextBox + Friend WithEvents TabPage4 As TabPage + Friend WithEvents pgControls As PropertyGrid End Class diff --git a/app/DD_PM_WINDREAM/frmFormDesigner.resx b/app/DD_PM_WINDREAM/frmFormDesigner.resx index 622521c..85dcde1 100644 --- a/app/DD_PM_WINDREAM/frmFormDesigner.resx +++ b/app/DD_PM_WINDREAM/frmFormDesigner.resx @@ -117,27 +117,12 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - False - - - False - False False - - False - - - False - - - False - 179, 17 @@ -161,15 +146,15 @@ 1021, 17 + + 904, 17 + 458, 17 731, 17 - - 904, 17 - 17, 56 diff --git a/app/DD_PM_WINDREAM/frmFormDesigner.vb b/app/DD_PM_WINDREAM/frmFormDesigner.vb index f0abd60..0aa3bc9 100644 --- a/app/DD_PM_WINDREAM/frmFormDesigner.vb +++ b/app/DD_PM_WINDREAM/frmFormDesigner.vb @@ -1,15 +1,7 @@ Public Class frmFormDesigner - Private _windreamPM As ClassPMWindream - Dim CursorPosition As Point + Public _windreamPM As ClassPMWindream Private COLUMN_GUID Private MouseIsDown As Boolean = False - ' Used by the MoveMove event handler to show that the - ' setup to move the control has completed - Private m_Moving As Boolean - ''Saves the position - 'Private beginX, beginY As Integer - Private begin_location As System.Drawing.Point - Private end_location As System.Drawing.Point Private idxlbl As Integer = 0 Private idxtxt As Integer = 0 Private idxcmb As Integer = 0 @@ -20,46 +12,48 @@ Dim frmTableColumn As New frmControl_Detail Private CURRENT_CONTROL As Control + ' Movement Variables + Private MouseMoving As Boolean + Private BeginLocation As Point + Private EndLocation As Point Private Sub frmFormDesigner_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing - ' - 'Try If CURRENT_ProfilGUID > 0 Then - Dim DT As DataTable = ClassDatabase.Return_Datatable(String.Format("SELECT * FROM TBPM_PROFILE_CONTROLS WHERE PROFIL_ID = {0} AND (CTRL_TYPE <> 'LBL')", CURRENT_ProfilGUID), True) - gbxControl.Visible = False - For Each row As DataRow In DT.Rows - If row.Item("INDEX_NAME").GetType.ToString.ToLower = "system.dbnull" Or row.Item("INDEX_NAME").ToString = "" Then - MsgBox("Für das Control '" & row.Item("NAME") & "' wurde noch keine Indexdefintion hinterlegt!", MsgBoxStyle.Exclamation, "Unvollständige Konfiguration:") - e.Cancel = True - gbxControl.Visible = True + Dim sql As String = $"SELECT NAME, INDEX_NAME FROM TBPM_PROFILE_CONTROLS WHERE PROFIL_ID = {CURRENT_ProfilGUID} AND CTRL_TYPE <> 'LBL'" + Dim dt As DataTable = ClassDatabase.Return_Datatable(sql) + + Dim missingIndexControls As New List(Of String) + + For Each row As DataRow In dt.Rows + If NotNull(row.Item("INDEX_NAME"), String.Empty) = String.Empty Then + missingIndexControls.Add(row.Item("NAME")) + End If Next + + If missingIndexControls.Count > 0 Then + e.Cancel = True + Dim missingControls As String = String.Join(vbCrLf, missingIndexControls.ToArray()) + MsgBox($"Für die folgenden Controls wurden noch keine Indexdefinitionen hinterlegt: {vbCrLf}{vbCrLf}{missingControls}") + End If End If + If Application.OpenForms().OfType(Of frmControl_Detail).Any Then frmControl_Detail.Close() End If - ' MessageBox.Show("Opened") - 'Catch ex As Exception - ' MsgBox("Fehler bei FormClosing: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:") - 'End Try End Sub - '' Used to store the current cursor shape when we start - '' to move the control - 'Private m_CurrentCursor As Cursor - '' Holds the mouse position relative to the inside of - '' our control when the mouse button goes down - 'Private m_CursorOffset As Point + Private Sub frmFormDesigner_Load(sender As Object, e As System.EventArgs) Handles Me.Load - Try - - Me.lblDesign.Text = "FormDesigner für Profil: " & CURRENT_ProfilName + lblDesign.Text = "FormDesigner für Profil: " & CURRENT_ProfilName 'löscht alle Controls pnldesigner.Controls.Clear() + CURRENT_CONTROL = Nothing Try + DD_LIB_Standards.clsWindream.Create_Session() ' Windream instanziieren _windreamPM = New ClassPMWindream() 'Windream initialisieren (Connection, Session, ... aufbauen) @@ -71,8 +65,8 @@ TBPM_PROFILE_CONTROLSTableAdapter.Connection.ConnectionString = MyConnectionString TBPM_CONNECTIONTableAdapter.Connection.ConnectionString = MyConnectionString TBWH_CHECK_PROFILE_CONTROLSTableAdapter.Connection.ConnectionString = MyConnectionString - Me.TBPM_CONTROL_TABLETableAdapter.Connection.ConnectionString = MyConnectionString - Me.TBPM_CONNECTIONTableAdapter.Fill(Me.DD_DMSLiteDataSet.TBPM_CONNECTION) + TBPM_CONTROL_TABLETableAdapter.Connection.ConnectionString = MyConnectionString + TBPM_CONNECTIONTableAdapter.Fill(DD_DMSLiteDataSet.TBPM_CONNECTION) Catch ex As Exception MsgBox("Fehler bei Laden der Connection-Strings und Grunddaten: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:") End Try @@ -84,15 +78,15 @@ End Try End Sub Sub Load_indexe() - Me.cmbIndex.Items.Clear() + cmbIndex.Items.Clear() Dim indexe = _windreamPM.GetIndicesByObjecttype(CURRENT_OBJECTTYPE) If indexe IsNot Nothing Then - Me.cmbIndex.Items.Add("") + cmbIndex.Items.Add("") For Each index As String In indexe - Me.cmbIndex.Items.Add(index) + cmbIndex.Items.Add(index) Next - Me.cmbIndex.Items.Add("DD PM-ONLY FOR DISPLAY") - Me.cmbIndex.SelectedIndex = -1 + cmbIndex.Items.Add("DD PM-ONLY FOR DISPLAY") + cmbIndex.SelectedIndex = -1 End If End Sub Sub Load_Indexe_Vektor() @@ -190,29 +184,60 @@ End Try _loading = False End Sub + + Function CreateBaseControl(ctrl As Control, guid As Integer, name As String, x As Integer, y As Integer, font As Font, color As Color) + ctrl.Tag = guid + ctrl.Name = name + ctrl.Location = New Point(x, y) + ctrl.Font = font + ctrl.ForeColor = color + + Return ctrl + End Function + Sub Controls_laden() Try - Me.TBPM_PROFILE_CONTROLSTableAdapter.FillByProfil(Me.DD_DMSLiteDataSet.TBPM_PROFILE_CONTROLS, CURRENT_ProfilGUID) - 'löscht alle Controls + TBPM_PROFILE_CONTROLSTableAdapter.FillByProfil(DD_DMSLiteDataSet.TBPM_PROFILE_CONTROLS, CURRENT_ProfilGUID) + ' löscht alle Controls pnldesigner.Controls.Clear() Dim dt As DataTable = DD_DMSLiteDataSet.TBPM_PROFILE_CONTROLS - For Each dr As DataRow In dt.Rows - Select Case dr.Item("CTRL_TYPE") + For Each row As DataRow In dt.Rows + ' Ein Base Control erstellen + Dim guid As Integer = row.Item("GUID") + Dim name As String = row.Item("NAME") + Dim x As Integer = row.Item("X_LOC") + Dim y As Integer = row.Item("Y_LOC") + Dim style As FontStyle = NotNull(row.Item("FONT_STYLE"), FontStyle.Regular) + Dim size As Single = NotNull(row.Item("FONT_SIZE"), 10) + Dim familyString As String = NotNull(row.Item("FONT_FAMILY"), "Arial") + Dim family As FontFamily = New FontFamily(familyString) + Dim font As New Font(family, size, style, GraphicsUnit.Point) + Dim color As Color = IntToColor(NotNull(row.Item("FONT_COLOR"), 0)) + + ' Jetzt die Control spezifischen Eigenschaften zuweisen + Select Case row.Item("CTRL_TYPE") Case "TXT" - add_exisiting_textbox(dr.Item("GUID"), dr.Item("NAME"), CInt(dr.Item("X_LOC")), CInt(dr.Item("Y_LOC")), CInt(dr.Item("WIDTH")), CInt(dr.Item("HEIGHT"))) + Dim ctrl = CreateBaseControl(New TextBox, guid, name, x, y, font, color) + AddExistingTextbox(ctrl, row.Item("WIDTH"), row.Item("HEIGHT")) Case "LBL" - add_existing_label(dr.Item("GUID"), dr.Item("NAME"), dr.Item("CTRL_TEXT"), CInt(dr.Item("X_LOC")), CInt(dr.Item("Y_LOC")), CInt(dr.Item("WIDTH")), CInt(dr.Item("HEIGHT"))) + Dim ctrl = CreateBaseControl(New Label, guid, name, x, y, font, color) + AddExistingLabel(ctrl, row.Item("CTRL_TEXT")) Case "CMB" - add_exisiting_Combobox(dr.Item("GUID"), dr.Item("NAME"), CInt(dr.Item("X_LOC")), CInt(dr.Item("Y_LOC")), CInt(dr.Item("WIDTH")), CInt(dr.Item("HEIGHT"))) + Dim ctrl = CreateBaseControl(New ComboBox, guid, name, x, y, font, color) + AddExistingCombobox(ctrl, row.Item("WIDTH"), row.Item("HEIGHT")) Case "DTP" - add_exisiting_DTP(dr.Item("GUID"), dr.Item("NAME"), CInt(dr.Item("X_LOC")), CInt(dr.Item("Y_LOC")), CInt(dr.Item("WIDTH")), CInt(dr.Item("HEIGHT"))) + Dim ctrl = CreateBaseControl(New ComboBox, guid, name, x, y, font, color) + AddExistingDatetimepicker(ctrl, row.Item("WIDTH"), row.Item("HEIGHT")) Case "DGV" - add_exisitingDGV(dr.Item("GUID"), dr.Item("NAME"), CInt(dr.Item("X_LOC")), CInt(dr.Item("Y_LOC")), CInt(dr.Item("WIDTH")), CInt(dr.Item("HEIGHT"))) + Dim ctrl = CreateBaseControl(New DataGridView, guid, name, x, y, font, color) + AddExistingDatagridview(ctrl, row.Item("WIDTH"), row.Item("HEIGHT")) Case "CHK" - add_exisiting_Checkbox(dr.Item("GUID"), dr.Item("NAME"), dr.Item("CTRL_TEXT"), CInt(dr.Item("X_LOC")), CInt(dr.Item("Y_LOC")), CInt(dr.Item("WIDTH")), CInt(dr.Item("HEIGHT"))) + Dim ctrl = CreateBaseControl(New CheckBox, guid, name, x, y, font, color) + AddExistingCheckbox(ctrl, row.Item("CTRL_TEXT"), row.Item("WIDTH"), row.Item("HEIGHT")) Case "TABLE" - add_exisitingTABLE(dr.Item("GUID"), dr.Item("NAME"), CInt(dr.Item("X_LOC")), CInt(dr.Item("Y_LOC")), CInt(dr.Item("WIDTH")), CInt(dr.Item("HEIGHT"))) + Dim ctrl = CreateBaseControl(New DataGridView, guid, name, x, y, font, color) + AddExistingTable(ctrl, row.Item("WIDTH"), row.Item("HEIGHT")) End Select Next Catch ex As Exception @@ -250,13 +275,12 @@ End Sub Private Sub Panel2_DragDrop(sender As Object, e As System.Windows.Forms.DragEventArgs) Handles pnldesigner.DragDrop - Dim r As New System.Random() - Dim a As Byte + Dim r As New Random() Dim random As Integer = r.Next(8, 100) Select Case e.Data.GetData(DataFormats.Text) Case "lbl" 'idxlbl += 1 - add_newlabel("lbl" & random.ToString) + AddNewLabel("lbl" & random.ToString) Case "txt" 'idxtxt += 1 add_newtextbox("txt" & random) @@ -296,7 +320,7 @@ Return 0 End Try End Function - Function add_newlabel(lblname As String) + Function AddNewLabel(lblname As String) Try Dim lbl As New Label lbl.Name = lblname @@ -309,10 +333,12 @@ pnldesigner.Controls.Add(lbl) CURRENT_CONTROL = lbl - AddHandler lbl.Click, AddressOf OnlblClick - AddHandler lbl.MouseDown, AddressOf MovableLabel_MouseDown - AddHandler lbl.MouseUp, AddressOf MovableCtrl_MouseUp - AddHandler lbl.MouseMove, AddressOf Control_MouseMove 'MovableLabel_MouseMove + 'AddHandler lbl.Click, AddressOf OnlblClick + 'AddHandler lbl.MouseDown, AddressOf MovableLabel_MouseDown + 'AddHandler lbl.MouseUp, AddressOf MovableCtrl_MouseUp + 'AddHandler lbl.MouseMove, AddressOf Control_MouseMove 'MovableLabel_MouseMove + SetMovementHandlers(lbl) + TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(CURRENT_ProfilGUID, lbl.Name, "LBL", lblname, lbl.Location.X, lbl.Location.Y, Environment.UserName, 16, 200) CURRENT_CONTROL.Tag = GetLastID() 'Load_Control() @@ -321,22 +347,14 @@ MsgBox("Fehler bei Anlegen Label: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try End Function - Function add_existing_label(ID As Integer, lblname As String, text As String, x As Integer, y As Integer, vwidth As Integer, vheight As Integer) - Dim lbl As New Label - lbl.Tag = ID - lbl.Name = lblname + Function AddExistingLabel(lbl As Label, text As String) lbl.Text = text lbl.AutoSize = True - 'lbl.Size = New Size(CInt(lbl.Text.Length * 10), vheight) - lbl.Location = New Point(x, y) pnldesigner.Controls.Add(lbl) - AddHandler lbl.Click, AddressOf OnlblClick - AddHandler lbl.MouseDown, AddressOf MovableLabel_MouseDown - AddHandler lbl.MouseUp, AddressOf MovableCtrl_MouseUp - AddHandler lbl.MouseMove, AddressOf Control_MouseMove 'MovableLabel_MouseMove - + SetMovementHandlers(lbl) End Function + Private Function GetLastID() Dim sql = String.Format("SELECT MAX(GUID) FROM TBPM_PROFILE_CONTROLS WHERE PROFIL_ID = {0}", CURRENT_ProfilGUID) Return ClassDatabase.Execute_Scalar(sql, MyConnectionString, True) @@ -354,10 +372,8 @@ pnldesigner.Controls.Add(txt) CURRENT_CONTROL = txt - AddHandler txt.Click, AddressOf OntxtClick - AddHandler txt.MouseDown, AddressOf MovableText_MouseDown - AddHandler txt.MouseUp, AddressOf MovableCtrl_MouseUp - AddHandler txt.MouseMove, AddressOf Control_MouseMove 'MovableText_MouseMove + SetMovementHandlers(txt) + TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(CURRENT_ProfilGUID, txt.Name, "TXT", txtname, txt.Location.X, txt.Location.Y, Environment.UserName, 27, 200) CURRENT_CONTROL.Tag = GetLastID() 'GetControlGUID(txt.Name) @@ -367,10 +383,7 @@ MsgBox("Fehler bei Anlegen TextBox: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try End Function - Function add_exisiting_textbox(ID As Integer, txtname As String, x As Integer, y As Integer, vwidth As Integer, vheight As Integer) - Dim txt As New TextBox - txt.Tag = ID - txt.Name = txtname + Function AddExistingTextbox(txt As TextBox, vwidth As Integer, vheight As Integer) If vheight > 27 Then txt.Multiline = True Else @@ -380,15 +393,12 @@ txt.Cursor = Cursors.Hand txt.ReadOnly = True - txt.Location = New Point(x, y) txt.BackColor = Color.White - pnldesigner.Controls.Add(txt) - AddHandler txt.Click, AddressOf OntxtClick - AddHandler txt.MouseDown, AddressOf MovableText_MouseDown - AddHandler txt.MouseUp, AddressOf MovableCtrl_MouseUp - AddHandler txt.MouseMove, AddressOf Control_MouseMove 'MovableText_MouseMove - btnsave.Visible = True + pnldesigner.Controls.Add(txt) + SetMovementHandlers(txt) + + btnsave.Visible = True End Function Function add_newCheckbox(chkname As String) Try @@ -404,10 +414,8 @@ pnldesigner.Controls.Add(chk) CURRENT_CONTROL = chk - AddHandler chk.Click, AddressOf OnchkboxClick - AddHandler chk.MouseDown, AddressOf MovableChk_MouseDown - AddHandler chk.MouseUp, AddressOf MovableCtrl_MouseUp - AddHandler chk.MouseMove, AddressOf Control_MouseMove 'MovableChk_MouseMove + SetMovementHandlers(chk) + TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(CURRENT_ProfilGUID, chk.Name, "CHK", chkname, chk.Location.X, chk.Location.Y, Environment.UserName, 27, 200) CURRENT_CONTROL.Tag = GetLastID() Load_Control() @@ -416,20 +424,14 @@ MsgBox("Fehler bei Anlegen Checkbox: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try End Function - Function add_exisiting_Checkbox(ID As Integer, chkname As String, text As String, x As Integer, y As Integer, vwidth As Integer, vheight As Integer) - Dim chk As New CheckBox - chk.Tag = ID - chk.Name = chkname + Function AddExistingCheckbox(chk As CheckBox, text As String, vwidth As Integer, vheight As Integer) chk.AutoSize = True - 'chk.Size = New Size(vwidth, vheight) chk.Text = text chk.Cursor = Cursors.Hand - chk.Location = New Point(x, y) + pnldesigner.Controls.Add(chk) - AddHandler chk.Click, AddressOf OnchkboxClick - AddHandler chk.MouseDown, AddressOf MovableChk_MouseDown - AddHandler chk.MouseUp, AddressOf MovableCtrl_MouseUp - AddHandler chk.MouseMove, AddressOf Control_MouseMove 'MovableChk_MouseMove + SetMovementHandlers(chk) + btnsave.Visible = True End Function Function add_newCombobox(cmbname As String) @@ -443,10 +445,8 @@ pnldesigner.Controls.Add(cmb) CURRENT_CONTROL = cmb - AddHandler cmb.Click, AddressOf OncmbClick - AddHandler cmb.MouseDown, AddressOf Movablecmb_MouseDown - AddHandler cmb.MouseUp, AddressOf MovableCtrl_MouseUp - AddHandler cmb.MouseMove, AddressOf Control_MouseMove 'Movablecmb_MouseMove + SetMovementHandlers(cmb) + TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(CURRENT_ProfilGUID, cmb.Name, "CMB", cmbname, cmb.Location.X, cmb.Location.Y, Environment.UserName, 24, 180) CURRENT_CONTROL.Tag = GetLastID() Load_Control() @@ -455,34 +455,22 @@ MsgBox("Fehler bei Anlegen Combobox: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try End Function - Function add_exisiting_Combobox(ID As Integer, cmbname As String, x As Integer, y As Integer, vwidth As Integer, vheight As Integer) - Dim cmb As New ComboBox - cmb.Tag = ID - cmb.Name = cmbname + Function AddExistingCombobox(cmb As ComboBox, vwidth As Integer, vheight As Integer) cmb.Size = New Size(vwidth, vheight) cmb.Cursor = Cursors.Hand - cmb.Location = New Point(x, y) + pnldesigner.Controls.Add(cmb) - AddHandler cmb.Click, AddressOf OncmbClick - AddHandler cmb.MouseDown, AddressOf Movablecmb_MouseDown - AddHandler cmb.MouseUp, AddressOf MovableCtrl_MouseUp - AddHandler cmb.MouseMove, AddressOf Control_MouseMove 'Movablecmb_MouseMove + SetMovementHandlers(cmb) + btnsave.Visible = True End Function - Function add_exisiting_DTP(ID As Integer, dtpname As String, x As Integer, y As Integer, vwidth As Integer, vheight As Integer) - Dim dtp As New DateTimePicker - dtp.Tag = ID - dtp.Name = dtpname + Function AddExistingDatetimepicker(dtp As DateTimePicker, vwidth As Integer, vheight As Integer) dtp.Size = New Size(vwidth, vheight) dtp.Cursor = Cursors.Hand - dtp.Location = New Point(x, y) dtp.Format = DateTimePickerFormat.Short pnldesigner.Controls.Add(dtp) - AddHandler dtp.Click, AddressOf OndtpClick - AddHandler dtp.MouseDown, AddressOf Movabledtp_MouseDown - AddHandler dtp.MouseUp, AddressOf MovableCtrl_MouseUp - AddHandler dtp.MouseMove, AddressOf Control_MouseMove 'Movabledtp_MouseMove + SetMovementHandlers(dtp) btnsave.Visible = True End Function Function add_newDTP(dtpname As String) @@ -496,10 +484,12 @@ dtp.Location = New Point(clientPosition) pnldesigner.Controls.Add(dtp) CURRENT_CONTROL = dtp - AddHandler dtp.Click, AddressOf OndtpClick - AddHandler dtp.MouseDown, AddressOf Movabledtp_MouseDown - AddHandler dtp.MouseUp, AddressOf MovableCtrl_MouseUp - AddHandler dtp.MouseMove, AddressOf Control_MouseMove 'Movabledtp_MouseMove + 'AddHandler dtp.Click, AddressOf OndtpClick + 'AddHandler dtp.MouseDown, AddressOf Movabledtp_MouseDown + 'AddHandler dtp.MouseUp, AddressOf MovableCtrl_MouseUp + 'AddHandler dtp.MouseMove, AddressOf Control_MouseMove 'Movabledtp_MouseMove + SetMovementHandlers(dtp) + TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(CURRENT_ProfilGUID, dtp.Name, "DTP", dtpname, dtp.Location.X, dtp.Location.Y, Environment.UserName, 24, 180) CURRENT_CONTROL.Tag = GetLastID() Load_Control() @@ -508,13 +498,9 @@ MsgBox("Fehler bei Anlegen DatetimePicker: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try End Function - Function add_exisitingDGV(ID As Integer, dtpname As String, x As Integer, y As Integer, vwidth As Integer, vheight As Integer) - Dim dgv As New DataGridView - dgv.Tag = ID - dgv.Name = dtpname + Function AddExistingDatagridview(dgv As DataGridView, vwidth As Integer, vheight As Integer) dgv.Size = New Size(vwidth, vheight) dgv.Cursor = Cursors.Hand - dgv.Location = New Point(x, y) dgv.AllowUserToAddRows = False dgv.AllowUserToDeleteRows = False dgv.AllowUserToResizeColumns = False @@ -528,10 +514,11 @@ pnldesigner.Controls.Add(dgv) - AddHandler dgv.Click, AddressOf OndgvClick - AddHandler dgv.MouseDown, AddressOf MovableDGV_MouseDown - AddHandler dgv.MouseUp, AddressOf MovableCtrl_MouseUp - AddHandler dgv.MouseMove, AddressOf dgv_MouseMove + 'AddHandler dgv.Click, AddressOf OndgvClick + 'AddHandler dgv.MouseDown, AddressOf MovableDGV_MouseDown + 'AddHandler dgv.MouseUp, AddressOf MovableCtrl_MouseUp + 'AddHandler dgv.MouseMove, AddressOf dgv_MouseMove + SetMovementHandlers(dgv) btnsave.Visible = True End Function @@ -555,10 +542,12 @@ pnldesigner.Controls.Add(dgv) CURRENT_CONTROL = dgv - AddHandler dgv.Click, AddressOf OndgvClick - AddHandler dgv.MouseDown, AddressOf MovableDGV_MouseDown - AddHandler dgv.MouseUp, AddressOf MovableCtrl_MouseUp - AddHandler dgv.MouseMove, AddressOf dgv_MouseMove + 'AddHandler dgv.Click, AddressOf OndgvClick + 'AddHandler dgv.MouseDown, AddressOf MovableDGV_MouseDown + 'AddHandler dgv.MouseUp, AddressOf MovableCtrl_MouseUp + 'AddHandler dgv.MouseMove, AddressOf dgv_MouseMove + SetMovementHandlers(dgv) + TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(CURRENT_ProfilGUID, dgv.Name, "DGV", dgvName, dgv.Location.X, dgv.Location.Y, Environment.UserName, 130, 150) CURRENT_CONTROL.Tag = GetLastID() Load_Control() @@ -579,21 +568,27 @@ table.AllowUserToResizeColumns = True table.AllowUserToResizeRows = False - Dim col1 As New DataGridViewTextBoxColumn - col1.HeaderText = "Column1" - col1.Name = "column1" + Dim col1 As New DataGridViewTextBoxColumn With { + .HeaderText = "Column1", + .Name = "column1" + } + + Dim col2 As New DataGridViewTextBoxColumn With { + .HeaderText = "Column2", + .Name = "column2" + } + table.Columns.Add(col1) - Dim col2 As New DataGridViewTextBoxColumn - col2.HeaderText = "Column2" - col2.Name = "column2" table.Columns.Add(col2) pnldesigner.Controls.Add(table) CURRENT_CONTROL = table - AddHandler table.Click, AddressOf OndgvClick - AddHandler table.MouseDown, AddressOf MovableDGV_MouseDown - AddHandler table.MouseUp, AddressOf MovableCtrl_MouseUp - AddHandler table.MouseMove, AddressOf dgv_MouseMove + 'AddHandler table.Click, AddressOf OndgvClick + 'AddHandler table.MouseDown, AddressOf MovableDGV_MouseDown + 'AddHandler table.MouseUp, AddressOf MovableCtrl_MouseUp + 'AddHandler table.MouseMove, AddressOf dgv_MouseMove + SetMovementHandlers(table) + AddHandler table.ColumnHeaderMouseClick, AddressOf table_ColumnHeaderMouseClick TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(CURRENT_ProfilGUID, table.Name, "TABLE", tableName, table.Location.X, table.Location.Y, Environment.UserName, 130, 150) CURRENT_CONTROL.Tag = GetLastID() @@ -604,13 +599,9 @@ MsgBox("Fehler bei Anlegen Tabelle: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try End Function - Function add_exisitingTABLE(ID As Integer, tableName As String, x As Integer, y As Integer, vwidth As Integer, vheight As Integer) - Dim table As New DataGridView - table.Tag = ID - table.Name = tableName + Function AddExistingTable(table As DataGridView, vwidth As Integer, vheight As Integer) table.Size = New Size(vwidth, vheight) table.Cursor = Cursors.Hand - table.Location = New Point(x, y) table.AllowUserToAddRows = False table.AllowUserToDeleteRows = False table.AllowUserToResizeColumns = True @@ -633,10 +624,12 @@ pnldesigner.Controls.Add(table) - AddHandler table.Click, AddressOf OndgvClick - AddHandler table.MouseDown, AddressOf MovableDGV_MouseDown - AddHandler table.MouseUp, AddressOf MovableCtrl_MouseUp - AddHandler table.MouseMove, AddressOf dgv_MouseMove + 'AddHandler table.Click, AddressOf OndgvClick + 'AddHandler table.MouseDown, AddressOf MovableDGV_MouseDown + 'AddHandler table.MouseUp, AddressOf MovableCtrl_MouseUp + 'AddHandler table.MouseMove, AddressOf dgv_MouseMove + SetMovementHandlers(table) + AddHandler table.ColumnHeaderMouseClick, AddressOf table_ColumnHeaderMouseClick btnsave.Visible = True @@ -653,6 +646,8 @@ inctrl.BackColor = Color.White Case "System.Windows.Forms.Label" inctrl.BackColor = Color.Transparent + Case "System.Windows.Forms.CheckBox" + inctrl.BackColor = Color.Transparent End Select End If Next @@ -663,23 +658,22 @@ Dim lbl As Label = sender CURRENT_CONTROL = lbl Load_Control() - Me.lblBeschriftung.Visible = True - Me.CTRL_TEXTTextBox.Visible = True - Me.lblIndex.Visible = False + lblBeschriftung.Visible = True + CTRL_TEXTTextBox.Visible = True + lblIndex.Visible = False - Me.cmbIndex.Visible = False - Me.rbIndex.Visible = False - Me.rbVektor.Visible = False + cmbIndex.Visible = False + rbIndex.Visible = False + rbVektor.Visible = False - Me.VALIDATIONCheckBox.Visible = False - Me.CheckBoxAuswahlliste.Visible = False - Me.CHOICE_LISTTextBox.Visible = False - Me.lblAuswahlliste.Visible = False + VALIDATIONCheckBox.Visible = False + CheckBoxAuswahlliste.Visible = False + CHOICE_LISTTextBox.Visible = False + lblAuswahlliste.Visible = False gbxControl.Visible = True - ' Me.pnlAuswahlliste.Enabled = False - Me.READ_ONLYCheckBox.Visible = False - Me.LOAD_IDX_VALUECheckBox.Visible = False + READ_ONLYCheckBox.Visible = False + LOAD_IDX_VALUECheckBox.Visible = False INDEX_NAMETextBox.Visible = False End Sub @@ -906,11 +900,11 @@ Dim lbl As Label = DirectCast(sender, Label) CURRENT_CONTROL = sender - begin_location = e.Location + BeginLocation = e.Location lbl.BringToFront() ' Set the mode flag to signal the MouseMove event handler that it ' needs to now calculate new positions for our control - m_Moving = True + MouseMoving = True End If End Sub Private Sub MovableText_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown @@ -920,11 +914,11 @@ Dim txt As TextBox = DirectCast(sender, TextBox) CURRENT_CONTROL = sender - begin_location = e.Location + BeginLocation = e.Location txt.BringToFront() ' Set the mode flag to signal the MouseMove event handler that it ' needs to now calculate new positions for our control - m_Moving = True + MouseMoving = True End If End Sub Private Sub MovableChk_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown @@ -933,11 +927,11 @@ Clear_control_Details() Dim txt As CheckBox = DirectCast(sender, CheckBox) CURRENT_CONTROL = sender - begin_location = e.Location + BeginLocation = e.Location txt.BringToFront() ' Set the mode flag to signal the MouseMove event handler that it ' needs to now calculate new positions for our control - m_Moving = True + MouseMoving = True End If End Sub Private Sub Movablecmb_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown @@ -946,12 +940,12 @@ Clear_control_Details() Dim cmb As ComboBox = DirectCast(sender, ComboBox) CURRENT_CONTROL = sender - begin_location = e.Location + BeginLocation = e.Location cmb.BringToFront() ' Set the mode flag to signal the MouseMove event handler that it ' needs to now calculate new positions for our control - m_Moving = True + MouseMoving = True End If End Sub Private Sub Movabledtp_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown @@ -962,13 +956,13 @@ CURRENT_CONTROL = sender 'Console.WriteLine("X: " & cursor.X & ";Y=" & cursor.Y) - begin_location = e.Location + BeginLocation = e.Location 'begin_location = New Point(cursor.X - Parent.Location.X, ' cursor.Y - Parent.Location.Y) dtp.BringToFront() ' Set the mode flag to signal the MouseMove event handler that it ' needs to now calculate new positions for our control - m_Moving = True + MouseMoving = True 'Jetzt Controleigenschaften laden Load_Control() @@ -989,12 +983,12 @@ CURRENT_CONTROL = sender - begin_location = e.Location + BeginLocation = e.Location CURRENT_CONTROL.Tag = New clsDragInfo(Form.MousePosition, sender.Location) dgv.BringToFront() ' Set the mode flag to signal the MouseMove event handler that it ' needs to now calculate new positions for our control - m_Moving = True + MouseMoving = True CURRENT_CONTROL = sender @@ -1005,263 +999,7 @@ gbxControl.Visible = True End If End Sub - Private Sub MovableCtrl_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp - CURRENT_CONTROL.Tag = Nothing - ' The button was released, so we're going back to Static mode. - If m_Moving = True Then - m_Moving = False - end_location = e.Location - If X_LOCTextBox.Text <> String.Empty Then - If CURRENT_CONTROL.Location.X <> X_LOCTextBox.Text Or CURRENT_CONTROL.Location.Y <> Y_LOCTextBox.Text Then - X_LOCTextBox.Text = CURRENT_CONTROL.Location.X - Y_LOCTextBox.Text = CURRENT_CONTROL.Location.Y - Save_Control() - End If - End If - 'Y_LOCTextBox.Text = end_location.Y - 'Save_Control() - End If - ' Restore the cursor image to the way we found it when the mouse - ' button was pressed - MyBase.Cursor = Cursors.Default - End Sub - Private Sub Control_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove - Try - If CURRENT_CONTROL Is Nothing Then - Exit Sub - End If - 'Check which mode we're in. If we're supposed to be moving - 'our control - If m_Moving = True And sender.ToString <> "DD_PM_WINDREAM.frmFormDesigner, Text: Validation-Designer" Then - Me.Cursor = Cursors.Hand - Me.Refresh() - - Dim NowCursor As Point = GetCursorPosition() - ' get the screen position of the mouse pointer and map it - ' to the position relative to the top-left corner of our - If Point.op_Inequality(NowCursor, begin_location) Then - CURRENT_CONTROL.Location = New System.Drawing.Point(NowCursor.X - begin_location.X, - NowCursor.Y - begin_location.Y) - End If - End If - Catch ex As Exception - ' MsgBox(ex.Message, MsgBoxStyle.Exclamation, "MovableLabel_MouseMove") - m_Moving = False - End Try - - End Sub - Private Sub MovableLabel_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove - Try - If CURRENT_CONTROL Is Nothing Then - Exit Sub - End If - 'Check which mode we're in. If we're supposed to be moving - 'our control - If m_Moving = True And sender.ToString <> "DD_PM_WINDREAM.frmFormDesigner, Text: Validation-Designer" And CURRENT_CONTROL.GetType.ToString = "System.Windows.Forms.Label" Then - Me.Cursor = Cursors.Hand - Me.Refresh() - - Dim lbl As Label = DirectCast(sender, Label) - - Dim NowCursor As Point = GetCursorPosition() - ' get the screen position of the mouse pointer and map it - ' to the position relative to the top-left corner of our - If Point.op_Inequality(NowCursor, begin_location) Then - lbl.Location = New System.Drawing.Point(NowCursor.X - begin_location.X, - NowCursor.Y - begin_location.Y) - End If - End If - Catch ex As Exception - ' MsgBox(ex.Message, MsgBoxStyle.Exclamation, "MovableLabel_MouseMove") - m_Moving = False - End Try - - End Sub - Private Sub MovableText_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove - 'Check which mode we're in. If we're supposed to be moving - 'our control - If CURRENT_CONTROL Is Nothing Then - Exit Sub - End If - Try - If m_Moving = True And sender.ToString <> "DD_PM_WINDREAM.frmFormDesigner, Text: Validation-Designer" And CURRENT_CONTROL.GetType.ToString = "System.Windows.Forms.TextBox" Then - Me.Cursor = Cursors.Hand - Me.Refresh() - - Dim txt As TextBox = DirectCast(sender, TextBox) - - Dim NowCursor As Point = GetCursorPosition() - ' get the screen position of the mouse pointer and map it - ' to the position relative to the top-left corner of our - ' parent container - If Point.op_Inequality(NowCursor, begin_location) Then - txt.Location = New System.Drawing.Point(NowCursor.X - begin_location.X, - NowCursor.Y - begin_location.Y) - End If - - End If - Catch ex As Exception - ' MsgBox(ex.Message, MsgBoxStyle.Exclamation, "MovableText_MouseMove") - m_Moving = False - End Try - - - End Sub - Private Sub MovableChk_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove - 'Check which mode we're in. If we're supposed to be moving - 'our control - If CURRENT_CONTROL Is Nothing Then - Exit Sub - End If - Try - If m_Moving = True And sender.ToString <> "DD_PM_WINDREAM.frmFormDesigner, Text: Validation-Designer" And CURRENT_CONTROL.GetType.ToString = "System.Windows.Forms.CheckBox" Then - Me.Cursor = Cursors.Hand - Me.Refresh() - - Dim chk As CheckBox = DirectCast(sender, CheckBox) - Dim NowCursor As Point = GetCursorPosition() - ' get the screen position of the mouse pointer and map it - ' to the position relative to the top-left corner of our - If Point.op_Inequality(NowCursor, begin_location) Then - chk.Location = New System.Drawing.Point(NowCursor.X - begin_location.X, - NowCursor.Y - begin_location.Y) - End If - End If - Catch ex As Exception - ' MsgBox(ex.Message, MsgBoxStyle.Exclamation, "MovableChk_MouseMove") - m_Moving = False - End Try - - End Sub - Private Sub Movablecmb_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove - 'Check which mode we're in. If we're supposed to be moving - 'our control - If CURRENT_CONTROL Is Nothing Then - Exit Sub - End If - Try - If m_Moving = True And sender.ToString <> "DD_PM_WINDREAM.frmFormDesigner, Text: Validation-Designer" And CURRENT_CONTROL.GetType.ToString = "System.Windows.Forms.ComboBox" Then - Me.Cursor = Cursors.Hand - Me.Refresh() - - Dim cmb As ComboBox = DirectCast(sender, ComboBox) - Static LastCursor As Point - Dim NowCursor As Point = GetCursorPosition() - ' get the screen position of the mouse pointer and map it - ' to the position relative to the top-left corner of our - If Point.op_Inequality(NowCursor, begin_location) Then - cmb.Location = New System.Drawing.Point(NowCursor.X - begin_location.X, - NowCursor.Y - begin_location.Y) - End If - End If - Catch ex As Exception - ' MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Movablecmb_MouseMove") - m_Moving = False - End Try - - - End Sub - 'Private Sub Movabledtp_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove - ' 'Check which mode we're in. If we're supposed to be moving - ' 'our control - ' If CURRENT_CONTROL Is Nothing Then - ' Exit Sub - ' End If - ' Try - ' If m_Moving = True And sender.ToString <> "DD_PM_WINDREAM.frmFormDesigner, Text: Validation-Designer" And CURRENT_CONTROL.GetType.ToString = "System.Windows.Forms.DateTimePicker" Then - ' Me.Cursor = Cursors.Hand - ' Me.Refresh() - - ' Dim dtp As DateTimePicker = DirectCast(sender, DateTimePicker) - ' Static LastCursor As Point - ' Dim NowCursor = GetCursorPosition() ' New Point(Cursor.Position.X, Cursor.Position.Y) - ' ' Console.WriteLine("NOW X: " & NowCursor.X & ";Y=" & NowCursor.Y) - ' ' get the screen position of the mouse pointer and map it - ' ' to the position relative to the top-left corner of our - ' ' parent container - ' If Point.op_Inequality(NowCursor, begin_location) Then - ' 'dtp.Location = New System.Drawing.Point(NowCursor.X - pnldesigner.Location.X, NowCursor.Y - pnldesigner.Location.Y) - ' ' Alle normalen Controls - ' dtp.Location = New Point(NowCursor.X - begin_location.X, - ' NowCursor.Y - begin_location.Y) - ' 'dtp.Location = New System.Drawing.Point(clientPosition.X - begin_location.X, clientPosition.Y - begin_location.Y) - ' End If - ' End If - ' Catch ex As Exception - ' ' MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Movablecmb_MouseMove") - ' m_Moving = False - ' End Try - - - 'End Sub - Private Sub dgv_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove - 'Check which mode we're in. If we're supposed to be moving - 'our control - If CURRENT_CONTROL Is Nothing Then - Exit Sub - End If - Try - If m_Moving = True And sender.ToString <> "DD_PM_WINDREAM.frmFormDesigner, Text: Validation-Designer" And CURRENT_CONTROL.GetType.ToString = "System.Windows.Forms.DataGridView" Then - Me.Cursor = Cursors.Hand - Me.Refresh() - - Dim dgv As DataGridView = DirectCast(sender, DataGridView) - Static LastCursor As Point - Dim NowCursor As Point = New Point(Cursor.Position.X, Cursor.Position.Y) - ' get the screen position of the mouse pointer and map it - ' to the position relative to the top-left corner of our - ' parent container - Dim clientPosition As Point = Me.pnldesigner.PointToClient(System.Windows.Forms.Cursor.Position) - If Point.op_Inequality(NowCursor, LastCursor) Then - dgv.Location = New System.Drawing.Point(clientPosition.X - begin_location.X, clientPosition.Y - begin_location.Y) - End If - End If - Catch ex As Exception - ' MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Movablecmb_MouseMove") - m_Moving = False - End Try - - - End Sub - 'Private Sub dgv_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove - ' 'Check which mode we're in. If we're supposed to be movingmybase - ' 'our control - ' Try - - ' If CURRENT_CONTROL.Tag IsNot Nothing Then - ' Dim info As clsDragInfo = CType(Panel1.Tag, clsDragInfo) - ' Dim newLoc As Point = info.NewLocation(Form.MousePosition) - ' If Me.ClientRectangle.Contains(New Rectangle(newLoc, CURRENT_CONTROL.Size)) Then CURRENT_CONTROL.Location = newLoc - ' End If - - ' 'If m_Moving = True Then - ' ' ListBox1.Items.Add(sender.ToString & "-" & CURRENT_CONTROL.GetType.ToString) - ' 'End If - - - ' 'If m_Moving = True And sender.ToString <> "DD_PM_WINDREAM.frmFormDesigner, Text: Validation-Designer" And CURRENT_CONTROL.GetType.ToString = "System.Windows.Forms.DateTimePicker" Then - ' ' Me.Cursor = Cursors.Hand - ' ' Me.Refresh() - - ' ' Dim dgv As DataGridView = DirectCast(sender, DataGridView) - ' ' Static LastCursor As Point - ' ' Dim NowCursor As Point = New Point(Cursor.Position.X, Cursor.Position.Y) - ' ' ' get the screen position of the mouse pointer and map it - ' ' ' to the position relative to the top-left corner of our - ' ' ' parent container - ' ' Dim clientPosition As Point = Me.pnldesigner.PointToClient(System.Windows.Forms.Cursor.Position) - ' ' If Point.op_Inequality(NowCursor, LastCursor) Then - ' ' dgv.Location = New System.Drawing.Point(clientPosition.X - begin_location.X, clientPosition.Y - begin_location.Y) - ' ' End If - ' 'End If - ' Catch ex As Exception - ' ' MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Movabledgv_MouseMove") - ' 'm_Moving = False - ' End Try - - - 'End Sub Private Sub btnsave_Click(sender As System.Object, e As System.EventArgs) Handles btnsave.Click Save_Control() End Sub @@ -1351,40 +1089,10 @@ End If End Sub - Private Sub CTRL_TEXTTextBox_LostFocus(sender As Object, e As System.EventArgs) Handles CTRL_TEXTTextBox.LostFocus - Try - Dim type As String = CURRENT_CONTROL.GetType.ToString - If type.Contains("Label") Then - TBPM_PROFILE_CONTROLSBindingSource.EndEdit() - End If - Catch ex As Exception - MsgBox("Fehler bei CTRL_TEXTTextBox.LostFocus:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) - End Try - If CURRENT_CONTROL.Text <> CTRL_TEXTTextBox.Text Then - CURRENT_CONTROL.Text = CTRL_TEXTTextBox.Text - CTRL_TEXTTextBox.Text = CURRENT_CONTROL.Text - Save_Control() - End If - End Sub - Private Sub NAMETextBox_LostFocus(sender As Object, e As System.EventArgs) Handles NAMETextBox.LostFocus - Try - Dim type As String = CURRENT_CONTROL.GetType.ToString - If type.Contains("TextBox") Then - TBPM_PROFILE_CONTROLSBindingSource.EndEdit() - End If - Catch ex As Exception - MsgBox("Fehler bei NAMETextBox.LostFocus:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) - End Try - If CURRENT_CONTROL.Name <> NAMETextBox.Text Then - Save_Control() - End If - End Sub - Private Sub btnwidth_plus_Click(sender As System.Object, e As System.EventArgs) Handles btnwidth_plus.Click If CURRENT_CONTROL Is Nothing = False Then CURRENT_CONTROL.Size = New Size(CURRENT_CONTROL.Width + 5, CURRENT_CONTROL.Height) - WIDTHTextBox.Text = CURRENT_CONTROL.Size.Width - Save_Control() + UpdateSingleValue("WIDTH", CURRENT_CONTROL.Size.Width) End If End Sub @@ -1392,36 +1100,31 @@ Private Sub btnwidth_minus_Click(sender As System.Object, e As System.EventArgs) Handles btnwidth_minus.Click If CURRENT_CONTROL Is Nothing = False Then CURRENT_CONTROL.Size = New Size(CURRENT_CONTROL.Width - 5, CURRENT_CONTROL.Height) - WIDTHTextBox.Text = CURRENT_CONTROL.Size.Width - Save_Control() + UpdateSingleValue("WIDTH", CURRENT_CONTROL.Size.Width) End If End Sub Private Sub btnheight_plus_Click(sender As System.Object, e As System.EventArgs) Handles btnheight_plus.Click If CURRENT_CONTROL Is Nothing = False Then - Dim height As Integer = CURRENT_CONTROL.Height - height += 5 - If height > 21 Then - Dim txt As TextBox = DirectCast(CURRENT_CONTROL, TextBox) - txt.Multiline = True + Dim newHeight As Integer = CURRENT_CONTROL.Height + 5 + + If newHeight > 21 And TypeOf CURRENT_CONTROL Is TextBox Then + DirectCast(CURRENT_CONTROL, TextBox).Multiline = True End If - CURRENT_CONTROL.Size = New Size(CURRENT_CONTROL.Width, height) - HEIGHTTextBox.Text = height - Save_Control() + CURRENT_CONTROL.Size = New Size(CURRENT_CONTROL.Width, newHeight) + UpdateSingleValue("WIDTH", newHeight) End If End Sub Private Sub btnheight_minus_Click(sender As System.Object, e As System.EventArgs) Handles btnheight_minus.Click If CURRENT_CONTROL Is Nothing = False Then - Dim height As Integer = CURRENT_CONTROL.Height - height -= 5 - If height < 22 Then - Dim txt As TextBox = DirectCast(CURRENT_CONTROL, TextBox) - txt.Multiline = False + Dim newHeight As Integer = CURRENT_CONTROL.Height - 5 + + If newHeight < 22 And TypeOf CURRENT_CONTROL Is TextBox Then + DirectCast(CURRENT_CONTROL, TextBox).Multiline = True End If - CURRENT_CONTROL.Size = New Size(CURRENT_CONTROL.Width, height) - HEIGHTTextBox.Text = height - Save_Control() + CURRENT_CONTROL.Size = New Size(CURRENT_CONTROL.Width, newHeight) + UpdateSingleValue("WIDTH", newHeight) End If End Sub @@ -1534,4 +1237,272 @@ End If End Sub + +#Region "Rewrite" + ''' + ''' Setzt die Eventhandler für ein Control, die für die Bewegung via Drag & Drop und das Laden der Eigentschaften verantwortlich sind + ''' + ''' Das Control, für das die Eventhandler gesetzt werden sollen + Private Sub SetMovementHandlers(control As Control) + AddHandler control.Click, AddressOf OnControl_Click + AddHandler control.MouseDown, AddressOf OnControl_MouseDown + AddHandler control.MouseUp, AddressOf OnControl_MouseUp + AddHandler control.MouseMove, AddressOf OnControl_MouseMove + End Sub + + + + Private Sub OnControl_MouseDown(sender As Control, e As MouseEventArgs) + If e.Button = MouseButtons.Left Then + CURRENT_CONTROL = sender + BeginLocation = e.Location + sender.BringToFront() + MouseMoving = True + + Console.WriteLine("CURRENT_CONTROL:" & CURRENT_CONTROL.Name) + End If + End Sub + + Private Sub OnControl_MouseUp(sender As Control, e As MouseEventArgs) + If MouseMoving Then + MouseMoving = False + EndLocation = e.Location + + Dim CurrentPosition As Point = DirectCast(pgControls.SelectedObject, BaseProperties).Location + + If Point.op_Inequality(CurrentPosition, EndLocation) Then + DirectCast(pgControls.SelectedObject, BaseProperties).Location = CURRENT_CONTROL.Location + + UpdateSingleValue("X_LOC", CURRENT_CONTROL.Location.X) + UpdateSingleValue("Y_LOC", CURRENT_CONTROL.Location.Y) + End If + End If + + MyBase.Cursor = Cursors.Default + End Sub + + Private Sub OnControl_MouseMove(sender As Control, e As MouseEventArgs) + Try + If CURRENT_CONTROL Is Nothing Then + Exit Sub + End If + + If MouseMoving Then + Cursor = Cursors.Hand + Refresh() + + Dim CurrentPosition As Point = GetCursorPosition() + + If Point.op_Inequality(CurrentPosition, BeginLocation) Then + CURRENT_CONTROL.Location = New Point(CurrentPosition.X - BeginLocation.X, CurrentPosition.Y - BeginLocation.Y) + End If + End If + Catch ex As Exception + MouseMoving = False + End Try + End Sub + + ''' + ''' Weist die grundlegenden Eigenschaften zu einem Properties Objekt zu + ''' Die Properties werden an das Property Grid weitergegeben + ''' + ''' Das grundlegende Properties Objekt + ''' Die DataRow, die die Eigenschaften des Controls enthält + ''' Das gefüllt Properties Objekt + Private Function CreatePropsObject(obj As BaseProperties, row As DataRow, Optional indicies As List(Of String) = Nothing) + obj.ID = row.Item("GUID") + obj.Location = New Point(row.Item("X_LOC"), row.Item("Y_LOC")) + obj.Name = row.Item("NAME") + obj.Size = New Size(row.Item("WIDTH"), row.Item("HEIGHT")) + + Dim style As FontStyle = NotNull(row.Item("FONT_STYLE"), FontStyle.Regular) + Dim size As Single = NotNull(row.Item("FONT_SIZE"), 10) + Dim familyString As String = NotNull(row.Item("FONT_FAMILY"), "Arial") + Dim family As FontFamily = New FontFamily(familyString) + + obj.Font = New Font(family, size, style) + + Dim color As Integer = NotNull(row.Item("FONT_COLOR"), 0) + + obj.TextColor = IntToColor(color) + Return obj + End Function + + ''' + ''' Funktioniert wie CreatePropsObject mit dem Unterschied, dass zusätzlich noch eine Liste von Indicies übergeben wird + ''' Diese können dann im PropertyGrid angezeigt und ausgewählt werden. + ''' Außerdem werden noch einige Eigenschaften gesetzt, die alle Controls (außer reine Anzeige-Controls) haben + ''' + ''' Das grundlegende Properties Objekt + ''' Die DataRow, die die Eigenschaften des Controls enthält + ''' Eine Liste von Indicies + ''' Das gefüllt Properties Objekt + Private Function CreatePropsObjectWithIndicies(obj As InputProperties, row As DataRow, indicies As List(Of String)) + obj = CreatePropsObject(obj, row) + obj.Indicies = indicies + obj.ReadOnly = StrToBool(row.Item("READ_ONLY")) + obj.Required = StrToBool(row.Item("VALIDATION")) + obj.Index = NotNull(row.Item("INDEX_NAME"), "") + obj.SQLCommand = New InputProperties.SQLValue(row.Item("SQL_UEBERPRUEFUNG")) + Return obj + End Function + + Private Sub OnControl_Click(sender As Control, e As MouseEventArgs) + Dim props + Dim dt As DataTable = DD_DMSLiteDataSet.TBPM_PROFILE_CONTROLS + Dim row = dt.AsEnumerable().Where(Function(r As DataRow) + Return r.Item("GUID") = sender.Tag + End Function).Single() + + CURRENT_CONTROL = sender + CURRENT_CONTROL_ID = sender.Tag + + Set_Active_Color() + + gbxControl.Visible = True + + Dim indicies As List(Of String) = _windreamPM.GetIndicesByObjecttype(CURRENT_OBJECTTYPE).ToList() + Dim choiceLists As List(Of String) = DD_LIB_Standards.clsWD_GET.GetChoiceLists() + + If TypeOf sender Is Label Then + Dim label As Label = sender + Dim labelProps As LabelProperties = CreatePropsObject(New LabelProperties, row) + labelProps.Text = label.Text + + props = labelProps + ElseIf TypeOf sender Is CheckBox Then + Dim check As CheckBox = sender + Dim checkProps As CheckboxProperties = CreatePropsObjectWithIndicies(New CheckboxProperties, row, indicies) + checkProps.Text = check.Text + + props = checkProps + ElseIf TypeOf sender Is TextBox Then + Dim txt As TextBox = sender + Dim txtProps As TextboxProperties = CreatePropsObjectWithIndicies(New TextboxProperties, row, indicies) + + props = txtProps + + ElseIf TypeOf sender Is ComboBox Then + Dim cmb As ComboBox = sender + Dim cmbProps As ComboboxProperties = CreatePropsObjectWithIndicies(New ComboboxProperties, row, indicies) + cmbProps.ChoiceLists = choiceLists + cmbProps.ChoiceList = NotNull(row.Item("CHOICE_LIST"), "") + + props = cmbProps + + ElseIf TypeOf sender Is DateTimePicker Then + Dim dtp As DateTimePicker = sender + Dim dtpProps As DatepickerProperties = CreatePropsObjectWithIndicies(New DatepickerProperties, row, indicies) + + props = dtpProps + ElseIf TypeOf sender Is DataGridView Then + Dim grid As DataGridView = sender + Dim gridProps As GridViewProperties = CreatePropsObjectWithIndicies(New GridViewProperties, row, indicies) + + props = gridProps + Else + MsgBox("This is not a supported control type!") + Exit Sub + End If + + pgControls.SelectedObject = props + End Sub + + Private Sub pgControls_PropertyValueChanged(s As Object, e As PropertyValueChangedEventArgs) Handles pgControls.PropertyValueChanged + Dim oldValue As Object = e.OldValue + Dim newValue As Object = e.ChangedItem.Value + Dim prop As String = e.ChangedItem.Label + + Select Case prop + Case "Location" + UpdateSingleValue("X_LOC", DirectCast(newValue, Point).X) + UpdateSingleValue("Y_LOC", DirectCast(newValue, Point).Y) + + CURRENT_CONTROL.Location = newValue + + Case "X" + UpdateSingleValue("X_LOC", CInt(newValue)) + + CURRENT_CONTROL.Location = New Point(newValue, CURRENT_CONTROL.Location.Y) + + Case "Y" + UpdateSingleValue("Y_LOC", CInt(newValue)) + + CURRENT_CONTROL.Location = New Point(CURRENT_CONTROL.Location.X, newValue) + + Case "Size" + UpdateSingleValue("WIDTH", DirectCast(newValue, Size).Width) + UpdateSingleValue("HEIGHT", DirectCast(newValue, Size).Height) + + CURRENT_CONTROL.Size = newValue + + Case "Width" + UpdateSingleValue("WIDTH", DirectCast(newValue, Size).Width) + + CURRENT_CONTROL.Size = New Size(newValue, CURRENT_CONTROL.Size.Height) + + Case "Height" + UpdateSingleValue("HEIGHT", DirectCast(newValue, Size).Height) + + CURRENT_CONTROL.Size = New Size(CURRENT_CONTROL.Size.Width, newValue) + + Case "Name" + UpdateSingleValue("NAME", newValue) + + CURRENT_CONTROL.Name = newValue + + Case "Index" + UpdateSingleValue("INDEX_NAME", newValue) + + Case "Text" + UpdateSingleValue("CTRL_TEXT", newValue) + + CURRENT_CONTROL.Text = newValue + + Case "Required" + UpdateSingleValue("VALIDATION", IIf(newValue = True, 1, 0)) + + Case "ReadOnly" + UpdateSingleValue("READ_ONLY", IIf(newValue = True, 1, 0)) + + Case "Font" + Dim font As Font = newValue + Dim fontSize As Integer = Math.Truncate(font.SizeInPoints) + UpdateSingleValue("FONT_SIZE", fontSize) + UpdateSingleValue("FONT_FAMILY", font.FontFamily.Name) + UpdateSingleValue("FONT_STYLE", font.Style.ToString) + + CURRENT_CONTROL.Font = font + Case "TextColor" + Dim color As Color = newValue + UpdateSingleValue("FONT_COLOR", ColorToInt(color)) + + CURRENT_CONTROL.ForeColor = color + Case "SQLCommand" + UpdateSingleValue("SQL_UEBERPRUEFUNG", newValue) + UpdateSingleValue("CHOICE_LIST", "") + + Case "ChoiceList" + UpdateSingleValue("CHOICE_LIST", newValue) + UpdateSingleValue("SQL_UEBERPRUEFUNG", "") + End Select + End Sub + + Private Sub UpdateSingleValue(columnName As String, value As Object) + Dim guid As Integer = CURRENT_CONTROL_ID + Dim escapedValue = value + + If TypeOf value Is String Then + escapedValue = $"'{value}'" + ElseIf TypeOf value Is InputProperties.SQLValue Then + Dim v As InputProperties.SQLValue = value + escapedValue = $"'{v.Value.Replace("'", "''")}'" + End If + + ClassDatabase.Execute_non_Query($"UPDATE TBPM_PROFILE_CONTROLS SET {columnName} = {escapedValue} WHERE GUID = {guid}") + + tslblAenderungen.Visible = True + tslblAenderungen.Text = "Änderungen gespeichert - " & Now + End Sub +#End Region End Class \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmMain.vb b/app/DD_PM_WINDREAM/frmMain.vb index e98640b..e266e81 100644 --- a/app/DD_PM_WINDREAM/frmMain.vb +++ b/app/DD_PM_WINDREAM/frmMain.vb @@ -46,8 +46,9 @@ Public Class frmMain ClassLogger.Add("Error in Save FormLayout: " & ex.Message) End Try Try - Dim XMLPath = GetXML_LayoutName() - GridViewProfile.SaveLayoutToXml(XMLPath) + 'Dim XMLPath = GetXML_LayoutName() + 'GridViewProfile.SaveLayoutToXml(XMLPath) + SaveLayout() Catch ex As Exception End Try @@ -171,6 +172,43 @@ Public Class frmMain Dim Filename As String = String.Format("GridViewProfiles_UserLayout_{0}.xml", GRID_LOAD_TYPE) Return System.IO.Path.Combine(Application.UserAppDataPath(), Filename) End Function + + Private Sub SaveLayout() + Try + Dim xml As String = GetXML_LayoutName() + Dim xmlDefault = xml & ".default" + + If IO.File.Exists(xmlDefault) = False Then + GridViewProfile.SaveLayoutToXml(xmlDefault, OptionsLayoutBase.FullLayout) + End If + + GridViewProfile.SaveLayoutToXml(xml, OptionsLayoutBase.FullLayout) + Catch ex As Exception + ClassLogger.Add("Error while saving layout: " & ex.Message) + End Try + End Sub + + Private Sub RestoreLayout() + Try + Dim xml As String = GetXML_LayoutName() + GridViewProfile.RestoreLayoutFromXml(xml, OptionsLayoutBase.FullLayout) + Catch ex As Exception + ClassLogger.Add("Error while restoring layout: " & ex.Message) + End Try + End Sub + + Private Sub ResetLayout() + Try + Dim xml As String = GetXML_LayoutName() + Dim xmlDefault = xml & ".default" + IO.File.Delete(xml) + + GridViewProfile.RestoreLayoutFromXml(xmlDefault, OptionsLayoutBase.FullLayout) + Catch ex As Exception + ClassLogger.Add("Error while resetting layout: " & ex.Message) + End Try + End Sub + Sub Load_Profile_items() Cursor = Cursors.WaitCursor Try @@ -208,6 +246,10 @@ Public Class frmMain Cursor = Cursors.Default End Sub Private Sub navBar_LinkClicked(ByVal sender As Object, ByVal e As NavBarLinkEventArgs) + ' Das aktuelle Layout speichern, bevor das neue geladen wird + ' und GRID_LOAD_TYPE gesetzt wird. + SaveLayout() + Dim _tag = e.Link.Item.Tag If Not IsNothing(_tag) Then If _tag.ToString.Contains("itmProfile#") Then @@ -436,19 +478,12 @@ Public Class frmMain CURR_DT_PROFILEGRID = ClassDatabase.Return_Datatable(sql, True) Create_Basic_View() - Dim filexml = GetXML_LayoutName() - GridViewProfile.RestoreLayoutFromXml(filexml) - GridView_CheckInvalidColumns() - If GRID_INV_COL_REMOVED = True Then - GridViewProfile.SaveLayoutToXml(filexml) - End If + Dim Columns_Removed = GridView_CheckInvalidColumns() + RestoreLayout() End If - - - Catch ex As Exception ClassLogger.Add("Load_single_Profile - Error: " & ex.Message) End Try @@ -492,12 +527,8 @@ Public Class frmMain GridControlProfile.DataSource = CURR_DT_PROFILEGRID 'GridControlProfile.ForceInitialize() - Try - Dim XMLPath = GetXML_LayoutName() - GridViewProfile.RestoreLayoutFromXml(XMLPath) - Catch ex As Exception + RestoreLayout() - End Try GridViewProfile.Columns.Item("PROFILE_ID").Visible = False GridViewProfile.Columns.Item("GUID").Visible = False GridViewProfile.Columns.Item("FULL_FILE_PATH").Visible = False @@ -506,7 +537,7 @@ Public Class frmMain GridViewProfile.Columns.Item("ICON").MaxWidth = 24 GridViewProfile.Columns.Item("ICON").MinWidth = 24 GridViewProfile.Columns.Item("ICON").AppearanceCell.BackColor = Color.White - GridViewProfile.Columns.Item("ICON").Fixed = DevExpress.XtraGrid.Columns.FixedStyle.Left + GridViewProfile.Columns.Item("ICON").Fixed = FixedStyle.Left GridViewProfile.Columns("Last edited").DisplayFormat.FormatType = FormatType.DateTime GridViewProfile.Columns("Last edited").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss" GridViewProfile.Columns.Item("PROFILE_GROUP_TEXT").Visible = False @@ -514,7 +545,8 @@ Public Class frmMain End Sub - Private Sub GridView_CheckInvalidColumns() + Private Function GridView_CheckInvalidColumns() As Boolean + Dim Columns_Removed = False GRID_INV_COL_REMOVED = False Try For Each grid_column As GridColumn In GridViewProfile.Columns @@ -535,20 +567,20 @@ Public Class frmMain If grid_column.Visible = True Then Try grid_column.Dispose() + Columns_Removed = True GRID_INV_COL_REMOVED = True Catch ex As Exception End Try End If - - End If Next + Return Columns_Removed Catch ex As Exception ClassLogger.Add("Unexpected Error in GridView_CheckInvalidColumns: " & ex.Message) End Try - End Sub + End Function Sub LoadProfile_PM() Try If Me.Visible = True And frmProfileDesigner.Visible = False Then @@ -586,10 +618,9 @@ Public Class frmMain Catch ex As Exception ClassLogger.Add("Unexpected Error in Formatting Grid: " & ex.Message) End Try - GridView_CheckInvalidColumns() - If GRID_INV_COL_REMOVED = True Then - GridViewProfile.SaveLayoutToXml(GetXML_LayoutName()) - End If + + Dim Columns_Removed = GridView_CheckInvalidColumns() + RestoreLayout() Else @@ -797,15 +828,6 @@ Public Class frmMain End Sub - Private Sub GridViewProfile_Layout(sender As Object, e As EventArgs) Handles GridViewProfile.Layout - Try - Dim XMLPath = GetXML_LayoutName() - GridViewProfile.SaveLayoutToXml(XMLPath) - Catch ex As Exception - - End Try - End Sub - Private Sub GridViewProfile_MouseDown(sender As Object, e As MouseEventArgs) Handles GridViewProfile.MouseDown Dim view As GridView = sender @@ -923,6 +945,9 @@ Public Class frmMain End Sub Private Sub NavBarItemOverview_LinkClicked(sender As Object, e As NavBarLinkEventArgs) Handles NavBarItemOverview.LinkClicked + ' Das aktuelle Layout speichern, bevor das neue geladen wird + ' und GRID_LOAD_TYPE gesetzt wird. + SaveLayout() Load_Grid_Overview() End Sub Sub Load_Grid_Overview() @@ -996,12 +1021,9 @@ Public Class frmMain GridControlProfile.DataSource = CURR_DT_PROFILEGRID 'GridControlProfile.ForceInitialize() - Try - Dim XMLPath = GetXML_LayoutName() - GridViewProfile.RestoreLayoutFromXml(XMLPath) - Catch ex As Exception - End Try + Dim Columns_Removed = GridView_CheckInvalidColumns() + RestoreLayout() Try GridViewProfile.Columns.Item("PROFILE_GROUP_TEXT").GroupIndex = 0 @@ -1064,8 +1086,8 @@ Public Class frmMain - GridViewProfile.SaveLayoutToXml(GetXML_LayoutName()) - + 'GridViewProfile.SaveLayoutToXml(GetXML_LayoutName()) + SaveLayout() Else GridControlProfile.DataSource = Nothing Try @@ -1100,4 +1122,8 @@ Public Class frmMain End If Layout_Dashboard() End Sub + + Private Sub TabellenlayoutZurücksetzenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TabellenlayoutZurücksetzenToolStripMenuItem.Click + ResetLayout() + End Sub End Class \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmSQL_DESIGNER.Designer.vb b/app/DD_PM_WINDREAM/frmSQL_DESIGNER.Designer.vb index 461deaf..78a2316 100644 --- a/app/DD_PM_WINDREAM/frmSQL_DESIGNER.Designer.vb +++ b/app/DD_PM_WINDREAM/frmSQL_DESIGNER.Designer.vb @@ -256,6 +256,7 @@ Partial Class frmSQL_DESIGNER ' 'btnSaveSQLCommand ' + Me.btnSaveSQLCommand.DialogResult = System.Windows.Forms.DialogResult.OK Me.btnSaveSQLCommand.Image = CType(resources.GetObject("btnSaveSQLCommand.Image"), System.Drawing.Image) Me.btnSaveSQLCommand.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnSaveSQLCommand.Location = New System.Drawing.Point(818, 513) diff --git a/app/DD_PM_WINDREAM/frmSQL_DESIGNER.resx b/app/DD_PM_WINDREAM/frmSQL_DESIGNER.resx index abdf357..2e5d97e 100644 --- a/app/DD_PM_WINDREAM/frmSQL_DESIGNER.resx +++ b/app/DD_PM_WINDREAM/frmSQL_DESIGNER.resx @@ -153,10 +153,10 @@ - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAJcEhZcwAADsQAAA7EAZUrDhsAAABcSURBVDhPzYxRCoAwDEN3tt7/PP2NWDrJaoRNYRh4H0uX - 1wB8QpYrjA+Ku6OSp8iUwMwu9gjOT0wVMH1zE/DoiZ8LmDpi+mYQcJQgT5E9gkqeIlLwBlmuIMt50A4j - RH5TZf96FwAAAABJRU5ErkJggg== + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn + yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF + TkSuQmCC @@ -168,10 +168,10 @@ - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAJcEhZcwAADsQAAA7EAZUrDhsAAABcSURBVDhPzYxRCoAwDEN3tt7/PP2NWDrJaoRNYRh4H0uX - 1wB8QpYrjA+Ku6OSp8iUwMwu9gjOT0wVMH1zE/DoiZ8LmDpi+mYQcJQgT5E9gkqeIlLwBlmuIMt50A4j - RH5TZf96FwAAAABJRU5ErkJggg== + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn + yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF + TkSuQmCC diff --git a/app/DD_PM_WINDREAM/frmSQL_DESIGNER.vb b/app/DD_PM_WINDREAM/frmSQL_DESIGNER.vb index 0528830..0649c0b 100644 --- a/app/DD_PM_WINDREAM/frmSQL_DESIGNER.vb +++ b/app/DD_PM_WINDREAM/frmSQL_DESIGNER.vb @@ -5,21 +5,27 @@ Public Class frmSQL_DESIGNER Private _windreamPM As ClassPMWindream Private Sub TBPM_PROFILE_FINAL_INDEXINGBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) - Me.Validate() - Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource.EndEdit() - Me.TableAdapterManager.UpdateAll(Me.DD_DMSLiteDataSet) + Validate() + TBPM_PROFILE_FINAL_INDEXINGBindingSource.EndEdit() + TableAdapterManager.UpdateAll(Me.DD_DMSLiteDataSet) End Sub Private Sub frmSQL_FINAL_INDICES_Load(sender As Object, e As EventArgs) Handles MyBase.Load Try lblSaveFinalIndex.Visible = False - 'TODO: Diese Codezeile lädt Daten in die Tabelle "DD_DMSLiteDataSet.TBPM_CONNECTION". Sie können sie bei Bedarf verschieben oder entfernen. - Me.TBPM_CONNECTIONTableAdapter.Connection.ConnectionString = MyConnectionString - Me.TBPM_CONNECTIONTableAdapter.Fill(Me.DD_DMSLiteDataSet.TBPM_CONNECTION) - Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter.Connection.ConnectionString = MyConnectionString - cmbConnection.SelectedValue = CURRENT_DT_SQL_CONFIG_TABLE.Rows(0).Item("CONNECTION_ID") - cmbConnection.FindStringExact(CURRENT_DT_SQL_CONFIG_TABLE.Rows(0).Item("CON_STRING")) - SQL_COMMANDTextBox.Text = CURRENT_DT_SQL_CONFIG_TABLE.Rows(0).Item("SQL_COMMAND") + TBPM_CONNECTIONTableAdapter.Connection.ConnectionString = MyConnectionString + TBPM_CONNECTIONTableAdapter.Fill(DD_DMSLiteDataSet.TBPM_CONNECTION) + TBPM_PROFILE_FINAL_INDEXINGTableAdapter.Connection.ConnectionString = MyConnectionString + + CURRENT_DT_SQL_CONFIG_TABLE = ClassDatabase.Return_Datatable(String.Format("SELECT T.CONNECTION_ID,T1.BEZEICHNUNG AS 'CON_STRING',ISNULL(T.SQL_UEBERPRUEFUNG,'') AS 'SQL_COMMAND' FROM TBPM_PROFILE_CONTROLS T, TBPM_CONNECTION T1 WHERE T.CONNECTION_ID = T1.GUID AND T.GUID = {0}", CURRENT_CONTROL_ID), True) + + If CURRENT_DT_SQL_CONFIG_TABLE.Rows.Count > 0 Then + cmbConnection.SelectedValue = CURRENT_DT_SQL_CONFIG_TABLE.Rows(0).Item("CONNECTION_ID") + cmbConnection.FindStringExact(CURRENT_DT_SQL_CONFIG_TABLE.Rows(0).Item("CON_STRING")) + SQL_COMMANDTextBox.Text = CURRENT_DT_SQL_CONFIG_TABLE.Rows(0).Item("SQL_COMMAND") + Else + SQL_COMMANDTextBox.Text = String.Empty + End If Try ' Windream instanziieren _windreamPM = New ClassPMWindream() @@ -211,7 +217,7 @@ Public Class frmSQL_DESIGNER Else lblSaveFinalIndex.Visible = False End If - + Me.Value = SQL_COMMANDTextBox.Text End If End Sub