0

我有一个关于在 Visual Basic 中使用文化代码的简短问题。我所拥有的是一个下拉菜单，人们可以在其中选择他们在本国使用的货币。一切都很好，直到我必须决定如何处理欧元哈哈！我的想法只是使用他们计算机中的当前文化，假设他们使用欧元。我的问题：如果我在应用程序中为任何使用欧元的欧盟国家（例如：荷兰）使用文化代码（出于货币外观目的），这是否可以作为通用代码覆盖任何使用欧元的国家？我必须参考一个 wiki 页面来告诉我哪些国家没有使用欧元，所以我包括了他们的特定货币。当程序再次启动时，代码还会保存所需的文化设置，而不是计算机上的默认设置。该代码确实有效。我'

    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

感谢您的关注。

4

0 回答 0