Question

多年来我发现我的问题的每个解决方案都在stackoverflow上讨论并解决了，现在我很困惑，我实际发布的第一件事就是：

    Public Shared Sub DisplayCIntervals()
    Dim Scratch As Integer


    IntervalSets.ListBox1.Items.Clear()
    IntervalSets.ListBox1.Items.Add("Name" + Chr(9) + Chr(9) + "Gruppe" + Chr(9) + Chr(9) + "Start" + Chr(9) + Chr(9) + "Ende")

    While CurrentIntervals(Scratch, 8) <> Nothing
        IntervalSets.ListBox1.Items.Add(CurrentIntervals(Scratch, 6) + Chr(9) + CurrentIntervals(Scratch, 7) + CurrentIntervals(Scratch, 0) + ":" + CurrentIntervals(Scratch, 1) + ":" + CurrentIntervals(Scratch, 2) + Chr(9) + CurrentIntervals(Scratch, 3) + ":" + CurrentIntervals(Scratch, 4) + ":" + CurrentIntervals(Scratch, 5))
        System.Diagnostics.Debug.WriteLine(CurrentIntervals(Scratch, 6) + Chr(9) + CurrentIntervals(Scratch, 7) + CurrentIntervals(Scratch, 0) + ":" + CurrentIntervals(Scratch, 1) + ":" + CurrentIntervals(Scratch, 2) + Chr(9) + CurrentIntervals(Scratch, 3) + ":" + CurrentIntervals(Scratch, 4) + ":" + CurrentIntervals(Scratch, 5))
        Scratch += 1
    End While
    End Sub

在我的应用程序中，用户可以创建，保存和加载时间间隔。有一种形式可以创建和保存这些间隔，我希望它使用此Sub在form.activate上显示当前加载的间隔。 IntervalSets.Listbox1.Items.Add命令不在while循环内执行。但是，循环本身可以按照我的意愿工作，而令牌线输出会打印出预期的字符串。

我试过Listbox1.Hide（） - ＆gt; Listbox1.Show（）以及Listbox1.Refresh（）都不会改变任何内容。

我在这里缺少什么？！

干杯，

马克

列表框不显示新项

0 个答案: