Question

我有一个海关管制,我加了一些流流板板:

Dim drive As New WindowsControlLibrary1.UserControl1()
drive.FileSystemlable = reader.GetString(2)
drive.AbalableSpaceLable = Convert.ToInt32(reader.GetString(4) / 1024)
drive.TotalSpaceLable = Convert.ToInt32(reader.GetString(5) / 1024)
drive.SetVolumeLable = reader.GetString(3)
Dim usedspace As Integer = Convert.ToInt32(reader.GetString(5)) - Convert.ToInt32(reader.GetString(4))
drive.BarValue = usedspace / 1024

Form1.FlowLayoutPanel1.Controls.Add(drive)

我现在怎样才能更新这些控制系统, 而不是清理它们, 并重新添加它们呢?

Answer 1

尝试给控件提供唯一名称 :

Dim drive As New WindowsControlLibrary1.UserControl1()
drive.Name = "drive1"

然后您可以在面板控件收藏中按名称引用它们:

With DirectCast(Form1.FlowLayoutPanel1.Controls("drive1"), WindowsControlLibrary1.UserControl1)
  .BarValue = 50
End With

友情链接