MS Cahnges

This commit is contained in:
Digital Data - Marlon Schreiber
2018-06-15 11:48:04 +02:00
parent afd5186e62
commit bb412d1141
5 changed files with 19 additions and 2 deletions

View File

@@ -235,4 +235,13 @@ Public Class frmAdministration
Status_Changed("", Color.Transparent)
End If
End Sub
Private Sub WD_SEARCHTextBox_MouseHover(sender As Object, e As EventArgs) Handles WD_SEARCHTextBox.MouseHover
ToolTip1.SetToolTip(WD_SEARCHTextBox, "Replace patterns for string fields: " & vbNewLine & "@Clipboard" & vbNewLine & "@CLIPBOARD" & vbNewLine & "@Zwischenablage" &
vbNewLine & "Replace patterns for integer fields: " & vbNewLine & "123456789" & vbNewLine & "4711")
ToolTip1.ToolTipTitle = "Replace patterns:"
ToolTip1.IsBalloon = True
ToolTip1.ToolTipIcon = ToolTipIcon.Info
ToolTip1.UseAnimation = True
End Sub
End Class