以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  下拉窗口相关  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=142751)
--  作者：cd_tdh
--  发布时间：2019/11/5 13:21:00
--  下拉窗口相关

老师，下来窗口只能用DropDownBox才能打开吗？

有没有办法弄一个button，打开一个窗口，让窗口显示到按钮下边上的办法？

比如我需要知道button1在屏幕上的位置来确定打开窗口的位置：

 

Dim x As Integer = ？？？
Dim y As Integer = ？？？

Dim frm As WinForm.Form
frm = Forms("窗口1")
frm.Open(x,y+25)

[此贴子已经被作者于2019/11/5 13:58:13编辑过]
--  作者：有点蓝
--  发布时间：2019/11/5 14:18:00
--  
Dim p3 As point = new point(e.sender.Left, e.sender.Top + e.sender.Height)
Dim p4 As point = e.sender.basecontrol.FindForm().PointToScreen(p3)
Forms("窗口1").Open(p4.x,p4.y)
--  作者：cd_tdh
--  发布时间：2019/11/5 16:08:00
--  

完美。