This commit is contained in:
JenneJ
2016-12-09 13:33:26 +01:00
parent ad3e53f887
commit fdb479cfdc
15 changed files with 96 additions and 2359 deletions

View File

@@ -508,7 +508,9 @@ Public Class ClassControlValues
Integer.TryParse(match.Groups(2).Value, otherControlId)
' Jetzt suchen wir das Control, das zu dieser ControlId passt
Dim otherControl As Control = controls.OfType(Of Control)().Where(Function(c As Control)
Return DirectCast(c.Tag, ClassControlMetadata).Id = otherControlId
Dim controlId As Integer = DirectCast(c.Tag, ClassControlMetadata).Id
Console.WriteLine(controlId)
Return controlId = otherControlId
End Function).SingleOrDefault()
Dim otherControlType As String = otherControl.GetType().Name