主题：“主”窗口中调用“独立”窗口问题

窗口1的类型设置为“主窗口”

窗口2的类型设置为“独立窗口”

 

在窗口1中有一按钮BUTTON1，其CLICK事件为：

 

Dim x As Integer = e.Form.baseform.left+25
Dim y As Integer = e.Form.baseform.Top+25

forms("窗口2").open(x+10,y+10)

 

现在在窗口1中的预览状态下，点击BUTTON1后，能正常执行，并打开窗口2

 

若在项目的AfterOpenProject事件中打开:forms("窗口1").open(),再点击BUTTON1时，要出问题，如下：

 

此主题相关图片如下：主窗口问题.gif

好像在这种情况下不认baseform,怎么办？见附件

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目12.foxdb

主窗口没有baseform属性

那在预览下怎么能行？

那我如何取主窗口的坐标？

预览的情况下不是主窗体啊

你用这个吧，Basemainform会让窗体跑到最上角去，位置不好控制。

 

 

Dim p = e.Form.Panel.PointToScreen(e.Form.Panel.Location)
Dim x As Integer = p.x
Dim y As Integer = p.y
forms("窗口2").open(x+10,y+10)

这个办法好! 顶一下