aardio单选框控件radiobutton_分组、获取选中状态、设置选中状态

import win.ui;

/*DSG{{*/

var winform = win.form(text="简码编程www.jianma123.com";right=555;bottom=252)

winform.add(



groupbox={cls="groupbox";text="groupbox";left=36;top=31;right=519;bottom=91;edge=1;z=1};//第一组

radiobutton={cls="radiobutton";text="radiobutton";left=58;top=58;right=156;bottom=81;z=2};

radiobutton2={cls="radiobutton";text="radiobutton2";left=165;top=58;right=263;bottom=81;z=3};

radiobutton3={cls="radiobutton";text="radiobutton3";left=280;top=58;right=378;bottom=81;z=4};

radiobutton4={cls="radiobutton";text="radiobutton4";left=385;top=58;right=483;bottom=81;z=5};



groupbox2={cls="groupbox";text="groupbox2";left=36;top=107;right=517;bottom=174;edge=1;z=6};//第二组

radiobutton5={cls="radiobutton";text="radiobutton5";left=59;top=135;right=157;bottom=158;z=7};

radiobutton6={cls="radiobutton";text="radiobutton6";left=166;top=135;right=264;bottom=158;z=8};

radiobutton7={cls="radiobutton";text="radiobutton7";left=281;top=135;right=379;bottom=158;z=9};

radiobutton8={cls="radiobutton";text="radiobutton8";left=386;top=135;right=484;bottom=158;z=10}



button={cls="button";text="获取单选框2的选中状态";left=38;top=191;right=215;bottom=222;z=11};

button2={cls="button";text="设置单选框3的选中状态";left=221;top=191;right=412;bottom=222;z=12};



)

/*}}*/



winform.button.oncommand = function(id,event){

    winform.msgbox("单选框2的选中状态是:"++tostring(winform.radiobutton2.checked),"简码编程提示:")

}



winform.button2.oncommand = function(id,event){

    winform.radiobutton3.checked = 1;//若赋值为0则为取消选中状态    

    //::PostMessage(winform.radiobutton3.hwnd, 0xf5/*_BM_CLICK*/, 0, 0) //用发消息的方式才不会出现同组多选问题

}



winform.show() 

win.loopMessage();

winform.button2.oncommand = function(id,event){

    ::PostMessage(winform.radiobutton3.hwnd, 0xf5/*_BM_CLICK*/, 0, 0)//用发消息的方式才不会出现同组多选问题

}