Foxtable(狐表)用户栏目专家坐堂 → 有没有类似于工具栏的解决方案


  共有2111人关注过本帖树形打印复制链接

主题:有没有类似于工具栏的解决方案

帅哥哟,离线,有人找我吗?
Hyphen
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By: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)


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



 回到顶部