MS_1708

app/DD-Record-Organiser/frmEntities.vb

@@ -139,25 +139,25 @@ Public Class frmEntities
         Cursor = Cursors.Default
     End Sub
 
-    Sub Open_Viewer()
-        Try
-            If GUIDTextBox.Text = "" Then
-                Exit Sub
-            End If
-            Dim FormId As Integer = GUIDTextBox.Text 'GetCurrentGUID()
-            If FormId <> -1 Then
-                Me.Hide()
+    'Sub Open_Viewer()
+    '    Try
+    '        If GUIDTextBox.Text = "" Then
+    '            Exit Sub
+    '        End If
+    '        Dim FormId As Integer = GUIDTextBox.Text 'GetCurrentGUID()
+    '        If FormId <> -1 Then
+    '            Me.Hide()
 
-                Cursor = Cursors.WaitCursor
-                OpenFormInputFor(FormId, 1)
-                Cursor = Cursors.Default
-                ' Me.Visible = True
-            End If
-        Catch ex As Exception
-            MsgBox("Error while Opening Entity View!" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-        End Try
+    '            Cursor = Cursors.WaitCursor
+    '            OpenFormInputFor(FormId, 1)
+    '            Cursor = Cursors.Default
+    '            ' Me.Visible = True
+    '        End If
+    '    Catch ex As Exception
+    '        MsgBox("Error while Opening Entity View!" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+    '    End Try
 
-    End Sub
+    'End Sub
 
     Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
         Try
@@ -173,15 +173,6 @@ Public Class frmEntities
         End Try
 
     End Sub
-
-    Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
-        Open_Viewer()
-    End Sub
-
-    Private Sub gvMainView_DoubleClick(sender As Object, e As EventArgs)
-        Open_Viewer()
-    End Sub
-
     Private Function GetCurrentGUID() As Integer
         Dim FormId As Integer
         Try