- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 请教：窗口菜单工具栏动态生成下拉列表框问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=123892)
-- 发布时间：2018/8/25 22:49:00
-- 请教：窗口菜单工具栏动态生成下拉列表框问题
一、以下代码可以在窗口菜单的工具栏中生成下拉列表框
Dim Strip As WinForm.Strip \'声明一个窗口菜单
Strip = Forms("窗口1").Strips.Add("工具栏1", StripTypeEnum.ToolBar)
Strip.Items.Add("下拉列表框","下拉列表框","",StripItemTypeEnum.ComboBox) \'下拉列表框
二、问题：下拉列表框的下拉内容如何动态生成？（我屡试屡败，只能请教教师了）
-- 发布时间：2018/8/26 8:50:00
--
Dim Strip As WinForm.Strip \'声明一个窗口菜单
Strip = Forms("窗口1").Strips.Add("工具栏1", StripTypeEnum.ToolBar)
Dim o = Strip.Items.Add("下拉列表框","下拉列表框","",StripItemTypeEnum.ComboBox).BaseControl \'下拉列表框
o.Items.Add("看看")
o.Items.Add("试试")
-- 发布时间：2018/8/26 11:47:00
--
再问一下，这个“下拉列表框”的长度（宽度）和高度如何设置？我用width好像不起作用
-- 发布时间：2018/8/26 12:08:00
--
o.AutoSize = False
o.width = 255
-- 发布时间：2018/8/26 12:12:00
--
噢噢，
-- 发布时间：2018/8/28 20:21:00
--
再问：如何设置这个下拉列表框的不可直接输入数据属性？
-- 发布时间：2018/8/28 20:36:00
--
o.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-- 发布时间：2018/8/28 20:43:00
--
收到。
另，o.AutoSize = False
o.width = 255 可以设置宽度，但用o.height = 10 设置高度好像不行，有办法吗？
-- 发布时间：2018/8/28 20:49:00
--
组合框都无法设置高度
-- 发布时间：2018/8/28 20:54:00
--
明白了