Foxtable(狐表)用户栏目专家坐堂 → 如何实现独立窗口的依靠位置?


  共有3315人关注过本帖树形打印复制链接

主题:如何实现独立窗口的依靠位置?

帅哥哟,离线,有人找我吗?
lin98
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1096 积分:7235 威望:0 精华:0 注册:2020/11/4 22:15:00
如何实现独立窗口的依靠位置?  发帖心情 Post By:2021/7/9 13:20:00 [只看该作者]

如何实现独立窗口的依靠位置?
一般打开项目的独立窗口的依靠位置是居中,如何实现自它的定义依靠位置,比如:依靠位置:左上角,或右下角?

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107135 积分:544918 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/7/9 13:39:00 [只看该作者]

参考:http://www.foxtable.com/webhelp/topics/0708.htm

Forms("窗口1").Open(100,100)

 回到顶部
帅哥哟,离线,有人找我吗?
lin98
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1096 积分:7235 威望:0 精华:0 注册:2020/11/4 22:15:00
  发帖心情 Post By:2021/7/9 15:57:00 [只看该作者]

Dim frm As WinForm.Form
frm = Forms("窗口1")
frm.Open(800,200)

写上面代码在窗口打开后事件,执行后,还是没有改变,独立窗口一直都在居中,想实现让它右下角,如何实现?

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107135 积分:544918 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/7/9 16:13:00 [只看该作者]

代码放到打开窗口的地方,比如在菜单里打开窗口,就放到菜单按钮里,不要放到本窗口里

 回到顶部
帅哥哟,离线,有人找我吗?
lin98
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1096 积分:7235 威望:0 精华:0 注册:2020/11/4 22:15:00
  发帖心情 Post By:2023/3/30 14:04:00 [只看该作者]

窗口1的按键1的单击事件。想实现:"导入"窗口向右下边,如何实现?
下面代码执行,窗口还在居中
Dim frm As WinForm.Form
frm = Forms("导入")
frm.Open(100, 100)
''frm.Open(200)

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107135 积分:544918 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/3/30 14:16:00 [只看该作者]

http://www.foxtable.com/webhelp/topics/0348.htm

frm.Open(WorkingAreaWidth - 窗口宽度WorkingAreaHeight - 窗口高度)

 回到顶部