Foxtable(狐表)用户栏目专家坐堂 → [求助]固定控件在容器中


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

主题:[求助]固定控件在容器中

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


加好友 发短信
等级:七尾狐 帖子:1765 积分:11811 威望:0 精华:0 注册:2015/6/22 8:11:00
[求助]固定控件在容器中  发帖心情 Post By:2023/6/28 9:12:00 [只看该作者]

老师好,容器中平衡只能安放2个控件还有部分控件怎样放到第二行。谢谢老师。
Dim str() As String = {"第一行","上一行","下一行","最末行"}               
For i As Integer = 1 To 4
    Dim t0 As WinForm.Button = Forms("综合窗口").Controls("电" & i)
    t0.text =  str(i-1)
    t0.width = 70
    t0.height = 26
    t0.Top = 2
    t0.left = 10 + 75 * (i-1)       
    t0.Font = New Font("微软雅体", 10, FontStyle.Bold)
    t0.VisualStyle = VisualStyleEnum.office2010blue
    t0.TextAlign  = ContentAlignment.BottomCenter                                                   '垂直靠下,水平居中
    t0.ImageAlign = ContentAlignment.TopCenter                                                      '垂直靠上,水平居中
    t0.TextImageRelation = TextImageRelation.ImageAboveText                                         '图标在文本的上方上方
    e.Form.Controls("SplitContainer3") .Panel2.AddControl(t0)
Next
[此贴子已经被作者于2023/6/28 9:12:23编辑过]

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


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/6/28 10:14:00 [只看该作者]

t0.Top = 2 + 31 * IIF(i<=2,0,1)   
t0.left = 10 + 75 * ((i-1) mod 2)    

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


加好友 发短信
等级:七尾狐 帖子:1765 积分:11811 威望:0 精华:0 注册:2015/6/22 8:11:00
  发帖心情 Post By:2023/6/28 20:03:00 [只看该作者]

谢谢老师

 回到顶部