以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]弹窗位置问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=141935)

--  作者:81538475
--  发布时间:2019/10/14 18:03:00
--  [求助]弹窗位置问题
希望再控件上输入某个值之后,弹窗,这个弹窗的位置再鼠标下面一点的位置出现

控件的valuechanged 里面实现不了
If e.Form.Controls("ComboBox7").text = "兼职" Then

Dim frm = Forms("兼职人员日薪")
frm.Open 

frm.baseform.left = System.Windows.Forms.Cursor.Current.Position.X + 5
frm.baseform.Top = System.Windows.Forms.Cursor.Current.Position.Y + 5

End If

--  作者:有点蓝
--  发布时间:2019/10/14 20:23:00
--  
放到textchanged事件
--  作者:81538475
--  发布时间:2019/10/15 0:36:00
--  
没有作用呀,
关闭弹窗的时候还会报错

.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2019.6.18.1
错误所在事件:窗口,人员录入查询,ComboBox7,TextChanged
详细错误信息:
未设置对象变量或 With 块变量。


--  作者:81538475
--  发布时间:2019/10/15 9:00:00
--  
老大帮忙看看
--  作者:有点蓝
--  发布时间:2019/10/15 9:21:00
--  
"兼职人员日薪"是什么类型的窗口?
--  作者:81538475
--  发布时间:2019/10/15 9:22:00
--  
模式窗口
--  作者:有点蓝
--  发布时间:2019/10/15 9:32:00
--  
参考:http://www.foxtable.com/webhelp/topics/0708.htm

模式窗口是阻塞型的,没有关闭之前后面的代码都不会执行。

控件的valuechanged 里面实现不了
If e.Form.Controls("ComboBox7").text = "兼职" Then

Dim frm = Forms("兼职人员日薪")
frm.Open(System.Windows.Forms.Cursor.Current.Position.X + 5,System.Windows.Forms.Cursor.Current.Position.Y + 5
End If
[此贴子已经被作者于2019/10/15 9:32:32编辑过]

--  作者:81538475
--  发布时间:2019/10/15 9:47:00
--  
多谢多谢