32 lines
1.2 KiB
VB.net
32 lines
1.2 KiB
VB.net
Public Class frmValidatorSearch
|
|
Public Sub RefreshTab1()
|
|
If Me.InvokeRequired() Then
|
|
Me.Invoke(Sub() RefreshTab1())
|
|
Else
|
|
'Code to refresh your textbox here
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub frmValidatorSearch_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
|
|
Try
|
|
' Position und Größe speichern
|
|
My.Settings.frmValidatorSearchSize = Me.Size
|
|
My.Settings.frmValidatorSearchPosition = Me.Location
|
|
My.Settings.Save()
|
|
Catch ex As Exception
|
|
LOGGER.Error(ex)
|
|
LOGGER.Info("Error in Save FormLayout: " & ex.Message)
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub frmValidatorSearch_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
If My.Settings.frmValidatorSearchPosition.IsEmpty = False Then
|
|
If My.Settings.frmValidatorSearchPosition.X > 0 And My.Settings.frmValidatorSearchPosition.Y > 0 Then
|
|
Location = My.Settings.frmValidatorSearchPosition
|
|
End If
|
|
End If
|
|
If My.Settings.frmValidatorSearchSize.IsEmpty = False Then
|
|
Size = My.Settings.frmValidatorSearchSize
|
|
End If
|
|
End Sub
|
|
End Class |