独立窗口下的有效，主窗口下无效。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 独立窗口下的有效，主窗口下无效。

共有3844人关注过本帖树形打印复制链接主题：独立窗口下的有效，主窗口下无效。

打错潇洒

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：568 积分：6437 威望：0 精华：2 注册：2012/12/23 8:21:00

独立窗口下的有效，主窗口下无效。 发帖心情

Post By：2014/7/24 8:39:00 [只看该作者]

提示：对象未实例化

Static dropDownHost As Windows.Forms.ToolStripControlHost

Static dropDown As Windows.Forms.ToolStripDropDown

If dropDownHost Is Nothing Then

dropDownHost = New Windows.Forms.ToolStripControlHost(Forms("成品产品管理").Controls("Panel1").BaseControl)

dropDown = New Windows.Forms.ToolStripDropDown

dropDown.Items.Add(dropDownHost)

End If

Dim point As Point = Forms("成品产品管理").BaseForm.PointToScreen(Forms("成品产品管理").Controls("Button2").BaseControl.Bounds.Location)

point.Y += 36

'point.X += 500

dropDown.Show(point)

Bin

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/7/24 8:41:00 [只看该作者]

主窗口没有.baseform 属性

打错潇洒

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：568 积分：6437 威望：0 精华：2 注册：2012/12/23 8:21:00

Post By：2014/7/24 8:42:00 [只看该作者]

有什么解决方案没有

Bin

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/7/24 8:43:00 [只看该作者]

你想实现什么效果?

Bin

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/7/24 8:44:00 [只看该作者]

你获取 basemainform.PointToScreen 因为主窗口是固定位置的,你获取系统主界面的点就好了.

打错潇洒

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：568 积分：6437 威望：0 精华：2 注册：2012/12/23 8:21:00

Post By：2014/7/24 9:21:00 [只看该作者]

如果这样子获取的位置信息就会是主界面的而非我需要的控件，如果是这样子就要获取控件在桌面的的位置坐标了，这样子狐表如何获取

逛逛

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：1693 积分：12129 威望：0 精华：7 注册：2013/7/11 10:52:00

Post By：2014/7/24 9:30:00 [只看该作者]

Dim point As Point = Forms("成品产品管理").Panel.PointToScreen(Forms("成品产品管理").Controls("Button2").BaseControl.Bounds.Location)

下一主题 >> << 上一主题

主题：独立窗口下的有效，主窗口下无效。