Forum Discussion

sastowe's avatar
sastowe
Super Contributor
13 years ago

vb6 app what is the default button

I have a test in whcih I want to check which button on a dialog is DEFAULT . The way a msgbox is rendered is by passing in parameters. The sum of the numners determine how the Msgbox is displayed. ...
mugheessiddiqui's avatar
mugheessiddiqui
Contributor
13 years ago


Hi Stephanie



Following function will return you the default button of Msgbox, I have only tested with

vbYesNo, I hope It will work for other configuration as well.



Note: use this funtion as you get a msgbox without Keying tab or transfer focus to other button.


 



function test5()

{



var def_but = Get_Default_Button(Aliases.Orders.dlgConfirm);

Log.Message(def_but.WndCaption);



}



function Get_Default_Button(dlg)

{



dlg.Activate();

var dic = dlg.FindAllChildren("WndClass", "Button", 5);

dic = (new VBArray(dic)).toArray();



for( i=0; i < dic.length; i++)

{



if((dic.WndStyles & Win32API.WS_BORDER == Win32API.WS_BORDER) == 1)

return dic;



}

}