从ComboBox获取DayOfWeek

Question

我正在尝试找到一种使用DayOfWeek.Monday的方法，但是要在表单上选择它。

因此，如果用户从下拉组合框中选择Tuesday，那么在编程上它将是DayOfWeek.Tuesday。

这是当前的代码：

Do Until dtpEndMonth.DayOfWeek = DayOfWeek.Friday

我想说的是：

Do Until dtpEndMonth.DayOfWeek = DayOfweek.Me.Controls("ComboBox1").Value

有什么想法吗？

Answer 1

如果这种静态方法可行，您可以将字符串直接解析为DayOfWeek-Enum：

Dim dayOfWeekValue = ComboBox1.SelectedValue
Dim dayOfWeek = DirectCast(System.Enum.Parse(GetType(DayOfWeek), dayOfWeekValue), DayOfWeek)

Answer 2

要做到这一点，一种方法是这样做：

' On Form_Load()
Dim daysOfWeek = {New KeyValuePair(Of DayOfWeek, String)(DayOfWeek.Sunday, "Sunday"),
                  New KeyValuePair(Of DayOfWeek, String)(DayOfWeek.Monday, "Monday"),
                  ...,
                  New KeyValuePair(Of DayOfWeek, String)(DayOfWeek.Saturday, "Satruday")}

Me.ComboBox1.DataSource = daysOfWeek
Me.ComboBox1.ValueMember = "Key"
Me.ComboBox1.DisplayMember = "Value"
...

然后，当您想要获取所选值时：

Dim selectedDayOfWeek = CType(Me.ComboBox1.SelectedValue, DayOfWeek)

这种方法利用了让ComboBox同时具有Display和value成员的能力(通过DataSource属性)，这样当用户选择一个友好的显示值时，他们实际上是在幕后选择一个“数据值”，这就是您的代码要处理的内容。

注意:我没有测试这段代码，所以可能会有打字错误。如果您需要任何澄清或更正，请告诉我。