Foxtable(狐表)用户栏目专家坐堂 → 动态控件图标问题


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

主题:动态控件图标问题

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


加好友 发短信
等级:九尾狐 帖子:2472 积分:22812 威望:0 精华:0 注册:2011/3/29 17:14:00
动态控件图标问题  发帖心情 Post By:2022/4/2 9:49:00 [只看该作者]

 Dim lbl12 As WinForm.CheckBox
                Dim ValueBox As String = "高定|保存|放弃|删除|撤销"
                Dim spsBox() As Char = {"|"}
                Dim NamesBox() As String  = ValueBox.Split(spsBox)
                Dim sBox As Integer = e.Form.Width - 2
                Dim tBox As Integer = 5
                For i As Integer = 0 To NamesBox.length - 1
                    If i <> 0 Then
                        If i Mod 3 = 0 Then
                            sBox = 2
                            tBox = tBox  + 41.5
                        Else
                            sBox = sBox + 66.5
                        End If
                    End If
                    Dim nm As String = NamesBox(i)
                    lbl12 = e.Form.CreateControl(nm, ControlTypeEnum.CheckBox)
                    lbl12.Text = nm
                    lbl12.name = nm
                    lbl12.Width = 50
                    lbl12.Height = 40
                    lbl12.Left = e.Form.Width - i * (52) - 52
                    lbl12.Top = tBox + 2
                    lbl12.TextAlign = ContentAlignment.BottomCenter  '控件文字位置
                    lbl12.CheckAlign = ContentAlignment.TopCenter    '控件复选框位置
                    'lbl12.BackColor = Color.LightSteelBlue
                    lbl12.Theme = "System"   '控件风格
                    e.Form.AddControl(lbl12)
                Next

Dim ValueBox As String = "高定|保存|放弃|删除|撤销"
怎么分别给动态控件赋值 ico 图标

[此贴子已经被作者于2022/4/2 9:49:38编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109503 积分:557183 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/4/2 10:04:00 [只看该作者]


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


加好友 发短信
等级:九尾狐 帖子:2472 积分:22812 威望:0 精华:0 注册:2011/3/29 17:14:00
  发帖心情 Post By:2022/4/2 10:13:00 [只看该作者]

单个的知道怎么搞  就是动态的不会呢  老师

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109503 积分:557183 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/4/2 10:18:00 [只看该作者]

这个意思?

chk.Image = GetImage(ValueBox (i) & ".Ico")

 回到顶部