- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]下拉列表框中，选中项目的背景色调整。 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=92055)
-- 发布时间：2016/10/25 11:13:00
-- [求助]下拉列表框中，选中项目的背景色调整。
这个下拉列表框中，第一次命中的项目背景色为浅灰色，不是很清楚。但点击“下一个”按钮后，命中项的背景色为蓝色。
如何调整第一次命中项目的背景色，与后面的颜色一致。
-- 发布时间：2016/10/25 11:18:00
--
TextChanged
Dim drp As WinForm.DropDownBox = e.sender
If drp.DroppedDown Then \'如果下拉窗口已经打开
Dim trv As WinForm.TreeView = Forms("窗口1").Controls("TreeView1")
If drp.Text > "" Then \'如果内容为空
For Each nd As WinForm.TreeNode In trv.AllNodes
If nd.Text.IndexOf(drp.Text) >= 0 Then
trv.StopRedraw()
trv.SelectedNode = nd
nd.EnsureVisible()
trv.Select
trv.ResumeRedraw()
Exit For
End If
Next
End If
End If
-- 发布时间：2016/10/25 11:33:00
--
如何设置，项目打开时，不打开筛选树、备注列等窗口？
-- 发布时间：2016/10/25 11:39:00
--
http://www.foxtable.com/webhelp/scr/0075.htm
http://www.foxtable.com/webhelp/scr/1997.htm，去掉自动显示的勾选
[此贴子已经被作者于2016/10/25 11:38:45编辑过]
-- 发布时间：2016/10/25 15:30:00
-- 回复：（有点蓝）TextChangedDim drp As WinForm.Drop...
如何在表操作时，实现这个效果呢？
-- 发布时间：2016/10/25 15:50:00
--
http://www.foxtable.com/webhelp/scr/2023.htm
http://www.foxtable.com/webhelp/scr/1437.htm
-- 发布时间：2016/10/25 16:05:00
-- 回复：（有点蓝）http://www.foxtable.com/webhelp/sc...
我的意思时，在表操作时，改变下拉窗口选中项目的背景色。
象在录入窗口那样。
-- 发布时间：2016/10/25 16:36:00
--
看2楼，调用
trv.Select
树控件获取焦点就可以