currency sign changing - in vb.net

Knight_Chester_Sun

于 2017-05-11 09:53:48 发布

阅读量471

点赞数 1

CC 4.0 BY-SA版权

分类专栏：笔记文章标签： VB.NET

本文链接：https://blog.youkuaiyun.com/Knight_Chester_Sun/article/details/71600871

笔记专栏收录该内容

17 篇文章

订阅专栏

本文介绍了一个使用VB.NET进行应用程序文化设置的例子。通过修改当前线程的文化信息，可以实现不同区域格式的显示，例如货币格式。代码展示了如何在窗体加载时设置意大利文化，并在按钮点击事件中以该文化特定的格式显示货币。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Option Strict On

Imports System.Globalization

Imports System.Threading







Public Class Form1

    Dim c As CultureInfo



    Sub New()



        ' 此调用是 Windows 窗体设计器所必需的。

        InitializeComponent()



        ' 在 InitializeComponent() 调用之后添加任何初始化。







        'Notes : this is running on the current thread only. so means if your current system setting is US , it won't be overwritten.

        System.Threading.Thread.CurrentThread.CurrentCulture = New System.Globalization.CultureInfo("it-IT")            'zh-TW 台湾 zh-CN 大陆， zh-hk 香港 , it-IT 意大利, fr-FR

    End Sub



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Me.TextBox1.Text = Format(900.58, "Currency")

        'Dim MyInt As Integer = 100

        'Thread.CurrentThread.CurrentUICulture = New CultureInfo("fr-FR")

        'Dim MyString As String = MyInt.ToString("C", CultureInfo.InvariantCulture)

        'MessageBox.Show(MyString)

    End Sub

End Class