以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  有没有类似于工具栏的解决方案  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=85966)

--  作者:rjh4078
--  发布时间:2016/6/7 8:27:00
--  有没有类似于工具栏的解决方案

随着窗口数量越来越多 在每个窗口添加按钮 写代码  刚开始没问题  现在发现一旦要修改 工作量就巨大了

 


--  作者:rjh4078
--  发布时间:2016/6/7 8:39:00
--  
因为我每个窗口都相对独立 如果使用公用窗口 如何将这个公用窗口插入到对应的独立窗口中? 
--  作者:Hyphen
--  发布时间:2016/6/7 9:50:00
--  
参考,不过公用窗口也只能在一个独立窗口中出现

Forms("子窗口").OPEN(-1000,-1500)

Forms("子窗口").baseform.Dock = Windows.Forms.DockStyle.Fill
Forms("子窗口").baseform.TopLevel = False      
Forms("子窗口").baseform.FormBorderStyle = Windows.Forms.FormBorderStyle.None


Dim pnl As WinForm.Panel = e.Form.Controls("Panel1")
pnl.basecontrol.Controls.Clear()
pnl.basecontrol.Controls.Add(Forms("子窗口").baseform)


--------------------------------------
子窗口必须设为独立窗口类型



--  作者:rjh4078
--  发布时间:2016/6/7 12:04:00
--  
谢谢