Talk It

[aryajonbesh]

با سلام خدمت دوستان عزیز
من عضو جدید سایت شما هستم و یک سوال در بخشی نامربوط طرح کرده بودم که میخواستم اون سوال رو مجدداً در این بخش مطرح کنم:
من مدتی هست که پروژه های رو شروع کردم . من در این پروژه نیاز دارم تا تمامی کلمات داخل TextBoxرو یکی،یکی Selectکنم یا بقول معروف هایلایت کنم ، مثل برنامه Talk It که در اون برای خواندن یک جمله ابتدا تمامی کلمات تشکیل دهنده جمله یکی،یکی Selectیا هایلایت میشوند.

با تشکر از دوستان بسیار عزیز:چشمک:

[Payman62]

خوب کاری نداره که. از اول که شروع میکنی محل اولین space رو پیدا کن و Text1.SelLength رو بکن برابر اون عدد و بعد Text1.SelText رو بخون. بعدش محل اولین space رو بریز تو Text1.SelStart و محل دومین space رو پیدا کن و ... اینارو بذار تو حلقه که خودش بکنه.

[hamed_F]

در تکمیل فرمایشات دوست عزیزم payaman62 نیز باید ادامه دهم که در صورتی که نیاز به جداسازی و نگهداری هر قسمت هایلایت شده نیز باشد کافیه از تکه برنامه زیر استفاده کنی
Dim t() As String

t = Split(Text1.Text, " ")

For a = 0 To UBound(t)
MsgBox (t(a))
Next

[بابک زواری]

من بعد عنوان تاپیک ها رو هم درست انتخاب کن و گرنه تاپیکت حذف میشه