Visual Basic 6.0 MaskEdBox Fiyat Alanı Hk.

16-10-2010, 12:26:56

Merhaba. Visual Basic 6.0da MaskEdBox veya başka birşey kullanarak bir fiyat alanı yapmak istiyorum. MaskEdBox kullanırsam yalnızca belirlediğim hanede sayı girilebiliyor. Örneğin mask özelliğine ##,## TL. yazıyorum. Kullanıcı sadece 12,34 TL. girebiliyor. Ama benim istediğim şu; kullanıcı rakamları girdikçe nokta ve virgülleri otomatik ayarlasın. Bunu nasıl yapabilirim?

17-10-2010, 15:31:03

#2

mamicikaTR

TextBox'ın keypress eventini kullanacaksın.
Kaç tane rakam olduğunu kontrol edeceksin; eğer ikiden fazlaysa ikiden sonra virgül ekleteceksin.

17-10-2010, 20:48:49

#3

rockhll

Peki binli milyonlu milyarlı rakamların kontrolünü nasıl yapıcam? Tek tek mi?

17-10-2010, 20:58:39

#4

~~spider58~~

Üyeliği durduruldu

text1.text = format(text1.text,"###,###")

format fonksiyonunu kullanacaksın. aşağıdaki örnekleri inceleyebilirsin. Bu komutu text1 in change olayına yazacaksın

Alıntı

Dim result As Single
result = 3456.7
Label5.Caption = Format(result, "00000.00") 'displays: 03456.70
Label5.Caption = Format(result, "#####.##") 'displays: 3456.7
Label5.Caption = Format(result, "##,##0.00") 'displays: 3,456.70
Label5.Caption = Format(result, "$##,##0.00") 'displays: $3,456.70