Foxtable(狐表)用户栏目专家坐堂 → 怎么实现默认隐藏


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

主题:怎么实现默认隐藏

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2016/12/11 15:12:00 [显示全部帖子]

AfterLoad事件代码

 

For i As Integer = 1 To 3
    Dim LblCtl As Windows.Forms.Button = e.Form.Controls("Button" & i).BaseControl
    LblCtl.Image = GetImage("Control.png")
    LblCtl.ImageAlign = Drawing.ContentAlignment.MiddleLeft
    Dim Pnl = e.Form.Controls("Panel" & i)  '获取对应的panel控件
    Dim Lbl = e.Form.Controls("Button" & i)
    pnl.visible = False
    lbl.Top = e.Form.Controls("Button1").Top + lbl.height * (i-1)
    pnl.Top = Lbl.Top + Lbl.Height + 3   '根据对应label的纵坐标和高度设置panel控件的 纵坐标
Next


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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2016/12/20 9:16:00 [显示全部帖子]

要加举例,就调整红色的代码

 

pnl.Top = Lbl.Top + Lbl.Height + 3 


 回到顶部