我试图找到一种使用方式,DayOfWeek.Monday
但通过在表单上选择它。
因此,如果用户从下拉组合框中选择星期二,那么以编程方式它将是DayOfWeek.Tuesday
.
这是当前代码:
Do Until dtpEndMonth.DayOfWeek = DayOfWeek.Friday
我想说的是:
Do Until dtpEndMonth.DayOfWeek = DayOfweek.Me.Controls("ComboBox1").Value
有任何想法吗?
如果这种静态方法可行,您可以将字符串直接解析为 DayOfWeek-Enum:
Dim dayOfWeekValue = ComboBox1.SelectedValue
Dim dayOfWeek = DirectCast(System.Enum.Parse(GetType(DayOfWeek), dayOfWeekValue), DayOfWeek)
一种方法是这样做:
' 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
属性)的能力,因此当用户选择一个人类友好的显示值时,他们实际上是在选择一个“数据值”,即你的代码处理什么。
注意:我没有测试这段代码,所以可能有错别字。如果您需要任何澄清或更正,请告诉我。