- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请教下拉组合框 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=188524)
-- 发布时间：2023/9/25 10:47:00
-- 请教下拉组合框
大师：请问下拉组合框的下拉窗口，如何实现的，除了按esc会自动关闭，按其他地方不关闭，但按下拉窗口中一按钮关闭？
-- 发布时间：2023/9/25 11:10:00
--
怎么实现的我不清楚，开发人员说这些属于内部功能，无法透露
-- 发布时间：2023/9/25 11:19:00
--
我想实现以上功能，如何实现？
-- 发布时间：2023/9/25 11:27:00
--
窗口添加一个按钮，在按钮里写代码关闭窗口。
按esc会自动关闭参考：http://www.foxtable.com/webhelp/topics/2501.htm
-- 发布时间：2023/9/25 11:33:00
--
主要是要实现按其他地方，下拉窗口不自动关闭？
-- 发布时间：2023/9/25 11:37:00
--
如果要自己设计一个下拉窗口，我就不懂了。可以设计一个独立窗口，打开到控件下面
-- 发布时间：2023/9/25 21:02:00
--
请问如何实现窗口2打开后的位置紧挨在文本控件的上方，左边距与文本控件相等？实例如下：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目22.rar |
-- 发布时间：2023/9/25 21:23:00
--
获取控件屏幕坐标：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=95565
窗口打开到屏幕对应计算的坐标即可：http://www.foxtable.com/webhelp/topics/0708.htm
-- 发布时间：2023/9/25 22:31:00
--
请问：
下面的代码为何坐标不正确？
Dim b As WinForm.TextBox = Forms("窗口1").Controls("TextBox1")
Dim p = Forms("窗口1").panel.parent.parent.parent
Dim p1 As point = New point(b.Left + p.left + p.Parent.Left, b.Top + p.Top + p.parent.Top)
Dim p2 As point = basemainform.PointToScreen(p1)
Dim p4 As point = New point(p2.X + b.Width , p2.Y + b.Height)
Dim jl As String = p2.X & "," & p2.Y & "," & p4.X & "," & p4.Y
Output.Show(jl)
-- 发布时间：2023/9/25 23:00:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目22.zip |