19 lines
665 B
VB.net
19 lines
665 B
VB.net
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 |