Добавьте это в свой файл UIMap.vb:
(Обязательно измените EXE, чтобы он соответствовал вашему собственному)
Namespace RouteManagement_UI_Tests
Partial Public Class UIMap
Public Sub StartApp()
Dim RMS As ApplicationUnderTest = ApplicationUnderTest.Launch(Me.StartAppParams.ExePath, Me.StartAppParams.AlternateExePath)
End Sub
Public Overridable ReadOnly Property StartAppParams() As StartAppParams
Get
If (Me.mStartAppParams Is Nothing) Then
Me.mStartAppParams = New StartAppParams()
End If
Return Me.mStartAppParams
End Get
End Property
Private mStartAppParams As StartAppParams
End Class
Public Class StartAppParams
#Region "Fields"
'''<summary>
'''</summary>
Public ExePath As String = "C:\Somebinary.exe"
'''<summary>
'''</summary>
Public AlternateExePath As String = "%VisualStudioDir%\Somebinary.exe"
#End Region
End Class
End Namespace
Затем обратитесь к этому методув вашем тестовом коде следующим образом:
Public Class CodedUITest1
<TestMethod()>
Public Sub Test1()
With Me.UIMap
.StartApp()
.ExitApp()
End With
End Sub
End Class