我无法弄清楚如何将我的类库中的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)