ComboBoxからDayOfWeekを取得する

Question

DayOfWeek.Mondayを使用する方法を見つけようとしていますが、フォーム上でそれを選択しています。

したがって、ユーザーがドロップダウンコンボボックスから火曜日を選択した場合、プログラムではDayOfWeek.Tuesdayになります。

これは、現在のコードです：

Do Until dtpEndMonth.DayOfWeek = DayOfWeek.Friday 

私が何かのように言いたい：

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

任意のアイデアは？

Answer 1

この静的なアプローチが実行可能であるならば、あなたはのDayOfWeek、列挙型に直接文字列を解析できます。これは、このような何かを行うことによってだろう行うに

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は表示と値メンバーの両方を持っています（DataSourceプロパティを使用）ので、ユーザーがフレンドリーな表示値を選択すると、実際にコードで扱われている「データ値」が表紙の下に表示されます。

注：私はこのコードをテストしなかったので、タイプミスがある可能性があります。説明や修正が必要な場合は、教えてください。