0

我试图找到一种使用方式,DayOfWeek.Monday但通过在表单上选择它。

因此,如果用户从下拉组合框中选择星期二,那么以编程方式它将是DayOfWeek.Tuesday.

这是当前代码:

Do Until dtpEndMonth.DayOfWeek = DayOfWeek.Friday

我想说的是:

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

有任何想法吗?

4

2 回答 2

1

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

Dim dayOfWeekValue = ComboBox1.SelectedValue
Dim dayOfWeek = DirectCast(System.Enum.Parse(GetType(DayOfWeek), dayOfWeekValue), DayOfWeek)
于 2011-07-26T12:01:29.647 回答
0

一种方法是这样做:

' 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一个显示和一个值成员(通过DataSource属性)的能力,因此当用户选择一个人类友好的显示值时,他们实际上是在选择一个“数据值”,即你的代码处理什么。

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

于 2011-07-30T14:54:55.887 回答