How can i check all the buttons are enabled or not using programming ?

[njnirmal]

HI ..
I am using a window based application .? NOw i want to check all the buttons whether all the buttons are enabled or not ? SO How can i check ?
Plseae send me script so that all the buttons are checked in a one time whether they are enabled or disabled ?

[supputuri]

Hi njnirmal,

Please check the below LOC. I have taken the Flight Reservation window.
'*******************************************************************
'*******************************************************************

Code:

Set chld=Description.Create
chld("micclass").value = "WinButton"
Set chldcln = Window("Flight Reservation").ChildObjects(chld)
msgbox chldcln.count
Flag = True
DisBut = 0
For num = 0 to chldcln.count-1
    'To highlight the button in the application
    chldcln(num).highlight
    If chldcln(num).GetRoProperty("enabled") <> True Then
        Flag = False
        DisBut = DisBut+1
    End If
Next
msgbox Flag
If Flag = True Then
    msgbox "All the Buttons in the window are enabled."
Else
    msgbox "In the Window" & "''" & DisBut & "'' buttons out of ''"& chldcln.count &"'' are disabled."
End If

'################
Object Release
'################
Set chld = Nothing
Set chldcln = Nothing
'*******************************************************************
'*******************************************************************

Please let me know if you need any more info.

[QTPgrd]

Hi Guys,

The below script would also get you the result, but may not be compatible with all windows application as Iam filtering with the 'value' of Windows Style (which would vary from application to application"). Anyhow here it is............

=======================================

Code:

SystemUtil.Run "calc","","C:\Documents and Settings\Administrator",""

Set obj_AllButtonDesc = Description.Create
obj_AllButtonDesc("Class Name").value = "WinButton"
Set AllButtons = Window("Calculator").ChildObjects(obj_AllButtonDesc)
msgbox AllButtons.count

Set obj_DisButtonDesc = Description.Create
obj_DisButtonDesc("windowstyle").value = "1476395019"
Set DisabledButtons = Window("Calculator").ChildObjects(obj_DisButtonDesc)

msgbox DisabledButtons.count

If  AllButtons.count = DisabledButtons.count Then
    Msgbox( "All the buttons in your application are  currently enabled")
    Else
    Msgbox( "Few buttons in your application are currently disabled")
End If

=======================================

[QTPian]

Hi QTPgrd,

I belive the "windowstyle" property will differ from application to application. The script provided by QTPKing is correct.

Please let me know of your comments.

Thanks,