Foxtable(狐表)用户栏目专家坐堂 → 窗体加入窗体 代码没有对应起作用 麻烦老师们帮忙看看 谢谢!


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

主题:窗体加入窗体 代码没有对应起作用 麻烦老师们帮忙看看 谢谢!

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


加好友 发短信
等级:七尾狐 帖子:1571 积分:11238 威望:0 精华:0 注册:2021/1/17 17:06:00
窗体加入窗体 代码没有对应起作用 麻烦老师们帮忙看看 谢谢!  发帖心情 Post By:2021/9/16 19:00:00 [只看该作者]

将任务栏、Panel1 加入窗体   并在任务栏chick事件中写入如下代码:【该代码运行时 不弹出任何提示】
Select Case e.Sender.Name
    Case "Button1","file","user","xuexi"    
        e.Form.StopRedraw()
        '动态增加或删除控件的代码
        Dim PB As WinForm.Panel = e.Form.Controls("Panel1")
        MessageBox.Show(e.Sender.name)
        Dim Name As String = e.Sender.name
        Forms(Name).OPEN(-1000,-1000)
        Forms(Name).BaseForm.TopLevel = False
        Forms(Name).BaseForm.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
        Forms(Name).BaseForm.Dock = System.Windows.Forms.DockStyle.Fill
        PB.BaseControl.Controls.Clear
        PB.BaseControl.Controls.add(Forms(Name).BaseForm)
        e.Form.ResumeRedraw()
End Select

想实现点击不同的按钮,自动传递不同的按钮名称,然后对应将名称匹配窗体加入到Panel1中
运行效果如下:只有一个按钮点击有弹出值,且值对应的名称窗体也不显示,麻烦老师帮忙指导下   谢谢!

图片点击可在新窗口打开查看此主题相关图片如下:141.gif
图片点击可在新窗口打开查看
其中标题为1的按钮  单独添加了按钮事件代码
'MessageBox.show(e.sender.name)


[此贴子已经被作者于2021/9/16 19:09:36编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/9/16 20:23:00 [只看该作者]

看不出什么问题。

其次这种嵌入窗口的用法官方不提供支持的,有问题请自行解决

 回到顶部
帅哥哟,离线,有人找我吗?
cnsjroom
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1571 积分:11238 威望:0 精华:0 注册:2021/1/17 17:06:00
回复:(有点蓝)看不出什么问题。其次这种嵌入窗口的...  发帖心情 Post By:2021/9/16 20:37:00 [只看该作者]

那老师有没有其他类似操作或者官方支持的操作建议呢?

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/9/16 21:03:00 [只看该作者]

主窗口+并列窗口+共有窗口:http://www.foxtable.com/webhelp/topics/2906.htm

 回到顶部