Question

我已经制作了一个程序，可以在正确调整后在后台运行（ Me.Hide（））。它添加了一项功能，允许用户在程序窗口应该再次出现在屏幕上（ Me.Show（））时选择一个时间。我希望这个程序生成一个列表，其中包含应该在程序出现时的几个选项。 newTime1 = time.ToString（格式）+ 5分钟 和 newTime2 = time.ToString（格式）+ 1小时。 这是我的代码，在这一点上，它添加了两个选项，两者都写出当前时间：

Dim time As DateTime = DateTime.Now
Dim format As String = "HH:mm"
Dim newTime1 As String = time.ToString(format)
Dim newTime2 As String = time.ToString(format) 
With stopTime
    With .Items
        .Add(newTime1)
        .Add(newTime2)
    End With
End With

谢谢：）

修改

问题：如何让这个程序生成一个列表，它将生成的（HH：mm）值添加到组合框中的选项中;例如：选项1（newTime1）应该是现在的时间+ 5分钟，依此类推。

如果computertime是18:00：

，组合框应该有这样的生成列表

18:05

18:00

19:00

Answer 1

Dim dt As DateTime = DateTime.Now

ComboBox1.Items.Clear
ComboBox1.Items.Add(dt.Add(New TimeSpan(0, 5, 0)))
ComboBox1.Items.Add(dt.Add(New TimeSpan(0, 15, 0)))
ComboBox1.Items.Add(dt.Add(New TimeSpan(1, 5, 0)))

如果这些用于设置停止时间，则允许一个或多个可能已经过期的事实。最好从现在＆＃34;，＃34;从现在起30分钟＆＃34;，＃34;从现在起1小时＆＃34;建立一个文本列表＃5; 5分钟，并设置停止时间根据选择和当前时间。该列表将是STATIC并且永远不必重建，使用显式时间，它将不得不一遍又一遍地重建。

格式化：

ComboBox1.Items.Add(dt.Add(New TimeSpan(0, 15, 0)).ToString("HH:mm"))

组合框中的timedefined列出的选项

1 个答案: