Forum Discussion
What happens when you try?
- dmacknight10 years agoOccasional Contributor
Thanks for the help. When I record the test I get the following with no SetText command.
Sub Test1
Dim sensorWorks
Dim sensorWorksMain
Dim manageJob
Dim textBox
Set sensorWorks = Aliases.SensorWorks
Set sensorWorksMain = sensorWorks.SensorWorksMain
Call sensorWorksMain.MainMenu.Click("Project|New")
sensorWorks.dlgNew.btnOpen.ClickButton
Set manageJob = sensorWorks.ManageJob
Set textBox = manageJob.textBoxJobNumber
Call textBox.Click(18, 7)
Call textBox.Click(44, 10)
Call manageJob.label2.Click(38, 18)
manageJob.buttonOk.ClickButton
Call sensorWorksMain.MainMenu.Click("Project|Close")
End SubI modified the script to add the two SetText items shown below and it works perfectly.
Sub Test1
Dim sensorWorks
Dim sensorWorksMain
Dim manageJob
Dim textBox
Set sensorWorks = Aliases.SensorWorks
Set sensorWorksMain = sensorWorks.SensorWorksMain
Call sensorWorksMain.MainMenu.Click("Project|New")
SensorWorks.dlgNew.ComboBoxEx32.SetText("test4.proj")
sensorWorks.dlgNew.btnOpen.ClickButton
Set manageJob = sensorWorks.ManageJob
Set textBox = manageJob.textBoxJobNumber
manageJob.textBoxJobNumber.SetText("123456")
Call textBox.Click(18, 7)
Call textBox.Click(44, 10)
Call manageJob.label2.Click(38, 18)
manageJob.buttonOk.ClickButton
Call sensorWorksMain.MainMenu.Click("Project|Close")
End Sub- Marsha_R10 years ago
Champion Level 3
If you use Object Spy on one of those fields and look in the Methods tab, do you see SetText in the list?
- dmacknight10 years agoOccasional Contributor
Vladimir found the answer. I had to disable "Support for testing Windows Store Applications."
it seems to be working now.
Thanks for the time and effort.
Dave