optionbutton döngü sorunu hakkında

[budapeshte]

gönderdiğim ekte 3 tane option button (TL, $, € YAZAN ) ve bir tane textbox var ben option buttonlardan birine örnek olarak TL yazana tıkladıgımda textboxtaki rakamın sonunda TL olmasını istiyorum ve eğer dolara tıklarsam $ olmasını istoyorum ama yaptıgım ornekte bir yerde takılıyor neden anlamadım. Yardımcı olursanız çok sevinirim şimdiden teşekkürler.

 

[omerceri]

Kodlarınızı aşağıdaki gibi değiştirirseniz.
Private Sub OptionButton1_Click()
A = Val(TextBox1)
TextBox1 = Format(A, "#,###.00 TL")
End Sub
Private Sub OptionButton2_Click()
A = Val(TextBox1)
TextBox1 = Format(A, "#,###.00 $")
End Sub
Private Sub OptionButton3_Click()
A = Val(TextBox1)
TextBox1 = Format(A, "#,###.00 €")
End Sub

 

[budapeshte]

teşekkürler ömer bey kodları denedinizmi bilmiyorum ama ben baktımda mesela 2-3 kere farklı button a tıklayınca rakamı yuvarlıyo tarzında birşeyler yapıyor. Örneğin 454.000.000 € iken $ a tıklayınca 454 falan gösteriyor. yardımcı olursanız sevinirim.

 

[omerceri]

Belki daha kolay yapılabiliyordur ama ben böyle çözebildim.
A = Split(TextBox1, " ")
B = CDbl(A(0))
TextBox1 = Format(B, "#,###.00 TL")
End Sub
Private Sub OptionButton2_Click()
A = Split(TextBox1, " ")
B = CDbl(A(0))
TextBox1 = Format(B, "#,###.00 $")
End Sub
Private Sub OptionButton3_Click()
A = Split(TextBox1, " ")
B = CDbl(A(0))
TextBox1 = Format(B, "#,###.00 €")
End Sub

 

[budapeshte]

teşekkür ederim ömer bey saolun.