Vb6 Text başına "0" eklemek

[EMG81]

Merhaba,

C#ta ağ bağlantısı sorunlarını çözemeyince ve aynı zamanda vb6 ile ağ bağlantısı kurmayı başarınca programın temellerini vb6 üzerine attım. Çok fazla basic bilmediğimden biraz sorun yaşıyorum. A textbox ının içerisinin herzaman 4 karakter olmasını atıyorum içerisindeki rakam 1 ise 0001, 45 ise 0045, 456 ise 0456, 1789 ise 1789 şeklinde dönüşmesini istiyorum.

Yaklaşık 10 ile 15 program satırında bu işi halledebiliyorum ama daha kısa yolu varsa bilmek istiyorum.

[iyildirim]

text4 = right("0000"+trim(text), 4)
veya
text4 = right("0000"+trim(numval), 4)

[EMG81]

Abi gerçekten yıldırım gibisin

Yalnız verdiğin örneklerin 2 side textbox içeriğini 0000 a bastırıyor. Yani text içerisine hangi sayıyı girersem gireyim sonuç hep 0000

[iyildirim]

Dediğin gibi bir şey olmaması lazım
+ yerine &  denermisin

text4 = right("0000" & trim(text), 4)

[EMG81]

stringval = right("0000" + trim(numericval) ,4)
label1.text = right("0000" + trim(val(label1.text)) ,4)


İle hallettim


Edit:

text4 = right("0000" & trim(text), 4) ilede durum aynı. Text e girdiğim rakamı 0000 ile eziyor.

[muhittin_kaplan]

Dim Sayi As Integer = 11
Me.TextBox1.Text = Format(Sayi, "0000")

vb60 yüklü değil ama olması gerek

[agora_meyhanesi42]

textboxun format isimli bir özelliği var bu özellik istediğin kadar karakteri istediğin formatta yazmana müsade eder. Bkz format vb 6.0 google özür dilerim arkadaş yukarda zaten söylemiş