ZooFlow: clean up

This commit is contained in:
Jonathan Jenne
2021-01-12 16:05:35 +01:00
parent b49d4b4ff7
commit 4b2ef12a55
8 changed files with 93 additions and 178 deletions

View File

@@ -152,7 +152,7 @@ Public Class frmFlowSearch
Private Function GetResultFormSize() As Size
Return Size
End Function
Private Function GetResultString(CountObjects, CountAttribute, SearchContent) As String
Private Function GetResultString(CountObjects As Integer, CountAttribute As Integer, SearchContent As String) As String
Dim oResultString = $"wurden {CountObjects} Objekte" ' IIf(CountAttribute = 1, $"wurden {CountObjects} Objekte", $"wurden {CountObjects} Objekte in {CountAttribute} Attributen")
Dim oProfileString = IIf(CountAttribute = 1, "einem Attribut", $"{CountAttribute} Attributen")
Dim oBase = "Es {0} in {1} für Ihre Suche nach '{2}' gefunden:"