درج عبارت مورد نظر بعد از هر بار فشردن دکمه Enter در تکست باکس

[mohammadsaleh]

سلام دوستان
برای درج عبارت مورد نظر ( نقطه یا هر کاراکتر یا مجموعه ای از کارکترها) بعد از هر بار فشردن دکمه Enter در تکست باکس چکار باید کرد
به مثال زیر توجه کنید

سلام %0D%0A
طاعات قبول باشه%0D%0A
امشب تشریف بیاورید%0D%0A

کاربرد این شکل متن در ارسال پیامک است با متد http است. در حالت معمول اگر بخواهیم بدون این عبارت بفرستیم همه جملات پشت سرهم می آیند ولی اگر به این شکل نوشته شوند پیامک به شکل خط به خط دریافت می شود

البته از خاصیت keydown استفاده کردم جواب نگرفتم . منتظر نظرات دوستان هستم

[mazoolagh]

بعد از آپدیت textbox مقدارش رو با کد ویرایش کنین

[mohammadsaleh]

بعد از رویداد AFTER UPDATE وقتی از کد می خوام که عبارت رو اضافه کنه به درستی انجام نمیشه و مجددا به انتهای متن اضافه می کنه

[mazoolagh]

لطفا کدتون رو بگذارین ببینم اشکالش کجاست

[mohammadsaleh]

سلام دوستان
برای درج عبارت مورد نظر ( نقطه یا هر کاراکتر یا مجموعه ای از کارکترها) بعد از هر بار فشردن دکمه Enter در تکست باکس چکار باید کرد
به مثال زیر توجه کنید

سلام %0D%0A
طاعات قبول باشه%0D%0A
امشب تشریف بیاورید%0D%0A

کاربرد این شکل متن در ارسال پیامک است با متد http است. در حالت معمول اگر بخواهیم بدون این عبارت بفرستیم همه جملات پشت سرهم می آیند ولی اگر به این شکل نوشته شوند پیامک به شکل خط به خط دریافت می شود

البته از خاصیت keydown استفاده کردم جواب نگرفتم . منتظر نظرات دوستان هستم

سلام
خدمت شما

[mazoolagh]

همون replace جوابگو هست، مگر اینکه مورد خاصی بوده که متوجه نشده باشم.
هر چند که نیازی نبود، ولی به هر حال یک نمونه آماده کردم براتون که مطمئن بشم داستان رو گرفتم.

[mazoolagh]

Private Sub BTN1_Click()

Me.TB2 = Replace(Me.TB1, vbCrLf, "%0D%0A" & vbCrLf)

End Sub

1.PNG

[mazoolagh]

Private Sub BTN2_Click()

Me.TB2 = Replace(Me.TB1, vbCrLf, "%0D%0A")

End Sub

2.PNG

[mazoolagh]

برنامه نمونه

[mohammadsaleh]

سلام استاد
مثل همیشه صبورانه و با محبت زحمت می کشید. بی نهایت سپاس
فقط میتونم بگم یه دونه ای جناب mazoolagh