Alternative to using .SetSelection

[janriis]

Hi all

When testing a VB6 application, I am using .SetSelection to select all text in a vbedit object and replacing with new value.

For some reason, the .SetSelection often fails and my script stops due to wrong value in the vbedit object.

Is there another way to select or even better, clear the values of a vbedit object ?

[upadhyay40]

Code:

Dim EditToSearch
EditToSearch = "cc"
EditValueToSet = "urvalue"


'Create a description object to help retrieve all WebEdit objects in a specific page.
Set toDesc = Description.Create()
    toDesc("micclass").Value = "WebEdit"
    toDesc("html id").Value = "f"
    toDesc("html tag").Value = "g"
    toDesc("name").Value = "i"

'Retrieve all WebEdit objects in this page
Set EditCollection =Browser("title:=f").Page("title:=g.*").ChildObjects(toDesc)

NumberOfEdits = EditCollection.Count

'Search for a specific Linkobject and set its value
For i = 0 To NumberOfEdits - 1
    If EditCollection(i).GetROProperty("name") = EditToSearch Then
       EditCollection(i).Set EditValueToSet
           End If
Next

---

hi jnariss,

you need to just change your micclass as per you VBedit and try above code you an get your answer, please let me know if you need more help from my end

Thanks
Mahesh

[janriis]

Hi Mahesh

My app is not a web app, but a windows application written in VB6.0. What i need is a way to clear a vbedit field before entering new text.

Example. in my vbedit field "txtAge" i have the default value 65. My new value is 40. If i just just .type "40", the default value wont be erased.

Using setSelection 0,0,0,2 works sometimes, but is not reliable.

[jsknight1969]

Did you try:

Code:

Vbedit("txtAge").Set "1"     <--- just to set focus to field
VbEdit("txtAge").Type micBack  <---backspace
Vbedit("txtAge").Set "40"   <----real value

You might also try using:

Code:

'use tab to get to the txtAge field
Vbedit("AnotherObject").Type micTab + micTab
Vbedit("txtAge").Type micBack
Vbedit("txtAge").Type "40"

Hope this works.

[v_selvam]

Try this.

Code:

text = VbWindow("Form1").VbEdit("Text1").getROProperty("text)
iLen = Len(text )
VbWindow("Form1").VbEdit("Text1").SetSelection 0, iLen
VbWindow("Form1").VbEdit("Text1").Set 40

[Saket]

an alternative of SetSelection could be using 'SendKeys'
try this

Code:

'Set Focus on edit box
VbWindow(" ").VbEdit(" ").Click
'Create Wscript.shell object
Set WshShell = CreateObject("WScript.Shell")
'Select the text already there in edit box sending
WshShell.SendKeys "+{HOME}"
'set the rrequired text in edit box using either of these two statements
WshShell.SendKeys "Your Text"
'Or
'VbWindow(" ").VbEdit(" ").Set "Your Text"

[janriis]

Thx for your input guys. For some reason, neither of above worked and my vbedit field was not cleared.

[Saket]

Can you paste what you have tried so far?

[janriis]

Hi Saket.

I've tried all of the above and all I did was changing the code to correspond to my objects. Still none of the solution worked.

What did work was using .setSelection 0,0 and then adding a handful of lines with .type micDel

This is not the best way to do it, but due to lack of time, I have to go with this solution