Мое сравнение строк не работает. Я пытался сравнить, равно, = и все эти методы не работают.Вот мой код:
Dim activeChild2 = Me.ActiveMdiChild
If TypeOf activeChild2 Is Window Then
Dim activeChild As Window = Me.ActiveMdiChild
If (Not activeChild Is Nothing) Then
If activeChild.CTR_User.ToString = activeChild.User_name.ToString Then
Call activeChild.Edition()
Select Case Trim$(UCase(activeChild.Name))
Case "FRM_MISSION"
'treatment
Case "FRM_TACHE"
'treatment
End Select
Else
MsgBox("Error modification!!!!", MsgBoxStyle.Critical)
End If
End If
End If
Проблема в том, что если activeChild.CTR_User.ToString = activeChild.User_name.ToString Then. Несмотря на наличие одинаковой строки toto = toto, код всегда запускается в выражении elseмне сообщение
С уважением