+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] استفسار :- بخصوص الاختصارات (/showthread.php?tid=26068)
الصفحات:
1
2
استفسار :- بخصوص الاختصارات - dubai.eig - 10-08-18
السلام عليكم ورحمة الله
عندي سؤال بخصوص الاختصارات
مثلا
عندي زر اذا ضغط عليه يرسل كلام في مربع ال
TEXTBOX
مثلا
hello mr ! good day
عند هذه العلامه ! يجب ان يطلع اسم الشخص الاسم موجود في textbox2
[attachment=19086]
[attachment=19087]
عندي كود بعد البحث بس طريقة العمل ما عرفت لها
كود :
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وهنا مثل مرفق
[attachment=19085]
بارك الله فيكم وشكرا
RE: استفسار :- بخصوص الاختصارات - Null - 10-08-18
هذا طريقة الاستبدال
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
TextBox2.Text = TextBox2.Text.Replace("!", Form2.TextBox1.Text)
End SubRE: استفسار :- بخصوص الاختصارات - dubai.eig - 10-08-18
(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
شكرا على الرد
طبقت بس عندما اضغط على الزر لا يعمل ما يطلع شي
RE: استفسار :- بخصوص الاختصارات - elgokr - 10-08-18
تفضل اخى الحبيب
ستجد الكود المستخدم داخل السورس
مرفق السورس + برنامج للاختبار
تحياتى لك
وتمنياتى لك التوفيق
RE: استفسار :- بخصوص الاختصارات - ابو روضة - 10-08-18
(10-08-18, 08:03 PM)elgokr كتب :تفضل اخى الحبيبستجد الكود المستخدم داخل السورس
مرفق السورس + برنامج للاختبار
تحياتى لكوتمنياتى لك التوفيق
اخى الجوكر ماشاء عليك انا متابعك من نص ساعة تقريبا حينما دخلت الموقع هنا
ومااشاء الله الله اكبر عليك كان البرمجة بالنسبة لك لعبة تسيرها كما تشاء...
ربنا يجزيك كل الخير والله انت " انسان "
RE: استفسار :- بخصوص الاختصارات - elgokr - 10-08-18
(10-08-18, 08:08 PM)ابو روضة كتب :(10-08-18, 08:03 PM)elgokr كتب :تفضل اخى الحبيبستجد الكود المستخدم داخل السورس
مرفق السورس + برنامج للاختبار
تحياتى لكوتمنياتى لك التوفيق
اخى الجوكر ماشاء عليك انا متابعك من نص ساعة تقريبا حينما دخلت الموقع هناومااشاء الله الله اكبر عليك كان البرمجة بالنسبة لك لعبة تسيرها كما تشاء...ربنا يجزيك كل الخير والله انت " انسان "
تسلم اخى ابو روضة
كلنا بشر اخى الحبيب وكل منا يحب مساعدة الغير
وانا اطلعت على موضوعك وساقوم بعمل له مشروع باذن الله
لكن قد اتركه لبعض الوقت حتى اتمكن ان اعمل عليه بدون اى تشتيت
الا اذا قام احد الاعضاء بالرد وسبق بحل المطلوب
تحياتى لك
وتمنياتى لك التوفيق
RE: استفسار :- بخصوص الاختصارات - dubai.eig - 10-08-18
(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 كتب :تفضل اخى الحبيبستجد الكود المستخدم داخل السورس
مرفق السورس + برنامج للاختبار
تحياتى لكوتمنياتى لك التوفيق
اخى الجوكر ماشاء عليك انا متابعك من نص ساعة تقريبا حينما دخلت الموقع هناومااشاء الله الله اكبر عليك كان البرمجة بالنسبة لك لعبة تسيرها كما تشاء...ربنا يجزيك كل الخير والله انت " انسان "
فعلا ما شاءالله تبارك الله ما شاءالله تبارك الله
RE: استفسار :- بخصوص الاختصارات - ابو روضة - 10-08-18
(10-08-18, 08:14 PM)elgokr كتب :(10-08-18, 08:08 PM)ابو روضة كتب :(10-08-18, 08:03 PM)elgokr كتب :تفضل اخى الحبيبستجد الكود المستخدم داخل السورس
مرفق السورس + برنامج للاختبار
تحياتى لكوتمنياتى لك التوفيق
اخى الجوكر ماشاء عليك انا متابعك من نص ساعة تقريبا حينما دخلت الموقع هناومااشاء الله الله اكبر عليك كان البرمجة بالنسبة لك لعبة تسيرها كما تشاء...ربنا يجزيك كل الخير والله انت " انسان "
تسلم اخى ابو روضةكلنا بشر اخى الحبيب وكل منا يحب مساعدة الغير
وانا اطلعت على موضوعك وساقوم بعمل له مشروع باذن الله
لكن قد اتركه لبعض الوقت حتى اتمكن ان اعمل عليه بدون اى تشتيتالا اذا قام احد الاعضاء بالرد وسبق بحل المطلوب
تحياتى لكوتمنياتى لك التوفيق
والله العظيم لم أقل كل هذا الكلام لآجل موضوعى وانا عارف اصلا انك لن تتركه لكن والله لا اقصد اطلاقا
RE: استفسار :- بخصوص الاختصارات - Null - 10-08-18
(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)RE: استفسار :- بخصوص الاختصارات - dubai.eig - 11-08-18
(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)
تسلم ايدك بارك الله فيك
ضبط والحمدالله