فاصله بین حروف هنگام پیست شدن

[hr0694]

سلام

این کد برای اینه که وقتی حرفی داخل تکست1 نوشته شد خود بخود یک فاصله بعدش ایجاد شود برای نوشته حرف بعد اما هنگام پیست شدن حروف این عمل اجرا نمیشود من میخواهم هنگام پیست شدن حروف هم یک فاصله بین هر حروف باشد

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then Exit Sub
If Text1 > "" Then Text1.Text = Text1.Text + " "
Text1.SelStart = Len(Text1.Text)
End Sub

مثال
تکست1: نتلب
بعد از پیست شدن
تکست2: ن ت ل ب

[just4froum]

با سلام

اینم کدی که میخواستین

Private Sub Text1_Change()
Dim a as string, b as string * 1, c as string, x As Integer
a = Text1.Text
For x = 1 To Len(a)
b = Mid(a, x, 1)
If b <> " " Then c = c & b & " "
Next x
Text2.Text = c
End Sub




موفق باشید