Vb6 string işleme

[Ramiz]

Selam

text1 diye bir text box ve command1 diyede bir butonumuz olduğunu var sayalım. İçerisine alabileceği max karakter sayısını 30 olarak belirleyelim.

Text1 in içersine,

"Pic Proje" yazdığımızı var sayalım. Görüldüğü üzere text1 içersinde 9 karakterlik bir string yazdık. Command1 e bastığımda Text1 in içersinin şuna dönüşmesini istiyorum.
"Pic Proje                    "

Yani X kadar uzunukta string girdim. Command1 içersindeki kodlar bunu 30 karaktere tamamladılar.. (Girdiğim karakterlerin sonrasını boşluk ile tamamladık)


Şimdi gelelim asıl meseleye,

Ben bu işi, text in lenght ini öğrenip, ardından for döngüsü ile yapıyorum ama bence hem hantal oluyor ve amatör bir çözüm olmuş oluyor.



Vb6 da bu işi daha düzgün bir şekilde, tek satırda halleden kod varmıdır?

[magnetron]

space(n) diye bir fonksiyon var

n tane boşluk ekliyor

sanırım işine yarar

[iyildirim]

str = "Pic Proje"
str= left(str & space (30), 30)

str = "Pic Proje"
str= left(str & string (" ", 30), 30)

[Ramiz]

Aradığım buydu..

iyildirim

Senin bahsettiğin gibi yaptım..