欧洲文化代码

Question

我有一个关于在Visual Basic中使用文化代码的简短问题。我所拥有的是一个下拉菜单，有人可以选择他们在自己国家/地区使用的货币。一切都很好，直到我必须决定如何处理欧元哈哈！我的想法只是使用他们计算机中的当前文化，假设他们使用欧元。我的问题：如果我在欧盟使用欧元（例如荷兰）的任何国家/地区使用文化代码（出于货币出现的目的），它是否可以作为通用代码覆盖使用欧元的任何国家/地区？我不得不参考维基页面告诉我哪些国家没有使用欧元，所以我包括他们的特定货币。当程序再次启动时，代码还会保存所需的文化设置，而不是默认为计算机上的文件设置。代码确实有效。我只是想知道是否有更好的方法，因为我不知道用户当前的文化是否会成为使用欧元的文化，除非我根据17个国家的名单进行测试。）这是我的代码示例，向您展示我正在谈论的内容：

    If ComboBox1.SelectedItem = "EURO (€)" Then
        Me.CurrencyDataSet.CURR(0).CURRTYPE = "EUR"
        Thread.CurrentThread.CurrentCulture = CultureInfo.CreateSpecificCulture("nl-NL")
        Thread.CurrentThread.CurrentUICulture = CultureInfo.CreateSpecificCulture("nl-NL")
    End If
    If ComboBox1.SelectedItem = "FRANC (Fr)" Then
        Me.CurrencyDataSet.CURR(0).CURRTYPE = "FR"
        Thread.CurrentThread.CurrentCulture = CultureInfo.CreateSpecificCulture("fr-FR")
        Thread.CurrentThread.CurrentUICulture = CultureInfo.CreateSpecificCulture("fr-FR")
    End If
    If ComboBox1.SelectedItem = "POUND (£)" Then
        Me.CurrencyDataSet.CURR(0).CURRTYPE = "GBP"
        Thread.CurrentThread.CurrentCulture = CultureInfo.CreateSpecificCulture("en-GB")
        Thread.CurrentThread.CurrentUICulture = CultureInfo.CreateSpecificCulture("en-GB")
    End If
    If ComboBox1.SelectedItem = "ZLOTY (zl)" Then
        Me.CurrencyDataSet.CURR(0).CURRTYPE = "ZL"
        Thread.CurrentThread.CurrentCulture = CultureInfo.CreateSpecificCulture("pl-PL")
        Thread.CurrentThread.CurrentUICulture = CultureInfo.CreateSpecificCulture("pl-PL")
    End If

谢谢你的期待。