استفسار :- بخصوص الاختصارات

تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] استفسار :- بخصوص الاختصارات
#1
السلام عليكم ورحمة الله

عندي سؤال بخصوص الاختصارات

مثلا
عندي زر اذا ضغط عليه يرسل كلام في مربع ال
TEXTBOX

مثلا

hello mr ! good day

عند هذه العلامه !  يجب ان يطلع اسم الشخص الاسم موجود في textbox2  

   

   

عندي كود بعد البحث بس طريقة العمل ما عرفت لها

كود :
  Dim strOneCharacter As Char

       Select Case strOneCharacter
           Case "!"
               strOneCharacter = TextBox3.Text

           Case "@"
               strOneCharacter = TextBox1.Text
           Case "#"
               strOneCharacter = TextBox4.Text

           Case "$"
               strOneCharacter = TextBox5.Text

           Case "*"
       End Select
   End Sub


وهنا مثل مرفق

.zip   WindowsApplication1.zip (الحجم : 27.3 ك ب / التحميلات : 8)

بارك الله فيكم وشكرا
الرد
تم الشكر بواسطة:
#2
هذا طريقة الاستبدال
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   TextBox2.Text = TextBox2.Text.Replace("!", Form2.TextBox1.Text)
End Sub
وطبق نفس الطريقة على بقية الازارير
الرد
تم الشكر بواسطة: dubai.eig , elgokr
#3
(10-08-18, 07:37 PM)Null كتب : هذا طريقة الاستبدال
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   TextBox2.Text = TextBox2.Text.Replace("!", Form2.TextBox1.Text)
End Sub
وطبق نفس الطريقة على بقية الازارير

شكرا على الرد 

طبقت بس عندما اضغط على الزر لا يعمل ما يطلع شي
الرد
تم الشكر بواسطة:
#4
تفضل اخى الحبيب
ستجد الكود المستخدم داخل السورس 

مرفق السورس + برنامج للاختبار

تحياتى لك
وتمنياتى لك التوفيق


الملفات المرفقة
.zip   Pro.zip (الحجم : 9.07 ك ب / التحميلات : 5)
.zip   WindowsApplication1.zip (الحجم : 32.2 ك ب / التحميلات : 4)
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }

ساهم دائماً فى تقديم   لكل من يقوم بالمساهمة
فى حل اى مشكلة او استفسار لديك مع اضافة رد بشكره ودعوة له
فالجميع هنا يعمل على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
الرد
تم الشكر بواسطة: ابو روضة , dubai.eig
#5
(10-08-18, 08:03 PM)elgokr كتب :
تفضل اخى الحبيب
ستجد الكود المستخدم داخل السورس 

مرفق السورس + برنامج للاختبار

تحياتى لك
وتمنياتى لك التوفيق

اخى الجوكر ماشاء عليك انا متابعك من نص ساعة تقريبا حينما دخلت الموقع هنا
ومااشاء الله الله اكبر عليك كان البرمجة بالنسبة لك لعبة تسيرها كما تشاء...
ربنا يجزيك كل الخير والله انت " انسان "
الرد
تم الشكر بواسطة: elgokr , elgokr
#6
(10-08-18, 08:08 PM)ابو روضة كتب :
(10-08-18, 08:03 PM)elgokr كتب :
تفضل اخى الحبيب
ستجد الكود المستخدم داخل السورس 

مرفق السورس + برنامج للاختبار

تحياتى لك
وتمنياتى لك التوفيق

اخى الجوكر ماشاء عليك انا متابعك من نص ساعة تقريبا حينما دخلت الموقع هنا
ومااشاء الله الله اكبر عليك كان البرمجة بالنسبة لك لعبة تسيرها كما تشاء...
ربنا يجزيك كل الخير والله انت " انسان "


تسلم اخى ابو روضة
كلنا بشر اخى الحبيب وكل منا يحب مساعدة الغير

وانا اطلعت على موضوعك وساقوم بعمل له مشروع باذن الله

لكن قد اتركه لبعض الوقت حتى اتمكن ان اعمل عليه بدون اى تشتيت
الا اذا قام احد الاعضاء بالرد وسبق بحل المطلوب

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }

ساهم دائماً فى تقديم   لكل من يقوم بالمساهمة
فى حل اى مشكلة او استفسار لديك مع اضافة رد بشكره ودعوة له
فالجميع هنا يعمل على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
الرد
تم الشكر بواسطة: ابو روضة , dubai.eig , dubai.eig
#7
(10-08-18, 08:03 PM)elgokr كتب :
تفضل اخى الحبيب
ستجد الكود المستخدم داخل السورس 

مرفق السورس + برنامج للاختبار

تحياتى لك
وتمنياتى لك التوفيق


جزاك الله الف خير 

في ميزان اعمالك

دائما نستفيد منك استاذي الكريم

ضبط معاي والحمدالله

بس سؤال اخير

في حالت وجود اكثر من اختصار في جمله واحده

انا جربت كذا 
كود :
TextBox2.Text = TextBox2.Text.Replace("!", "#", "$", "@", TextBox3.Text)


بس ما نفع

افدني بارك الله فيك
Rolleyes

(10-08-18, 08:08 PM)ابو روضة كتب :
(10-08-18, 08:03 PM)elgokr كتب :
تفضل اخى الحبيب
ستجد الكود المستخدم داخل السورس 

مرفق السورس + برنامج للاختبار

تحياتى لك
وتمنياتى لك التوفيق

اخى الجوكر ماشاء عليك انا متابعك من نص ساعة تقريبا حينما دخلت الموقع هنا
ومااشاء الله الله اكبر عليك كان البرمجة بالنسبة لك لعبة تسيرها كما تشاء...
ربنا يجزيك كل الخير والله انت " انسان "


فعلا ما شاءالله تبارك الله ما شاءالله تبارك الله
الرد
تم الشكر بواسطة:
#8
(10-08-18, 08:14 PM)elgokr كتب :
(10-08-18, 08:08 PM)ابو روضة كتب :
(10-08-18, 08:03 PM)elgokr كتب :
تفضل اخى الحبيب
ستجد الكود المستخدم داخل السورس 

مرفق السورس + برنامج للاختبار

تحياتى لك
وتمنياتى لك التوفيق

اخى الجوكر ماشاء عليك انا متابعك من نص ساعة تقريبا حينما دخلت الموقع هنا
ومااشاء الله الله اكبر عليك كان البرمجة بالنسبة لك لعبة تسيرها كما تشاء...
ربنا يجزيك كل الخير والله انت " انسان "


تسلم اخى ابو روضة
كلنا بشر اخى الحبيب وكل منا يحب مساعدة الغير

وانا اطلعت على موضوعك وساقوم بعمل له مشروع باذن الله

لكن قد اتركه لبعض الوقت حتى اتمكن ان اعمل عليه بدون اى تشتيت
الا اذا قام احد الاعضاء بالرد وسبق بحل المطلوب

تحياتى لك
وتمنياتى لك التوفيق

والله العظيم لم أقل كل هذا الكلام لآجل موضوعى وانا عارف اصلا انك لن تتركه لكن والله لا اقصد اطلاقا
الرد
تم الشكر بواسطة:
#9
(10-08-18, 08:20 PM)dubai.eig كتب : في حالت وجود اكثر من اختصار في جمله واحده

انا جربت كذا 
كود :
TextBox2.Text = TextBox2.Text.Replace("!", "#", "$", "@", TextBox3.Text)


بس ما نفع

افدني بارك الله فيك
Rolleyes 

كود :
TextBox2.Text = TextBox2.Text.
   Replace("!", TextBox3.Text).
   Replace("#", TextBox4.Text).
   Replace("$", TextBox5.Text).
   Replace("@", TextBox6.Text)

أو
كود :
TextBox2.Text = TextBox2.Text.Replace("!", TextBox3.Text)
TextBox2.Text = TextBox2.Text.Replace("#", TextBox4.Text)
TextBox2.Text = TextBox2.Text.Replace("$", TextBox5.Text)
TextBox2.Text = TextBox2.Text.Replace("#", TextBox6.Text)
الرد
تم الشكر بواسطة: dubai.eig
#10
(10-08-18, 08:51 PM)Null كتب :
(10-08-18, 08:20 PM)dubai.eig كتب : في حالت وجود اكثر من اختصار في جمله واحده

انا جربت كذا 
كود :
TextBox2.Text = TextBox2.Text.Replace("!", "#", "$", "@", TextBox3.Text)


بس ما نفع

افدني بارك الله فيك
Rolleyes 

كود :
TextBox2.Text = TextBox2.Text.
   Replace("!", TextBox3.Text).
   Replace("#", TextBox4.Text).
   Replace("$", TextBox5.Text).
   Replace("@", TextBox6.Text)

أو
كود :
TextBox2.Text = TextBox2.Text.Replace("!", TextBox3.Text)
TextBox2.Text = TextBox2.Text.Replace("#", TextBox4.Text)
TextBox2.Text = TextBox2.Text.Replace("$", TextBox5.Text)
TextBox2.Text = TextBox2.Text.Replace("#", TextBox6.Text)

تسلم ايدك بارك الله فيك

ضبط والحمدالله  Rolleyes
الرد
تم الشكر بواسطة: Null , Null


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] استفسار :- SlimDX بعد تحويل المشروع الى ملف EXE dubai.eig 7 63 أمس, 09:51 PM
آخر رد: elgokr
  بخصوص ربط الـ Sql Server بـ فيجوال بيسك mostafa hasanein 1 24 أمس, 10:53 AM
آخر رد: elgokr
  [VB.NET] استفسار :- بخصوص قراءة الصوت من الجهاز dubai.eig 0 48 11-08-18, 06:17 PM
آخر رد: dubai.eig
  [VB.NET] استفسار :- بخصوص _KeyDown dubai.eig 4 63 09-08-18, 10:22 PM
آخر رد: elgokr
  [VB.NET] استفسار فى الكريستال ريبورت lysalh65@gmail.com 8 146 08-08-18, 11:29 PM
آخر رد: lysalh65@gmail.com
  سؤال بخصوص القريد فيو نور الهدى الهدى 6 95 08-08-18, 01:34 PM
آخر رد: محمد كريّم
  مساعده بخصوص طباعه داتا قريد فراس محي 4 95 01-08-18, 11:28 AM
آخر رد: فراس محي
  [VB.NET] استفسار :- بخصوص ارسال Beep dubai.eig 17 426 01-08-18, 01:34 AM
آخر رد: elgokr
  [VB.NET] استفسار :- اضهار معلومات تظهر مع الماوس dubai.eig 5 141 26-07-18, 12:14 AM
آخر رد: dubai.eig
  [VB.NET] استفسار :- بخصوص التوقيت العالمي dubai.eig 6 98 20-07-18, 02:28 AM
آخر رد: elgokr

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم