Foxtable(狐表)用户栏目专家坐堂 → 页面集合


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

主题:页面集合

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


加好友 发短信
等级:四尾狐 帖子:972 积分:7048 威望:0 精华:0 注册:2013/3/31 10:33:00
页面集合  发帖心情 Post By:2015/4/4 11:23:00 [只看该作者]

页面集合用得比较多,代码都堆在SelectedIndexChanged事件里, 觉得不够合理.选择不同的页面执行不同的代码怎么操作?帮助文件和功能演示都没见到介绍.

select 页面1

   代码1

select 页面2

   代码2

 

页面名怎么表达?

 

 


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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/4/7 11:04:00 [只看该作者]


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


加好友 发短信
等级:四尾狐 帖子:972 积分:7048 威望:0 精华:0 注册:2013/3/31 10:33:00
  发帖心情 Post By:2015/4/28 11:00:00 [只看该作者]

笔记:

Dim tab As WinForm.TabControl = e.sender
Select Case tab.SelectedPage.Name
    Case "退货"

 With e.Form.Controls("Table1").Table
            .DataTable.SysStyles("EmptyArea").BackColor = Color.AliceBlue
        End With
 Case "修改"
        With e.Form.Controls("Table2").Table
            .DataTable.SysStyles("EmptyArea").BackColor = Color.Whitesmoke
        End With
End Select


 回到顶部