我需要弄清楚如何将我的类库中的枚举绑定到我的应用程序中的单选按钮

Posted 2021-04-14

我无法弄清楚如何将我的类库中的Enum绑定到我的单选按钮以显示其中一个被检查并从枚举中提取答案我的单选按钮的名称是radCopper，radNickel，radGold，radSilver，radPalladium ，radPlatinum和radZinc。这是我需要在我的类库中使用的Enum

Namespace CoinCollection
`Public Class Coin
Public Enum Metal
            Gold
            Silver
            Platinum
            Copper
            Zinc
            Nickel
            Palladium
        End Enum`
This is the button I need to display the radio button checked when clicked

Private Sub btnInsert_Click(sender As Object, e As EventArgs) Handles btnInsert.Click
Dim Met = [Enum].GetValues(GetType(Coinn.Metal))
        If radCopper.Checked Then
            MessageBox.Show("Copper")
        End If

此按钮还将我的类库中的其他枚举绑定到我当前正在工作的下拉列表

Private Sub btnInsert_Click(sender As Object, e As EventArgs) Handles btnInsert.Click
        Dim Curr = [Enum].GetValues(GetType(Coinn.Currency))
        MessageBox.Show(cboCurrency.SelectedItem, GetType(Coinn.Currency).Name)

答案

对RadioButtons没有任何约束力。您只需使用一些代码即可获得适当的值。你可以在事后通过索引这样做，例如

Dim radioButtons = {radGold, radSilver, ...}
Dim checkedIndex = Array.IndexOf(radioButtons, radioButtons.Single(Function(rb) rb.Checked))
Dim metalValue = DirectCast([Enum].GetValues(GetType(Metal)), Metal())(checkedIndex)

或者，您可以在事实之前使用控件的Tag属性，例如

Dim radioButtons = {radGold, radSilver, ...}
Dim metalValues = DirectCast([Enum].GetValues(GetType(Metal)), Metal())

For i = 0 To radioButtons.GetUpperBound(0)
    radioButtons(i).Tag = metalValues(i)
Next

然后，您可以在事实之后从检查的RadioButton中获取适当的值，例如

Dim metalValue = DirectCast(radioButtons.Single(Function(rb) rb.Checked).Tag, Metal)