Foxtable(狐表)用户栏目专家坐堂 → Panl 控件中BUTTON控件的自动增加


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

主题:Panl 控件中BUTTON控件的自动增加

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


加好友 发短信
等级:九尾狐 帖子:2927 积分:20161 威望:0 精华:0 注册:2012/2/3 17:45:00
Panl 控件中BUTTON控件的自动增加  发帖心情 Post By:2015/3/26 16:57:00 [显示全部帖子]

老师,
     是个老问题,举例我这边有100个窗口(但是已经通过代码限定了最多能打开10个)附件中的例子希望老师给改改:

    1、关于Panl 控件中是每一BUTTON对应一个窗口,如果panl 中加入100个Button有点痛苦,能否有别的方法。
    2、点击导航的不同页面 “任务”和“联系人”,Panl 控件中BUTTON 会被不同页面对应的 BUTTON覆盖




[此贴子已经被作者于2015/3/26 18:09:32编辑过]

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


加好友 发短信
等级:九尾狐 帖子:2927 积分:20161 威望:0 精华:0 注册:2012/2/3 17:45:00
  发帖心情 Post By:2015/3/26 17:21:00 [显示全部帖子]

有点甜老师,
    第一个,这个真不会,普通用户的还没学会,动态增加 有点难 ,估计我一个星期也弄不出来,最后还得问您;能不能图片点击可在新窗口打开查看给个代码。

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


加好友 发短信
等级:九尾狐 帖子:2927 积分:20161 威望:0 精华:0 注册:2012/2/3 17:45:00
  发帖心情 Post By:2015/3/26 18:08:00 [显示全部帖子]

太谢谢您了
可是还有第二个问题
2、覆盖的问题,是因为你把按钮添加在一个panel里面了,你应该弄两个panel,然后分别添加属于自己的按钮啊

可是Panl 不会自动变动长度,会出现这样



图片点击可在新窗口打开查看此主题相关图片如下:panl.png
图片点击可在新窗口打开查看


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


加好友 发短信
等级:九尾狐 帖子:2927 积分:20161 威望:0 精华:0 注册:2012/2/3 17:45:00
  发帖心情 Post By:2015/3/27 11:24:00 [显示全部帖子]

有点甜老师,
用两个PANL 好像很难,我使用了把页面前两位添加数字编号,其他的都可以了实现了,就差以下代码,烦您帮忙看看:

If e.Sender.Name.StartsWith("btn_pg") 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
            For Each TabControl In e.Form.Controls  ‘想要达到点击btn_pg 链接到对应界面
                Dim tab As WinForm.TabControl
                tab.SelectedIndex = k
                btn.BackColor = Color.red
            Else
                btn.BackColor = Color.white
            Next
        End If
    Next
End If

图片点击可在新窗口打开查看此主题相关图片如下:编码错误.png
图片点击可在新窗口打开查看


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


加好友 发短信
等级:九尾狐 帖子:2927 积分:20161 威望:0 精华:0 注册:2012/2/3 17:45:00
  发帖心情 Post By:2015/3/27 11:52:00 [显示全部帖子]

要做10个 下面代码我复制了10个 可是增加的Button 不好用,麻烦您帮忙改改
If e.Sender.Name.StartsWith("btn_pg") 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("TabControl1")
            tab.SelectedIndex = k
            btn.BackColor = Color.red
        Else
            btn.BackColor = Color.white
        End If
    Next
End If


If e.Sender.Name.StartsWith("btn_pg") 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("TabControl2")
            tab.SelectedIndex = k
            btn.BackColor = Color.red
        Else
            btn.BackColor = Color.white
        End If
    Next
End If
[此贴子已经被作者于2015/3/27 11:53:24编辑过]

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


加好友 发短信
等级:九尾狐 帖子:2927 积分:20161 威望:0 精华:0 注册:2012/2/3 17:45:00
  发帖心情 Post By:2015/3/27 13:34:00 [显示全部帖子]

有点甜老师,
    附件是我上面描述的,出现Panl 中的Button 按钮出现红色部分同时有两个问题;而且,点击页面2对应的Button 不起作用,烦您帮忙改下;

图片点击可在新窗口打开查看此主题相关图片如下:button按钮问题.png
图片点击可在新窗口打开查看



[此贴子已经被作者于2015/3/27 13:34:42编辑过]

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


加好友 发短信
等级:九尾狐 帖子:2927 积分:20161 威望:0 精华:0 注册:2012/2/3 17:45:00
  发帖心情 Post By:2015/3/27 15:08:00 [显示全部帖子]

不好意思刚才出去了,浪费您的时间了,例子是这样的
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:页面顺序 (7).foxdb


[此贴子已经被作者于2015/3/27 15:58:04编辑过]

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


加好友 发短信
等级:九尾狐 帖子:2927 积分:20161 威望:0 精华:0 注册:2012/2/3 17:45:00
  发帖心情 Post By:2015/3/27 15:47:00 [显示全部帖子]

老师,

  14楼的PANL1 PAML2 能合并成一个吗 要求 Button 标红的 是唯一的  并且点击后能对应到相应的页面  图片点击可在新窗口打开查看 跪求代码啊  和原来的思路不一样了 需要时间去理解 做完好周末赶工

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


加好友 发短信
等级:九尾狐 帖子:2927 积分:20161 威望:0 精华:0 注册:2012/2/3 17:45:00
  发帖心情 Post By:2015/3/27 15:58:00 [显示全部帖子]

哦 谢谢您了 您别生气 我在自己好好看看图片点击可在新窗口打开查看

 回到顶部