المشاركات : 523
المواضيع 178
الإنتساب : Mar 2016
السمعة :
19
الشكر: 647
تم شكره 255 مرات في 168 مشاركات
البلد:
السلام عليكم ورحمة الله
عندي سؤال بخصوص الاختصارات
مثلا
عندي زر اذا ضغط عليه يرسل كلام في مربع ال
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
وهنا مثل مرفق
WindowsApplication1.zip (الحجم : 27.3 ك ب / التحميلات : 10)
بارك الله فيكم وشكرا
المشاركات : 25
المواضيع 0
الإنتساب : Aug 2018
السمعة :
4
الشكر: 74
تم شكره 61 مرات في 32 مشاركات
10-08-18, 07:37 PM
(آخر تعديل لهذه المشاركة : 10-08-18, 07:39 PM {2} بواسطة Null .)
هذا طريقة الاستبدال
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
TextBox2.Text = TextBox2.Text.Replace("!", Form2.TextBox1.Text)
End Sub
وطبق نفس الطريقة على بقية الازارير
المشاركات : 523
المواضيع 178
الإنتساب : Mar 2016
السمعة :
19
الشكر: 647
تم شكره 255 مرات في 168 مشاركات
البلد:
(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
وطبق نفس الطريقة على بقية الازارير
شكرا على الرد
طبقت بس عندما اضغط على الزر لا يعمل ما يطلع شي
المشاركات : 3,816
المواضيع 36
الإنتساب : Mar 2014
السمعة :
707
الشكر: 7238
تم شكره 6580 مرات في 3255 مشاركات
تفضل اخى الحبيب
ستجد الكود المستخدم داخل السورس
مرفق السورس + برنامج للاختبار
تحياتى لك
وتمنياتى لك التوفيق
الملفات المرفقة
Pro.zip (الحجم : 9.07 ك ب / التحميلات : 7)
WindowsApplication1.zip (الحجم : 32.2 ك ب / التحميلات : 6)
المشاركات : 1,301
المواضيع 278
الإنتساب : Apr 2016
السمعة :
251
الشكر: 2359
تم شكره 2112 مرات في 961 مشاركات
البلد:
(10-08-18, 08:03 PM) elgokr كتب : تفضل اخى الحبيب
ستجد الكود المستخدم داخل السورس
مرفق السورس + برنامج للاختبار
تحياتى لك
وتمنياتى لك التوفيق
اخى الجوكر ماشاء عليك انا متابعك من نص ساعة تقريبا حينما دخلت الموقع هنا
ومااشاء الله الله اكبر عليك كان البرمجة بالنسبة لك لعبة تسيرها كما تشاء...
ربنا يجزيك كل الخير والله انت " انسان "
المشاركات : 3,816
المواضيع 36
الإنتساب : Mar 2014
السمعة :
707
الشكر: 7238
تم شكره 6580 مرات في 3255 مشاركات
(10-08-18, 08:08 PM) ابو روضة كتب : (10-08-18, 08:03 PM) elgokr كتب : تفضل اخى الحبيب
ستجد الكود المستخدم داخل السورس
مرفق السورس + برنامج للاختبار
تحياتى لك
وتمنياتى لك التوفيق
اخى الجوكر ماشاء عليك انا متابعك من نص ساعة تقريبا حينما دخلت الموقع هنا
ومااشاء الله الله اكبر عليك كان البرمجة بالنسبة لك لعبة تسيرها كما تشاء...
ربنا يجزيك كل الخير والله انت " انسان "
تسلم اخى ابو روضة
كلنا بشر اخى الحبيب وكل منا يحب مساعدة الغير
وانا اطلعت على موضوعك وساقوم بعمل له مشروع باذن الله
لكن قد اتركه لبعض الوقت حتى اتمكن ان اعمل عليه بدون اى تشتيت
الا اذا قام احد الاعضاء بالرد وسبق بحل المطلوب
تحياتى لك
وتمنياتى لك التوفيق
المشاركات : 523
المواضيع 178
الإنتساب : Mar 2016
السمعة :
19
الشكر: 647
تم شكره 255 مرات في 168 مشاركات
البلد:
10-08-18, 08:20 PM
(آخر تعديل لهذه المشاركة : 10-08-18, 08:21 PM {2} بواسطة dubai.eig .)
(10-08-18, 08:03 PM) elgokr كتب : تفضل اخى الحبيب
ستجد الكود المستخدم داخل السورس
مرفق السورس + برنامج للاختبار
تحياتى لك
وتمنياتى لك التوفيق
جزاك الله الف خير
في ميزان اعمالك
دائما نستفيد منك استاذي الكريم
ضبط معاي والحمدالله
بس سؤال اخير
في حالت وجود اكثر من اختصار في جمله واحده
انا جربت كذا
كود :
TextBox2.Text = TextBox2.Text.Replace("!", "#", "$", "@", TextBox3.Text)
بس ما نفع
افدني بارك الله فيك
(10-08-18, 08:08 PM) ابو روضة كتب : (10-08-18, 08:03 PM) elgokr كتب : تفضل اخى الحبيب
ستجد الكود المستخدم داخل السورس
مرفق السورس + برنامج للاختبار
تحياتى لك
وتمنياتى لك التوفيق
اخى الجوكر ماشاء عليك انا متابعك من نص ساعة تقريبا حينما دخلت الموقع هنا
ومااشاء الله الله اكبر عليك كان البرمجة بالنسبة لك لعبة تسيرها كما تشاء...
ربنا يجزيك كل الخير والله انت " انسان "
فعلا ما شاءالله تبارك الله ما شاءالله تبارك الله
المشاركات : 1,301
المواضيع 278
الإنتساب : Apr 2016
السمعة :
251
الشكر: 2359
تم شكره 2112 مرات في 961 مشاركات
البلد:
(10-08-18, 08:14 PM) elgokr كتب : (10-08-18, 08:08 PM) ابو روضة كتب : (10-08-18, 08:03 PM) elgokr كتب : تفضل اخى الحبيب
ستجد الكود المستخدم داخل السورس
مرفق السورس + برنامج للاختبار
تحياتى لك
وتمنياتى لك التوفيق
اخى الجوكر ماشاء عليك انا متابعك من نص ساعة تقريبا حينما دخلت الموقع هنا
ومااشاء الله الله اكبر عليك كان البرمجة بالنسبة لك لعبة تسيرها كما تشاء...
ربنا يجزيك كل الخير والله انت " انسان "
تسلم اخى ابو روضة
كلنا بشر اخى الحبيب وكل منا يحب مساعدة الغير
وانا اطلعت على موضوعك وساقوم بعمل له مشروع باذن الله
لكن قد اتركه لبعض الوقت حتى اتمكن ان اعمل عليه بدون اى تشتيت
الا اذا قام احد الاعضاء بالرد وسبق بحل المطلوب
تحياتى لك
وتمنياتى لك التوفيق
والله العظيم لم أقل كل هذا الكلام لآجل موضوعى وانا عارف اصلا انك لن تتركه لكن والله لا اقصد اطلاقا
المشاركات : 25
المواضيع 0
الإنتساب : Aug 2018
السمعة :
4
الشكر: 74
تم شكره 61 مرات في 32 مشاركات
10-08-18, 08:51 PM
(آخر تعديل لهذه المشاركة : 10-08-18, 09:05 PM {2} بواسطة Null .)
(10-08-18, 08:20 PM) dubai.eig كتب : في حالت وجود اكثر من اختصار في جمله واحده
انا جربت كذا
كود :
TextBox2.Text = TextBox2.Text.Replace("!", "#", "$", "@", TextBox3.Text)
بس ما نفع
افدني بارك الله فيك
كود :
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)
المشاركات : 523
المواضيع 178
الإنتساب : Mar 2016
السمعة :
19
الشكر: 647
تم شكره 255 مرات في 168 مشاركات
البلد:
(10-08-18, 08:51 PM) Null كتب : (10-08-18, 08:20 PM) dubai.eig كتب : في حالت وجود اكثر من اختصار في جمله واحده
انا جربت كذا
كود :
TextBox2.Text = TextBox2.Text.Replace("!", "#", "$", "@", TextBox3.Text)
بس ما نفع
افدني بارك الله فيك
كود :
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)
تسلم ايدك بارك الله فيك
ضبط والحمدالله