多列組合框和日期數據類型

Question

我正在嘗試制作一個程序，該程序計算某人的清醒時間。 用戶只需要輸入他醒來的時間即可。 但是我遇到了兩個問題：

1. 我需要制作一個組合框，以便用戶在PM和AM之間進行選擇，但是我不知道如何制作具有多列的組合框。

2. 如何使用日期類型變量進行計算？ 因為我需要獲取當前時間並減去用戶醒來的時間。

下面是現在的代碼：

Public Class Form1
    Dim wokeup As Date
    Dim now As Date
    Dim awake As Date

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        now = DateAndTime.TimeOfDay
        ComboBox1.Text = "AM"


    End Sub
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        wokeup = TextBox1.Text
        Label2.Text = wokeup

    End Sub
End Class

Answer 1

1）我不確定您所說的“多列”是什么意思，但我想您只需要用戶在AM和PM之間進行選擇即可。

Combobox1.Items.Add("AM")
Combobox1.Items.Add("PM")
Combobox1DropDownStyle = ComboBoxStyle.DropDownList 

2）要減去時間間隔，可以使用以下方法：

Dim timeAwake as TimeSpan = Date.Now.Subtract(CDate(Textbox1.Text))

如果文本框僅包含時間，則可能需要在Textbox1.Text前面添加當前日期。 從timeAwake ，您可以使用timeAwake.TotalHours獲得總的喚醒timeAwake.TotalHours 。