Foxtable(狐表) → 用户栏目 → 专家坐堂 → [原创]仿WIN8主题，求助


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

主题：[原创]仿WIN8主题，求助
帅哥哟，离线，有人找我吗？
jslb01
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：106 积分：954 威望：0 精华：0 注册：2013/3/19 17:24:00 		  发帖心情 Post By：2015/7/26 18:13:00 [只看该作者]

感觉要把狐表学好，还是得有VB语言的基础。
 回到顶部
帅哥哟，离线，有人找我吗？
lihe60
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：6848 积分：43334 威望：0 精华：0 注册：2009/3/2 14:07:00 		  发帖心情 Post By：2015/7/26 21:32:00 [只看该作者]

以下是引用大红袍在2015/7/26 15:45:00的发言：

 控件过多肯定会卡，每个功能单独做一个窗口，需要的时候，剪切进去。

 

 

Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")
Dim Name As String = "窗口2"

tab.TabPages.Add(name,name)
Dim pb = tab.BaseControl
Forms(Name).OPEN(-1000,-1500)
Forms(Name).BaseForm.TopLevel = False
Forms(Name).BaseForm.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Forms(Name).BaseForm.Dock = System.Windows.Forms.DockStyle.Fill
PB.TabPages(name).Controls.Clear
PB.TabPages(name).Controls.add(Forms(Name).BaseForm)
tab.SelectedPage = tab.TabPages(name)

这段代码放在什么事件中执行？我放在打开窗口后或按钮中，运行有问题。

[此贴子已经被作者于2015/7/26 21:35:50编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
游
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：321 积分：1916 威望：0 精华：0 注册：2014/8/24 13:36:00 		  发帖心情 Post By：2015/7/26 22:59:00 [只看该作者]

被剪切进去的窗口必须是独立窗口

 

并且不能用窗口预览
 回到顶部
帅哥哟，离线，有人找我吗？
right600
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：7 积分：123 威望：0 精华：0 注册：2015/8/1 6:48:00 		  发帖心情 Post By：2015/8/1 14:02:00 [只看该作者]

怎么实现同表关联了，新人闹不懂

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/8/2 10:23:00 [只看该作者]

以下是引用right600在2015/8/1 14:02:00的发言：
怎么实现同表关联了，新人闹不懂

 

直接设置就行，也就是某一列和另一列关联即可  http://www.foxtable.com/help/topics/2353.htm

 
 回到顶部
帅哥哟，离线，有人找我吗？
l1q2lq
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：422 积分：3430 威望：0 精华：0 注册：2015/5/20 8:44:00 		  发帖心情 Post By：2015/8/3 14:43:00 [只看该作者]

使用这段代码
Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")
Dim Name As String = "物料信息"
tab.TabPages.Add(name,name)
Dim pb = tab.BaseControl
Forms(Name).OPEN（-1200,-800）
Forms(Name).BaseForm.TopLevel = False
Forms(Name).BaseForm.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Forms(Name).BaseForm.Dock = System.Windows.Forms.DockStyle.Fill
PB.TabPages(name).Controls.Clear
PB.TabPages(name).Controls.add(Forms(Name).BaseForm)
tab.SelectedPage = tab.TabPages(name)

点击最大化，整个窗口控件拉伸的不成样子了，这个要怎么调整？
我绑定的窗口是1200*800这个大小
[此贴子已经被作者于2015/8/3 14:50:39编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/8/3 14:50:00 [只看该作者]

例子说明情况。

 回到顶部
帅哥哟，离线，有人找我吗？
l1q2lq
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：422 积分：3430 威望：0 精华：0 注册：2015/5/20 8:44:00 		  发帖心情 Post By：2015/8/3 17:40:00 [只看该作者]

看下，最大化界面拉伸出错
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:物料信息系统-上传.table
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/8/3 17:46:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:物料信息系统-上传.table
 回到顶部
帅哥哟，离线，有人找我吗？
l1q2lq
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：422 积分：3430 威望：0 精华：0 注册：2015/5/20 8:44:00 		  发帖心情 Post By：2015/8/4 8:30:00 [只看该作者]

最大化还是不对啊
图片点击可在新窗口打开查看此主题相关图片如下：qq截图20150804083038.jpg
图片点击可在新窗口打开查看
 回到顶部
总数 26 上一页 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.11719 秒, 6 次数据查询