سوال: درج عبارت مورد نظر بعد از هر بار فشردن دکمه Enter در تکست باکس [بایگانی]

mohammadsaleh

دوشنبه 08 اردیبهشت 1399, 17:39 عصر

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

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

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

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

mazoolagh

سه شنبه 09 اردیبهشت 1399, 13:30 عصر

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

mohammadsaleh

چهارشنبه 10 اردیبهشت 1399, 15:32 عصر

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

mazoolagh

پنج شنبه 11 اردیبهشت 1399, 12:13 عصر

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

mohammadsaleh

پنج شنبه 11 اردیبهشت 1399, 17:29 عصر

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

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

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

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

سلام
خدمت شما

mazoolagh

شنبه 13 اردیبهشت 1399, 11:06 صبح

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

mazoolagh

شنبه 13 اردیبهشت 1399, 11:08 صبح

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

151660

mazoolagh

شنبه 13 اردیبهشت 1399, 11:09 صبح

Private Sub BTN2_Click()
Me.TB2 = Replace(Me.TB1, vbCrLf, "%0D%0A")
End Sub

151661

mazoolagh

شنبه 13 اردیبهشت 1399, 11:10 صبح

برنامه نمونه

mohammadsaleh

شنبه 13 اردیبهشت 1399, 12:15 عصر

سلام استاد
مثل همیشه صبورانه و با محبت زحمت می کشید. بی نهایت سپاس
فقط میتونم بگم یه دونه ای جناب mazoolagh (https://barnamenevis.org/member.php?9893-mazoolagh)