Foxtable(狐表) → 用户栏目 → 专家坐堂 → 语法解法


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

主题：语法解法
帅哥哟，离线，有人找我吗？
wtfwsk05
 小大  151楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00 		  发帖心情 Post By：2018/11/27 18:29:00 [显示全部帖子]

这个方法，我都试过了，没成功  
老师请看看我现在上传的案例吧
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:test.zip
 回到顶部
帅哥哟，离线，有人找我吗？
wtfwsk05
 小大  152楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00 		  发帖心情 Post By：2018/11/27 19:16:00 [显示全部帖子]

放在那个事件

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


加好友 发短信
等级：小狐 帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00 		  发帖心情 Post By：2018/11/27 20:16:00 [显示全部帖子]

For Each nd As WinForm.TreeNode In treev.AllNodes
    'If nd.IsSelected = True Then
    nd.SelectedIc
    'End If
Next
上述代码维护在AfterLoad事件中

图片点击可在新窗口打开查看此主题相关图片如下：图标.png
图片点击可在新窗口打开查看
未实现，未选中时显示next,选中时显示Accept图标的功能
 回到顶部
帅哥哟，离线，有人找我吗？
wtfwsk05
 小大  154楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00 		  发帖心情 Post By：2018/11/27 23:57:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
点击浏览该文件:管理项目2.table

老师，请帮我看看，上述项目中，为什么提求，找不到对象（主要出问题的代码在SelectedIndexChanged事件中）
请老师帮看看
 回到顶部
帅哥哟，离线，有人找我吗？
wtfwsk05
 小大  155楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00 		  发帖心情 Post By：2018/11/27 23:59:00 [显示全部帖子]

上述项目中，通过AfterLoad事件中生成导航栏各页面，接下来怎么实现选择不同页面后，在页面中添加目录树

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


加好友 发短信
等级：小狐 帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00 		  发帖心情 Post By：2018/11/28 12:01:00 [显示全部帖子]

systemready = False  请问下这个是什么用法

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


加好友 发短信
等级：小狐 帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00 		  发帖心情 Post By：2018/11/28 13:50:00 [显示全部帖子]

老师，请问下，如何通过代码隐藏指定窗口的标题

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


加好友 发短信
等级：小狐 帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00 		  发帖心情 Post By：2018/11/28 17:38:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:多表统计.table


老师，请问下：
1、如何实现单击【导航栏】中【目录树】的节点后在【主窗口】中添加一个页面集合Tabcontrol
2、每单击一次节点，就在页面集合中增加一个页面
3、如何不显示【主窗口】的窗口标题
 回到顶部
帅哥哟，离线，有人找我吗？
wtfwsk05
 小大  159楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00 		  发帖心情 Post By：2018/11/28 19:27:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:多表统计.table

老师我按上述文件创建了相关的代码，但无效果；代码如下：
Dim  form_main As WinForm.Form = Forms("主窗口")
Dim bar As WinForm.NavBar = e.Form.Controls("NavBar1")
Dim bar_page As WinForm.NavPage = bar.SelectedPage
Dim trv_nm As String = "trv_" & bar_page.Name
Dim trv_view As WinForm.TreeView = Forms("导航栏").Controls(trv_nm)
Dim trv_node As WinForm.TreeNode = trv_view.SelectedNode
Dim trv_node_txt As String = trv_node.text


Select Case trv_node.text
    Case trv_node_txt
        Dim tab As WinForm.TabControl
        tab = form_main.CreateControl(trv_node_txt,ControlTypeEnum.TabControl)
        Form_main.AddControl(tab)    
        tab.Dock = System.Windows.Forms.DockStyle.Fill
        tab.Visible = True
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
wtfwsk05
 小大  160楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00 		  发帖心情 Post By：2018/11/28 20:55:00 [显示全部帖子]

Dim  form_main As WinForm.Form = Forms("主窗口")
Dim bar As WinForm.NavBar = e.Form.Controls("NavBar1")
Dim bar_page As WinForm.NavPage = bar.SelectedPage
Dim trv_nm As String = "trv_" & bar_page.Name
Dim trv_view As WinForm.TreeView = Forms("导航栏").Controls(trv_nm)
Dim trv_node As WinForm.TreeNode = trv_view.SelectedNode
Dim trv_node_txt As String = trv_node.text
Dim tab As WinForm.TabControl
tab = form_main.CreateControl(trv_node_txt,ControlTypeEnum.TabControl)
tab.Dock = System.Windows.Forms.DockStyle.Fill
Form_main.AddControl(tab)
Select Case trv_node.text
    Case trv_node_txt
        Dim i As Integer=0
        tab.TabPages.Insert(trv_node_txt,trv_node_txt,i+1)
        
End Select
提示：
.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2018.10.9.1
错误所在事件：窗口,导航栏,DoubleClick
详细错误信息：
指定的参数已超出有效值的范围。
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05786 秒, 9 次数据查询