جدا کردن حروف

[hr0694]

سلام
کد برنامه ای را میخام که وقتی در تکست1 سه حرف نوشتم حرف اولش در تکست2 نوشته شود حرف دومش در تکست3 نوشته شود و حرف سومش در تکست4 نوشته شود (هیچ دکمه کامندی هم روی فرم نباشد)

مثال
تکست1: ا ب ج
تکست2: ا
تکست3: ب
تکست4: ج

[butterfly8528]

سلام دوست عزیز .
Private Sub Text1_Change()

On Error Resume Next

Dim strA() As String

strA = Split(Text1.Text, " ")

Text2.Text = strA(0)
Text3.Text = strA(1)
Text4.Text = strA(2)

End Sub

موفق باشید :لبخندساده:.

[hr0694]

سلام
جناب butterfly8528 این کد شما در حالتی که فایل به Exe تبدیل شده کار میکند ولی وقتی برنامه را حالت عادی اجرا میکنم از این قسمت Text3.Text = strA(1) ارور میدهد چکار کنم این مشکل برطرف شود
ارور
RunTime Error 9:
subscript out of range

[ramzdar]

بجاش اینو بذار ببین بازم همون ارور رو میده یا نه
Text2.Text = Split(Text1.Text, " ")(0)
Text3.Text = Split(Text1.Text, " ")(1)
Text4.Text = Split(Text1.Text, " ")(2)

[hr0694]

سلام

من کد اینطوری نوشتم اما باز همان ارور را داد در حالت عادی که اجرا میکنم

Private Sub Text1_Change()
On Error Resume Next
Dim strA() As String
strA = Split(Text1.Text, " ")
Text2.Text = Split(Text1.Text, " ")(0)
Text3.Text = Split(Text1.Text, " ")(1)
Text4.Text = Split(Text1.Text, " ")(2)
End Sub

[ramzdar]

این قسمت رو حذف کن
Dim strA() As String
strA = Split(Text1.Text, " ")
در ضمن کد جناب butterfly8528 درسته و قاعدتاً نباید ارور بده
کد منم همونه
من کد جناب butterfly8528 رو امتحان هم کردم ولی مشکلی نداره
حالا کد منم تست کن ببینیم مشکل کجاست. اگه بازم اروری بود بگو

[hr0694]

اون قسمتها را هم حذف کردم اما باز همان ارور را داد

[ramzdar]

از کجاش ایراد میگیره؟

[M.T.P]

سلام
جناب butterfly8528 این کد شما در حالتی که فایل به Exe تبدیل شده کار میکند ولی وقتی برنامه را حالت عادی اجرا میکنم از این قسمت Text3.Text = strA(1) ارور میدهد چکار کنم این مشکل برطرف شود
ارور
RunTime Error 9:
subscript out of range

کد درسته
مشکل از تنظیمات مدیریت خطا در سیستم شماست.
شما از منوی Tools گزینه Options رو انتخاب کنید و از تب General گزینه Break in class Madule رو انتخاب کنید.

[_behnam_]

کدهای که دوستان گذاشتن در صورتی درست کار میکنه که شما بین حروف تکست باکس اول Space بزارید که بر اساس " " اسپلیت میشه
اما اگه Space نباشه باید از تابع Mid استفاده بشه

text2.text = mid(text1.text,1,1)
text3.text = mid(text1.text,2,1)
text4.text = mid(text1.text,3,1)