دو سؤال در مورد Text

[hr0694]

سلام
1- کد این برنامه را میخام که فاصله فقط قبل از حرف اول در تکست1 از بین برود و در تکست2 نوشته شود چون من یه برنامه نوشتم که قبل از حرف اول یک فاصله می افتد
مثال
تکست1 : م ن ت ا
تکست2: م ن ت ا

2- کد این برنامه را میخام که اگر داخل Text1 حرف یا حروفی یا عددی نوشته شد منظورم اینه اگه داخلش هر چیزی نوشته شد سپس داخل Text2 نوشته شود مثلا VB6

[MohammadGh2011]

سلام
دوست عزيز سوال دوم رو من اين جوري نوشتم، جور ديگه اي هم ميشه
سوال اولتون رو بيشتر توضيح بديد.
کد زير رو تو رويداد Change تکست باکس اول کپي کنيد.

If Text1.Text = Empty = False Then
Text2.Text = "vb6"
Else
Text2.Text = ""
End If

موفق باشيد.

[Veteran]

Text2 = Trim(Text1)

[محسن واژدی]

1- کد این برنامه را میخام که فاصله فقط قبل از حرف اول در تکست1 از بین برود و در تکست2 نوشته شود چون من یه برنامه نوشتم که قبل از حرف اول یک فاصله می افتد
مثال
تکست1 : م ن ت ا
تکست2: م ن ت ا


سلام علیکم
برای حذف کردن فاصله سمت چپ متن میتوانید از تابع زیر استفاده کنید:

Text2 = LTrim(Text1)


سوال شماره 2 هم آقای MohammadGh2011 در پست 2 پاسخ داده اند

موفق باشید