AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

jj 03.04 kampf mit net framework

Browse Source
This commit is contained in:
Digital Data 2017-04-03 13:01:57 +02:00
parent cb12278936
commit e24ce1d4bd
26 changed files with 1247 additions and 196 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
.vs/ProjectSettings.json Normal file
View File

@ -0,0 +1,3 @@
{
"CurrentProjectSetting": null
}

8
.vs/VSWorkspaceState.json Normal file
View File

@ -0,0 +1,8 @@
{
"ExpandedNodes": [
"",
"\\app"
],
"SelectedNode": "\\app\\DD-Record-Organizer.sln",
"PreviewInSolutionExplorer": false
}

BIN
.vs/slnx.sqlite Normal file
View File

Binary file not shown.

1020
app/.vs/config/applicationhost.config Normal file
View File

File diff suppressed because it is too large Load Diff

8
app/DD-Record-Organizer/App.config
View File

@ -1,4 +1,4 @@
<?xml version="1.0" encoding="utf-8" ?>
<?xml version="1.0" encoding="utf-8"?>
<configuration>
<configSections>
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
@ -9,12 +9,10 @@
</sectionGroup>
</configSections>
<connectionStrings>
<add name="DD_Record_Organizer.My.MySettings.DD_DMSConnectionString"
connectionString="Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_RENOLIT;Persist Security Info=True;User ID=sa;Password=ddd"
providerName="System.Data.SqlClient" />
<add name="DD_Record_Organizer.My.MySettings.DD_DMSConnectionString" connectionString="Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_RENOLIT;Persist Security Info=True;User ID=sa;Password=ddd" providerName="System.Data.SqlClient"/>
</connectionStrings>
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5.1" />
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5.2"/>
</startup>
<userSettings>
<DD_Record_Organizer.My.MySettings>

2
app/DD-Record-Organizer/ClassControlCommandsUI.vb
View File

@ -508,7 +508,7 @@ Public Class ClassControlCommandsUI
Continue For
End If
If TypeOf ctrl Is Windows.Forms.DataGridView Then
If TypeOf ctrl Is System.Windows.Forms.DataGridView Then
Dim id As Integer = DirectCast(ctrl.Tag, ClassControlMetadata).Id
UpdateMultipleValues(id, RecordID, CONTROL_VALUE)
Continue For

14
app/DD-Record-Organizer/ClassControlLoader.vb
View File

@ -14,7 +14,7 @@
' Return sqlCommand
'End Function
Public Shared Function LoadAutoValue(control As Windows.Forms.Control, RecordId As Integer, ParentRecordId As Integer, entity_ID As Integer)
Public Shared Function LoadAutoValue(control As System.Windows.Forms.Control, RecordId As Integer, ParentRecordId As Integer, entity_ID As Integer)
Try
Dim AutoValue As String = String.Empty
Dim ControlId As Integer = DirectCast(control.Tag, ClassControlMetadata).Id
@ -205,7 +205,7 @@
control.DataSource = dt
End Sub
Overloads Shared Sub SetDataSource(control As Windows.Forms.DataGridView, dt As DataTable)
Overloads Shared Sub SetDataSource(control As System.Windows.Forms.DataGridView, dt As DataTable)
control.DataSource = dt
End Sub
@ -218,7 +218,7 @@
Public Class Label : Inherits _BaseControl
Public Shared Sub LoadValue(control As Windows.Forms.Label, recordId As Integer, parentRecordId As Integer, value As String, entity_ID As Integer, Optional VARIABLE_VALUE As Boolean = False)
Public Shared Sub LoadValue(control As System.Windows.Forms.Label, recordId As Integer, parentRecordId As Integer, value As String, entity_ID As Integer, Optional VARIABLE_VALUE As Boolean = False)
Dim Sql
Dim ControlId As Integer
Try
@ -263,7 +263,7 @@
Public Class Checkbox : Inherits _BaseControl
Public Shared Sub LoadValue(control As Windows.Forms.CheckBox, value As String)
Public Shared Sub LoadValue(control As System.Windows.Forms.CheckBox, value As String)
Try
Dim result As Boolean = False
Boolean.TryParse(value, result)
@ -279,7 +279,7 @@
Public Class RadioButton : Inherits _BaseControl
Public Shared Sub LoadValue(control As Windows.Forms.RadioButton, value As String)
Public Shared Sub LoadValue(control As System.Windows.Forms.RadioButton, value As String)
Try
Dim result As Boolean = False
Boolean.TryParse(value, result)
@ -295,7 +295,7 @@
Public Class TextBox : Inherits _BaseControl
Public Shared Sub LoadValue(control As Windows.Forms.TextBox, recordId As Integer, parentRecordId As Integer, value As String, entity_ID As Integer, Optional VARIABLE_VALUE As Boolean = False)
Public Shared Sub LoadValue(control As System.Windows.Forms.TextBox, recordId As Integer, parentRecordId As Integer, value As String, entity_ID As Integer, Optional VARIABLE_VALUE As Boolean = False)
Try
Dim ControlId As Integer = DirectCast(control.Tag, ClassControlMetadata).Id
If ControlId = 272 Then
@ -509,7 +509,7 @@
Public Class DataGridView : Inherits _ListControl
Public Shared Sub LoadValue(control As Windows.Forms.DataGridView, values As List(Of Object))
Public Shared Sub LoadValue(control As System.Windows.Forms.DataGridView, values As List(Of Object))
control.Rows.Clear()
For Each item In values
control.Rows.Add(item.ToString)

4
app/DD-Record-Organizer/ClassCustomComboBox.vb
View File

@ -1,10 +1,10 @@
Public Class CustomComboBox
Inherits Windows.Forms.ComboBox
Inherits ComboBox
Public Sub New()
MyBase.New()
DrawMode = Windows.Forms.DrawMode.OwnerDrawFixed
DrawMode = DrawMode.OwnerDrawFixed
End Sub
'Protected Overrides Sub OnEnabledChanged(e As EventArgs)

40
app/DD-Record-Organizer/DD-Record-Organizer.vbproj
View File

@ -11,7 +11,7 @@
<AssemblyName>DD-Record-Organizer</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>WindowsForms</MyType>
<TargetFrameworkVersion>v4.5.1</TargetFrameworkVersion>
<TargetFrameworkVersion>v4.5.2</TargetFrameworkVersion>
<AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
<IsWebBootstrapper>false</IsWebBootstrapper>
<PublishUrl>publish\</PublishUrl>
@ -28,6 +28,7 @@
<ApplicationVersion>1.0.0.%2a</ApplicationVersion>
<UseApplicationTrust>false</UseApplicationTrust>
<BootstrapperEnabled>true</BootstrapperEnabled>
<TargetFrameworkProfile />
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
@ -90,12 +91,21 @@
<Reference Include="DevExpress.BonusSkins.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.Charts.v15.2.Core, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Charts.v15.2.Core, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.Charts.v15.2.Core.dll</HintPath>
</Reference>
<Reference Include="DevExpress.Data.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.Images.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Map.v15.2.Core, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Images.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.Images.v15.2.dll</HintPath>
</Reference>
<Reference Include="DevExpress.Map.v15.2.Core, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.Map.v15.2.Core.dll</HintPath>
</Reference>
<Reference Include="DevExpress.Office.v15.2.Core, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
@ -121,9 +131,18 @@
<Reference Include="DevExpress.XtraBars.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.XtraCharts.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraCharts.v15.2.UI, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraCharts.v15.2.Wizard, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraCharts.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.XtraCharts.v15.2.dll</HintPath>
</Reference>
<Reference Include="DevExpress.XtraCharts.v15.2.UI, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.XtraCharts.v15.2.UI.dll</HintPath>
</Reference>
<Reference Include="DevExpress.XtraCharts.v15.2.Wizard, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.XtraCharts.v15.2.Wizard.dll</HintPath>
</Reference>
<Reference Include="DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
@ -133,7 +152,10 @@
<Reference Include="DevExpress.XtraLayout.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.XtraMap.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraMap.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.XtraMap.v15.2.dll</HintPath>
</Reference>
<Reference Include="DevExpress.XtraNavBar.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
@ -171,7 +193,7 @@
<HintPath>..\..\lib\DLLLicenseManager.dll</HintPath>
</Reference>
<Reference Include="ERPConnect45">
<HintPath>D:\Programme\Sprachen\ERPConnect\ERPConnect45.dll</HintPath>
<HintPath>P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\DLL_Bibliotheken\ERPConnect45.dll</HintPath>
</Reference>
<Reference Include="Independentsoft.Msg">
<HintPath>..\..\3rdparty\lib\MSG.NET\Independentsoft.Msg.dll</HintPath>

2
app/DD-Record-Organizer/DD_DMSDataSetCalendar.Designer.vb generated
View File

@ -1,7 +1,7 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.36366
' Laufzeitversion:4.0.30319.42000
'
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird.

2
app/DD-Record-Organizer/DD_DMSDataSetMenuDesigner.Designer.vb generated
View File

@ -1,7 +1,7 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.36366
' Laufzeitversion:4.0.30319.42000
'
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird.

2
app/DD-Record-Organizer/DD_ECMAdmin.Designer.vb generated
View File

@ -1,7 +1,7 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.36366
' Laufzeitversion:4.0.30319.42000
'
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird.

6
app/DD-Record-Organizer/My Project/Application.Designer.vb generated
View File

@ -1,7 +1,7 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.36366
' 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.
'

36
app/DD-Record-Organizer/My Project/Settings.Designer.vb generated
View File

@ -1,7 +1,7 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.36366
' Laufzeitversion:4.0.30319.42000
'
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird.
@ -15,21 +15,21 @@ Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "12.0.0.0"), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "15.0.1.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
#Region "Funktion zum automatischen Speichern von My.Settings"
#Region "Automatische My.Settings-Speicherfunktion"
#If _MyType = "WindowsForms" Then
Private Shared addedHandler As Boolean
Private Shared addedHandlerLockObject As New Object
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
If My.Application.SaveMySettingsOnExit Then
My.Settings.Save()
End If
@ -73,7 +73,7 @@ Namespace My
Get
Return CType(Me("WD_ENTITYIMP_EXCLUDE"),String)
End Get
Set(value As String)
Set
Me("WD_ENTITYIMP_EXCLUDE") = value
End Set
End Property
@ -86,7 +86,7 @@ Namespace My
Get
Return CType(Me("WD_ENTITYIMP_FILTER"),String)
End Get
Set(value As String)
Set
Me("WD_ENTITYIMP_FILTER") = value
End Set
End Property
@ -99,7 +99,7 @@ Namespace My
Get
Return CType(Me("WD_ENTITYIMP_IMPPATH"),String)
End Get
Set(value As String)
Set
Me("WD_ENTITYIMP_IMPPATH") = value
End Set
End Property
@ -112,7 +112,7 @@ Namespace My
Get
Return CType(Me("WD_ENTITYIMP_TARGETPATH"),String)
End Get
Set(value As String)
Set
Me("WD_ENTITYIMP_TARGETPATH") = value
End Set
End Property
@ -125,7 +125,7 @@ Namespace My
Get
Return CType(Me("WD_ENTITYIMP_SAFETYPATH"),String)
End Get
Set(value As String)
Set
Me("WD_ENTITYIMP_SAFETYPATH") = value
End Set
End Property
@ -138,7 +138,7 @@ Namespace My
Get
Return CType(Me("WD_ENTITYIMP_OBJECTTYPE"),String)
End Get
Set(value As String)
Set
Me("WD_ENTITYIMP_OBJECTTYPE") = value
End Set
End Property
@ -151,7 +151,7 @@ Namespace My
Get
Return CType(Me("WD_INDEXDOKART_SAVE"),String)
End Get
Set(value As String)
Set
Me("WD_INDEXDOKART_SAVE") = value
End Set
End Property
@ -164,7 +164,7 @@ Namespace My
Get
Return CType(Me("User_Calendar_isChild"),Boolean)
End Get
Set(value As Boolean)
Set
Me("User_Calendar_isChild") = value
End Set
End Property
@ -177,7 +177,7 @@ Namespace My
Get
Return CType(Me("User_DesignPanels_areChild"),Boolean)
End Get
Set(value As Boolean)
Set
Me("User_DesignPanels_areChild") = value
End Set
End Property
@ -190,7 +190,7 @@ Namespace My
Get
Return CType(Me("Constructor_DetailsSplitter"),Integer)
End Get
Set(value As Integer)
Set
Me("Constructor_DetailsSplitter") = value
End Set
End Property
@ -203,7 +203,7 @@ Namespace My
Get
Return CType(Me("User_InBoxScan_NotinFront"),Boolean)
End Get
Set(value As Boolean)
Set
Me("User_InBoxScan_NotinFront") = value
End Set
End Property
@ -216,7 +216,7 @@ Namespace My
Get
Return CType(Me("TBPMO_RIGHT_GROUPDataGridView"),String)
End Get
Set(value As String)
Set
Me("TBPMO_RIGHT_GROUPDataGridView") = value
End Set
End Property
@ -229,7 +229,7 @@ Namespace My
Get
Return CType(Me("frmRecordViewSplitter"),Integer)
End Get
Set(value As Integer)
Set
Me("frmRecordViewSplitter") = value
End Set
End Property
@ -241,7 +241,7 @@ Namespace My
Get
Return CType(Me("TBPMO_RIGHT_USERDataGridView"),String)
End Get
Set(value As String)
Set
Me("TBPMO_RIGHT_USERDataGridView") = value
End Set
End Property

2
app/DD-Record-Organizer/Strings/ControlProperties.Designer.vb generated
View File

@ -1,7 +1,7 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.36366
' Laufzeitversion:4.0.30319.42000
'
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird.

10
app/DD-Record-Organizer/frmConstructor_Main.vb
View File

@ -2687,9 +2687,9 @@ Public Class frmConstructor_Main
For Each Control As System.Windows.Forms.Control In controls
Dim controlId As Integer = DirectCast(Control.Tag, ClassControlMetadata).Id
Select Case Control.GetType()
Case GetType(Windows.Forms.GroupBox)
Case GetType(System.Windows.Forms.GroupBox)
Lock_Record_Controls_Recursive(state, DirectCast(Control, GroupBox).Controls)
Case GetType(Windows.Forms.TextBox)
Case GetType(System.Windows.Forms.TextBox)
Dim txt As TextBox = CType(Control, TextBox)
txt.ReadOnly = CHECK_CONTROL_CONFIGURED_RO(controlId, state)
Case Else
@ -2713,7 +2713,7 @@ Public Class frmConstructor_Main
msg1 = "Unsaved changes"
End If
Dim result As DialogResult = MessageBox.Show(msg, msg1, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = Windows.Forms.DialogResult.Yes Then
If result = System.Windows.Forms.DialogResult.Yes Then
If CtrlCommandUI.IsInsert = True Then
EDIT_STATE = EditState.None
Lock_RecordControls(True)
@ -4809,13 +4809,13 @@ Public Class frmConstructor_Main
Try
Dim view As BaseView = CType(sender, BaseView)
If e.Button = Windows.Forms.MouseButtons.Right Then
If e.Button = System.Windows.Forms.MouseButtons.Right Then
GRIDRightMouse_Clicked = True
Else
GRIDRightMouse_Clicked = False
End If
Dim hitInfo As GridHitInfo = view.CalcHitInfo(New Point(e.X, e.Y))
If e.Button = Windows.Forms.MouseButtons.Left AndAlso hitInfo.InRow AndAlso hitInfo.HitTest <> GridHitTest.RowIndicator Then
If e.Button = System.Windows.Forms.MouseButtons.Left AndAlso hitInfo.InRow AndAlso hitInfo.HitTest <> GridHitTest.RowIndicator Then
GRIDdownHitInfo = hitInfo
End If
Catch ex As Exception

4
app/DD-Record-Organizer/frmDiagrams.vb
View File

@ -261,7 +261,7 @@ Public Class frmDiagrams
End If
Dim successResult As DialogResult = MessageBox.Show(message, "Success", MessageBoxButtons.YesNo)
If successResult = Windows.Forms.DialogResult.Yes Then
If successResult = System.Windows.Forms.DialogResult.Yes Then
Process.Start(filepath)
End If
End Sub
@ -333,7 +333,7 @@ Public Class frmDiagrams
Dim result As DialogResult = saveDialog.ShowDialog()
If result = Windows.Forms.DialogResult.OK Then
If result = System.Windows.Forms.DialogResult.OK Then
Dim filename As String = saveDialog.FileName
Select Case ext

4
app/DD-Record-Organizer/frmGeodataNavigation.vb
View File

@ -312,7 +312,7 @@ Public Class frmGeodataNavigation
Dim frm As New frmGeodataSelect(point)
Dim result = frm.ShowDialog()
If result = Windows.Forms.DialogResult.OK Then
If result = System.Windows.Forms.DialogResult.OK Then
Dim SelectedPoint As GeoPoint = frm.SelectedPoint
txtLat.Text = SelectedPoint.Latitude
@ -397,7 +397,7 @@ Public Class frmGeodataNavigation
Try
Dim result As DialogResult = MessageBox.Show("Wollen Sie die Koordinaten für diesen Datensatz löschen?", "Koordinaten löschen", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = Windows.Forms.DialogResult.Yes Then
If result = System.Windows.Forms.DialogResult.Yes Then
Dim currentRow As DataRowView = grvwMain.GetFocusedRow()
Dim RecordId As Integer = currentRow.Item("Record-ID")
Dim sql = "DELETE FROM TBPMO_RECORD_GEODATA WHERE RECORD_ID = " & RecordId

4
app/DD-Record-Organizer/frmGeodataSelect.vb
View File

@ -63,7 +63,7 @@ Public Class frmGeodataSelect
End Sub
Private Sub MapControl1_Click(sender As Object, e As MouseEventArgs) Handles MapControl1.Click
If e.Button <> Windows.Forms.MouseButtons.Left Then
If e.Button <> System.Windows.Forms.MouseButtons.Left Then
Exit Sub
End If
If _SelectActive = False Then
@ -94,7 +94,7 @@ Public Class frmGeodataSelect
layout.PutValue("MapControlSelect_ZoomLevel", MapControl1.ZoomLevel)
Me.DialogResult = Windows.Forms.DialogResult.OK
Me.DialogResult = System.Windows.Forms.DialogResult.OK
Me.Close()
End Sub

2
app/DD-Record-Organizer/frmLevel_Designer.vb
View File

@ -507,7 +507,7 @@
Private Sub Control_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
' Check to see if the correct button has been pressed
If e.Button = Windows.Forms.MouseButtons.Left Then
If e.Button = System.Windows.Forms.MouseButtons.Left Then
DesignerCtrlBuilder.CurrentControl = sender
DesignerCtrlBuilder.BeginLocation = e.Location

2
app/DD-Record-Organizer/frmQuickStart_Images.vb
View File

@ -20,7 +20,7 @@
Private Sub btnSelectImage_Click(sender As Object, e As EventArgs) Handles btnSelectImage.Click
OpenFileDialog1.Filter = "PNG Bilder|*.png"
If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
If OpenFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
Dim path As String = OpenFileDialog1.FileName
pbNew.ImageLocation = path
btnSaveImage.Enabled = True

2
app/DD-Record-Organizer/frmRecOrgConfig_Basic.vb
View File

@ -141,7 +141,7 @@ Public Class frmRecOrgConfig_Basic
Private Sub btnSelectBackground_Click(sender As Object, e As EventArgs) Handles btnSelectBackground.Click
OpenFileDialog1.Filter = "PNG Bilder|*.png"
If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
If OpenFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
Dim path As String = OpenFileDialog1.FileName
pbBackground.ImageLocation = path
btnsave.Enabled = True

2
app/DD-Record-Organizer/frmStructureNodeConfig.vb
View File

@ -332,7 +332,7 @@
Private Sub btnSelectBackground_Click(sender As Object, e As EventArgs) Handles btnSelectBackground.Click
Try
OpenFileDialog1.Filter = "PNG Bilder|*.png"
If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
If OpenFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
Dim path As String = OpenFileDialog1.FileName
pbBackground.ImageLocation = path
If Save_Config() = True Then

2
app/DD-Record-Organizer/frmTask_Management.vb
View File

@ -215,7 +215,7 @@
'End Sub
Private Sub btncolordialog_Click(sender As Object, e As EventArgs) Handles btncolordialog.Click
If ColorDialog1.ShowDialog <> Windows.Forms.DialogResult.Cancel Then
If ColorDialog1.ShowDialog <> System.Windows.Forms.DialogResult.Cancel Then
Dim colour As Integer = ColorTranslator.ToWin32(ColorDialog1.Color)
COLORTextBox.Text = colour
COLORTextBox.BackColor = ColorDialog1.Color

2
app/DD-Record-Organizer/frmTemplates.vb
View File

@ -113,7 +113,7 @@
Me.OpenFileDialog1.FileName = Me.TEMPLATE_PATHTextBox.Text
End If
If Me.OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
If Me.OpenFileDialog1.ShowDialog = System.Windows.Forms.DialogResult.OK Then
Me.TEMPLATE_PATHTextBox.Text = Me.OpenFileDialog1.FileName
GetPatterns()
End If

2
app/DD-Record-Organizer/frmWD_Import_Doc_Record.vb
View File

@ -106,7 +106,7 @@ Public Class frmWD_Import_Doc_Record
Me.dlgWindreamsuche.FileName = Me.WD_SEARCHTextBox.Text
End If
If Me.dlgWindreamsuche.ShowDialog = Windows.Forms.DialogResult.OK Then
If Me.dlgWindreamsuche.ShowDialog = System.Windows.Forms.DialogResult.OK Then
Me.WD_SEARCHTextBox.Text = Me.dlgWindreamsuche.FileName
End If
End Sub