MS

Global_Indexer/frmMissingInput.vb

@@ -0,0 +1,19 @@
+Public Class frmMissingInput
+
+    Private Sub frmMissingInput_Load(sender As Object, e As EventArgs) Handles Me.Load
+        Me.lblMissingElementName.Text = CURR_MISSING_PATTERN_NAME
+        Me.txtSearchtext.Text = CURR_MISSING_SEARCH_STRING
+        Me.txtInput.Text = ""
+    End Sub
+
+    Private Sub frmMissingInput_Shown(sender As Object, e As EventArgs) Handles Me.Shown
+        Me.txtInput.Focus()
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnAccept.Click
+        If txtInput.Text <> String.Empty Then
+            CURR_MISSING_MANUAL_VALUE = txtInput.Text
+            Me.Close()
+        End If
+    End Sub
+End Class