34 lines
1.0 KiB
VB.net
34 lines
1.0 KiB
VB.net
Imports System.Windows.Forms
|
|
|
|
Public Class frmError
|
|
Public ValidatorError As String = ""
|
|
Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub frmError_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
|
If ValidatorError <> String.Empty Or errormessage <> String.Empty Then
|
|
If ValidatorError <> String.Empty Then
|
|
Me.txterror.Text = ValidatorError
|
|
Else
|
|
Me.txterror.Text = errormessage
|
|
End If
|
|
Me.Label1.Focus()
|
|
Me.Timer1.Start()
|
|
Else
|
|
Me.Close()
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
|
|
If Me.OK_Button.Focused Then
|
|
Me.Label1.Focus()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub frmError_Shown(sender As Object, e As System.EventArgs) Handles Me.Shown
|
|
Me.Label1.Focus()
|
|
End Sub
|
|
End Class
|