MS Nullverweis Combobox

app/DD_PM_WINDREAM/ClassSnapPanel.vb

@@ -1,56 +0,0 @@
-Public Class ClassSnapPanel
-    Inherits System.Windows.Forms.Panel
-
-    Private _ShowGrid As Boolean = True
-    Private _GridSize As Integer = 16
-
-    Private Property AutoScaleMode As AutoScaleMode
-
-    Public Property GridSize As Integer
-        Get
-            Return _GridSize
-        End Get
-        Set(value As Integer)
-            _GridSize = value
-            Refresh()
-        End Set
-    End Property
-
-    Public Property ShowGrid As Boolean
-        Get
-            Return _ShowGrid
-        End Get
-        Set(value As Boolean)
-            _ShowGrid = value
-            Refresh()
-        End Set
-    End Property
-
-    Protected Overrides Sub OnControlAdded(e As System.Windows.Forms.ControlEventArgs)
-        AddHandler e.Control.LocationChanged, AddressOf AlignToGrid
-        AddHandler e.Control.DragDrop, AddressOf AlignToGrid
-        MyBase.OnControlAdded(e)
-    End Sub
-
-    Protected Overrides Sub OnControlRemoved(e As System.Windows.Forms.ControlEventArgs)
-        RemoveHandler e.Control.LocationChanged, AddressOf AlignToGrid
-        RemoveHandler e.Control.DragDrop, AddressOf AlignToGrid
-        MyBase.OnControlRemoved(e)
-    End Sub
-
-    Protected Overrides Sub OnPaint(e As System.Windows.Forms.PaintEventArgs)
-        If _ShowGrid Then
-            ControlPaint.DrawGrid(e.Graphics, ClientRectangle, New Size(_GridSize, _GridSize), BackColor)
-        End If
-        MyBase.OnPaint(e)
-    End Sub
-
-    Private Sub AlignToGrid(sender As Object, e As EventArgs)
-        If _ShowGrid Then
-            Dim item As Control = CType(sender, Control)
-            Dim x As Integer = Math.Round(item.Left / _GridSize) * _GridSize
-            Dim y As Integer = Math.Round(item.Top / _GridSize) * _GridSize
-            item.Location = New Point(x, y)
-        End If
-    End Sub
-End Class

app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj

@@ -33,7 +33,7 @@
     <BootstrapperEnabled>true</BootstrapperEnabled>
   </PropertyGroup>
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|x86' ">
-    <PlatformTarget>AnyCPU</PlatformTarget>
+    <PlatformTarget>x86</PlatformTarget>
     <DebugSymbols>true</DebugSymbols>
     <DebugType>full</DebugType>
     <DefineDebug>true</DefineDebug>
@@ -263,9 +263,6 @@
     <Compile Include="ClassParamRefresh.vb" />
     <Compile Include="ClassRefreshHelper.vb" />
     <Compile Include="ClassRegexEditor.vb" />
-    <Compile Include="ClassSnapPanel.vb">
-      <SubType>Component</SubType>
-    </Compile>
     <Compile Include="ClassSQLEditor.vb" />
     <Compile Include="ClassSQLTypeConverter.vb" />
     <Compile Include="ClassSQLValue.vb" />
@@ -591,6 +588,7 @@
     </EmbeddedResource>
     <EmbeddedResource Include="frmFormDesigner.resx">
       <DependentUpon>frmFormDesigner.vb</DependentUpon>
+      <SubType>Designer</SubType>
     </EmbeddedResource>
     <EmbeddedResource Include="frmGhostMode.resx">
       <DependentUpon>frmGhostMode.vb</DependentUpon>

app/DD_PM_WINDREAM/frmValidator.vb

@@ -730,12 +730,13 @@ Public Class frmValidator
                                                                     End If
                                                                 End Sub
 #Region "CONTROL LIST"
-
-
                                 LOGGER.Debug("In add_ComboBox - GUID: " & oControlID)
                                 Dim oCONID
                                 Try
                                     oCONID = PreventNulletc(oControlRow.Item("CONNECTION_ID"))
+                                    If oCONID = String.Empty Then
+                                        oCONID = 0
+                                    End If
                                 Catch ex As Exception
                                     oCONID = 0
                                 End Try