أكيف يتم إضافة الرمز % بعد كل كلمة في مربع النص؟

بدأه السندبااد في 22 أبريل 2009 · 2 رد · 466 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات

مشاركة: واتساب X فيسبوك تيليجرام

#122 أبريل 2009 في 22:29 صاحب الموضوع

السلام عليكم ورحمة الله وبركاته

عندي مربع نص تكست بوكس

عند إدخال أي كلمة والضغط على زر موافق أريد أن يتم إضافة إشارة % بعدها

مثلاُ كتبت:

الله الرحيم

يحولها فتصبح: الله%الرحيم

ومثلا كتبت: بسم الله الرحمن الرحيم

يحولها فتصبح بسم%الله%الرحمن%الرحيم

يضع بعد كل كلمة الرمز %

ويكون ذلك كما هوباالمثال دون فواصل

فأرجو المساعدة في ذلك

تم تعديل هذه المشاركة بواسطة السندبااد في 22 أبريل 2009 في 22:30

فاعلم أنه لا إله إلا الله

#222 أبريل 2009 في 23:24

السلام عليكم...

أسهل طريقة هي استعمال الدالة Replace لوضع أي رمز تريده بدل الفراغ:

Private Sub Command1_Click()
Dim Txt As String
Txt = Text1.Text
If Txt <> "" Then
Txt = Replace(Txt, " ", "%")
Text1.Text = Txt
' إذا أردت إظهار علامة % حتى في نهاية النص فاستخدم السطر التالي بدل السطر السابق
'Text1.Text = Txt & "%"
End If
End Sub

نرجو الاستفادة و السلام.

وَ قُلِ اعْمَلُوا فَسَيَرَى اللهُ عَمَلَكُمْ وَ رَسُولُهُ وَ الْمُؤْمِنُونَ

صدق الله العظيم

#322 أبريل 2009 في 23:50

أورثك الله تعالى وأهلك الفردوس الأعلى وأزاح عنك كل هم وغم

هذا ما أريده فعلاً

تحية لك أيها المبدع

فاعلم أنه لا إله إلا الله

عدد الزوار حالياً