combobox 设置下拉列表无效
http://www.oschina.net/question/1438716_146566
import win.ui;/*DSG{{*/var winform = ..win.form(text="AAuto Form";right=490;bottom=306)
winform.add(
combobox={cls="combobox";text="combobox";left=108;top=82;right=323;bottom=102;edge=1;items={};mode="dropdown";z=1};static={cls="static";text="static";left=105;top=103;right=318;bottom=261;hide=1;notify=1;transparent=1;z=2}
)/*}}*/import com;var dataGrid = winform.static.createEmbed("MSFlexGridLib.MSFlexGrid.1"); var gd = dataGrid._object// 初始化界面with gd{Cols =4 // 列Rows = 4 //行setTextMatrix(0,0,"材料编码")
setTextMatrix(0,1,"材料名称")
setTextMatrix(0,2,"规格")
setTextMatrix(0,3,"单位")
}
winform.combobox.oncommand = function(id,event){if(event == 0x7/*_CBN_DROPDOWN*/){
::PostMessage(winform.combobox.hwnd, 0x14F/*_CB_SHOWDROPDOWN*/, 0, 0);
winform.static.hide = 0}
}
winform.show()
win.loopMessage();
关键是在cbn_dropdown事件，用PostMessage发送cb_showdropdown消息,用SendMessage发送无效
啥时候用postmessage 或sendmessage 有点饶头？？？
© 著作权归作者所有
举报
打赏
0 赞
0 收藏
分享
赞 (0)