以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  独立窗口下的有效,主窗口下无效。  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=54228)

--  作者:打错潇洒
--  发布时间: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
--  发布时间:2014/7/24 8:41:00
--  
主窗口没有.baseform 属性



--  作者:打错潇洒
--  发布时间:2014/7/24 8:42:00
--  
有什么解决方案没有
--  作者:Bin
--  发布时间:2014/7/24 8:43:00
--  
你想实现什么效果?
--  作者:Bin
--  发布时间:2014/7/24 8:44:00
--  
你获取 basemainform.PointToScreen  因为主窗口是固定位置的,你获取系统主界面的点就好了.
--  作者:打错潇洒
--  发布时间:2014/7/24 9:21:00
--  
如果这样子 获取的位置信息 就会是主界面的  而非我需要的控件  ,如果是这样子 就要获取 控件在桌面的的位置坐标了  ,这样子狐表如何获取
--  作者:逛逛
--  发布时间:2014/7/24 9:30:00
--  
Dim point As Point = Forms("成品产品管理").Panel.PointToScreen(Forms("成品产品管理").Controls("Button2").BaseControl.Bounds.Location)