以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]固定控件在容器中  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=187168)

--  作者:江南小镇
--  发布时间: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编辑过]

--  作者:有点蓝
--  发布时间:2023/6/28 10:14:00
--  
t0.Top = 2 + 31 * IIF(i<=2,0,1)   
t0.left = 10 + 75 * ((i-1) mod 2)    
--  作者:江南小镇
--  发布时间:2023/6/28 20:03:00
--  
谢谢老师