以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何禁止窗口位置的移动  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=4006)

--  作者:chenwuwenyu
--  发布时间:2009/8/23 11:32:00
--  如何禁止窗口位置的移动
这个可以实现吗?
属性中有个初始位置设置
我想设置好以后,打开窗口不可移动
--  作者:yangming
--  发布时间:2009/8/23 11:52:00
--  
只有独立窗口才能移动,独立了,移动又何妨呢?
--  作者:chenwuwenyu
--  发布时间:2009/8/23 12:00:00
--  
模式窗口也可以移动呀,
我打开窗口的时候利用了一个表视图显示全部列
我不想让移动窗口就能看到原表
所以要求窗口只能关闭,不能移动在屏幕中的位置
--  作者:yangming
--  发布时间:2009/8/23 12:06:00
--  
你说的我不明白,如果不想看到原表,你为何不用主窗口呢?
--  作者:czy
--  发布时间:2009/8/23 17:36:00
--  
如果一定要这样做,就在AfterLoad事件中设置代码:

For Each c As Col In Tables("表A").Cols
    Tables("表A").Cols(c.Name).Visible = False
Next

然后在BeforeClose事件中设置代码:

For Each c As Col In Tables("表A").Cols
    Tables("表A").Cols(c.Name).Visible = True
Next

--  作者:chenwuwenyu
--  发布时间:2009/8/23 18:29:00
--  
以下是引用czy在2009-8-23 17:36:00的发言:
如果一定要这样做,就在AfterLoad事件中设置代码:

For Each c As Col In Tables("表A").Cols
    Tables("表A").Cols(c.Name).Visible = False
Next

然后在BeforeClose事件中设置代码:

For Each c As Col In Tables("表A").Cols
    Tables("表A").Cols(c.Name).Visible = True
Next

跟我设置的正好相反,呵呵
我的意思是打开窗口的时候,显示全部列
但是
我不想让别人看到这些列(虽然窗口挡住看不见,但移动一下窗口就可以看到)
我想如果可以禁止移动窗口就好了