Foxtable(狐表)用户栏目专家坐堂 → 动态增加控件时,如何控制每一行生成控件的个数?


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

主题:动态增加控件时,如何控制每一行生成控件的个数?

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/4/1 10:52:00 [显示全部帖子]

Dim x As Integer = 0
Dim y As Integer = 0
For  i As Integer=0 To 52  '列出全部
    If i Mod 5 = 0 Then
        y += 20
        x = 0
    Else
        x += 70
    End If
    Dim txt As WinForm.label
    txt = e.Form.CreateControl("label" & i, ControlTypeEnum.label)
    txt.text =  i
    txt.Font = New Font("微软雅黑", 9)
    txt.Left = 40 + x
    txt.Top = 10+y
    txt.Width = "500"
    txt.Height  = "200"
    e.Form.Controls("Panel14").AddControl(txt)
Next

 


 回到顶部