textbox sayı formatı

[hurkanpisirici]

merhabalar bu konu ile ilgili bi sürü örenek var ama denediğim kodlarla yapamadım.
benim yapmak istediğim mesela textboxa 1000000 ytl yazdığımda kendisi bunu 1.000.000,00 ytl ye çenvirsin bunun kodu nedir acaba?

 

[exam77]

merhabalar bu konu ile ilgili bi sürü örenek var ama denediğim kodlarla yapamadım.
benim yapmak istediğim mesela textboxa 1000000 ytl yazdığımda kendisi bunu 1.000.000,00 ytl ye çenvirsin bunun kodu nedir acaba?

Şu kodu deneyin...

Private Sub TextBox1_AfterUpdate()
TextBox1 = Format(TextBox1, "###.###.###.###,##")
End Sub

 

[iibfli]

Private Sub TextBox1_Change()
TextBox1 = Format(TextBox1, "###.###.###.###,##")
End Sub

Bu şekilde deneyebilirsin. Ancak 1,234.568.72222 bu hale getiriyor.İstediğin gibi değil sanırım.

 

[hurkanpisirici]

ikinizede çok teşekkür ederim sağolun yardımcı oldunuz kolaygelsin.

 

[Orion1]

Private Sub TextBox1_AfterUpdate()
TextBox1.Value = Format(TextBox1.Value, "#,##0.00")
End Sub

 

[hurkanpisirici]

örnek olarak denedim ama olmuyor.sevgili evren bey örnek dosya yokmu acaba