以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  控制弹出模式窗口的位置在单元格下面  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=128674)

--  作者:nxhylczh
--  发布时间:2018/12/12 17:18:00
--  控制弹出模式窗口的位置在单元格下面
如题:如何将弹出的模式窗口显示在单元格的下面?

图片点击可在新窗口打开查看此主题相关图片如下:c9befb25c3518e604fd95c84ce654c1.png
图片点击可在新窗口打开查看

--  作者:nxhylczh
--  发布时间:2018/12/12 17:41:00
--  
问题二  如何在窗口之间传递值?
--  作者:有点甜
--  发布时间:2018/12/12 18:18:00
--  

1、参考

 

http://www.foxtable.com/webhelp/scr/2099.htm

 

http://www.foxtable.com/webhelp/scr/2115.htm

 

2、如

 

forms("窗口1").Controls("TextBox1").Text = "aabbcc"


--  作者:nxhylczh
--  发布时间:2019/1/8 17:01:00
--  
我醉了,Forms("窗口").show 显示的位置在当前单元格的下面。
要计算出当前单元格的位置呢。
不是你说的下拉弹出窗口

--  作者:有点甜
--  发布时间:2019/1/8 17:29:00
--  

参考

 

Dim c1table As C1FlexGrid.C1FlexGrid = Tables("表A").Grid
Dim rc As C1FlexGrid.CellRange = c1table.Selection
Dim cellrect As System.Drawing.Rectangle = c1table.RectangleToScreen(c1table.GetCellRect(rc.r1,rc.c1))
msgbox("x=" & cellrect.x &  "    y=" & cellrect.y)