- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]combobox的下拉高度用代码设置 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=44123)
-- 发布时间：2013/12/23 16:38:00
-- [求助]combobox的下拉高度用代码设置
我在combobox的TextChanged里动态添加项目数
在使用中发现combobox下拉高度不正常，大部分情况下高度只有一行高，其实他的项目数都在两个以上。我在面板里手工指定高度也不管用
这是textchanged里的代码
If e.Sender.text.Length=1 Then
Dim drList As List(of DataRow) = DataTables("基础类别").Select("索引 = \'" & e.Sender.text & "\' And 级别 = 1 And 类别归属 = \'地方车牌\'")
If drList.count>0 Then
e.Sender.Items.Clear
e.Sender.text=drList(0)("类别名称")
e.Sender.SelectionStart=1
For Each dr As DataRow In drList
e.Sender.Items.Add(dr("类别名称"))
e.Sender.OpenDropDown
Next
End If
End If
[此贴子已经被作者于2013-12-23 16:48:12编辑过]
-- 发布时间：2013/12/23 16:43:00
--
将 e.Sender.OpenDropDown移至 NEXT 或 end if 后也不行
-- 发布时间：2013/12/23 16:53:00
--
上个例子瞅瞅
-- 发布时间：2013/12/23 16:54:00
--
这是有问题的示例
-- 发布时间：2013/12/23 16:58:00
--
确实有问题,折中方案如下.
-- 发布时间：2013/12/23 17:04:00
--
您的意思是在afterload里先给他赋一次值，将来再重赋值时就好了？
-- 发布时间：2013/12/23 17:05:00
--
嗯
-- 发布时间：2013/12/23 17:05:00
--
如果能做成自适应的最好了。