0

我如何将带有标签的动态项目添加到复选框,使用此代码我得到没有值的复选框。

Dim item As CheckBox
                        While data.Read
                            item = New CheckBox()
                            With item
                                .Name = data.GetString(0)
                                .Tag = data.GetInt64(2)
                                .Text = data.GetString(0)
                            End With
                            ListeBases.Items.Add(item)
                        End While
4

0 回答 0