Foxtable(狐表)用户栏目专家坐堂 → 页面显示问题


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

主题:页面显示问题

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


加好友 发短信
等级:九尾狐 帖子:2928 积分:20184 威望:0 精华:0 注册:2012/2/3 17:45:00
页面显示问题  发帖心情 Post By:2015/3/31 17:52:00 [只看该作者]

老师,

    Button 生成后,如何点击它,转到对应界面

 

 

 

Dim pidx As object
Dim tname As String
Dim idx As Integer
If e.Sender.Name.StartsWith("btn_tabcontrol") Then
    pidx = vars("p1_pidx")
    tname = e.Sender.Name.split("_")(1)
    idx = e.Sender.Name.split("_")(2).replace("pg", "")
End If
If pidx IsNot Nothing Then
    For Each k As String In pidx.keys  '显示所有值
        Dim btn As WinForm.Button = e.Form.Controls(pidx(k))
        If pidx(k) = e.Sender.Name
            Dim tab As WinForm.TabControl = e.Form.Controls(tname)
            tab.SelectedIndex = idx
            'tab.SelectedPage = tab.TabPages(pidx)     希望点击BUtton  相应的界面显示在最前面
            btn.BackColor = Color.red
        Else
            btn.BackColor = Color.white
        End If
    Next
End If

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


加好友 发短信
等级:九尾狐 帖子:2928 积分:20184 威望:0 精华:0 注册:2012/2/3 17:45:00
  发帖心情 Post By:2015/3/31 17:53:00 [只看该作者]

例子

 

 

谢谢您了。
[此贴子已经被作者于2015/3/31 18:10:05编辑过]

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/3/31 18:07:00 [只看该作者]

 弄一个 TabControl3,把然后把各个tabcontrol一个page一个放进去,然后用代码,类似

 

Dim pidx As object
Dim tname As String
Dim idx As Integer
If e.Sender.Name.StartsWith("btn_tabcontrol") Then
    pidx = vars("p1_pidx")
    tname = e.Sender.Name.split("_")(1)
    idx = e.Sender.Name.split("_")(2).replace("pg", "")
End If
If pidx IsNot Nothing Then
    For Each k As String In pidx.keys  '显示所有值
        Dim btn As WinForm.Button = e.Form.Controls(pidx(k))
        If pidx(k) = e.Sender.Name
            Dim tab As WinForm.TabControl = e.Form.Controls(tname)
            tab.SelectedIndex = idx
            e.Form.Controls("TabControl3").SelectedIndex = tname.Replace("tabcontrol", "") - 1
            btn.BackColor = Color.red
        Else
            btn.BackColor = Color.white
        End If
    Next
End If


 回到顶部