我如何将带有标签的动态项目添加到复选框,使用此代码我得到没有值的复选框。
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