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

-السؤال الأول:
قمت بتصميم برنامج يحتوي على Textbox1 و Textbox2 واريد عند الكتابة في Textbox1 تظهر هذه الكتابة تلقائيا في Textbox2 بدون الضغط على أي زر

-السؤال الثاني:
كيفية جعل Textbox يقبل الحروف العربية فقط

-السؤال الثالث:
كيفية جعل Textbox يقبل الحروف الانجليزية فقط

-السؤال الرابع:
عند الكتابة في Textbox كيف يمكن تحويل الحرف الأول من الكلمة إلى حرف كبير تلقائيا

-السؤال الخامس:
قمت بتصميم برنامج يطلب من المستخدم ادخال الاسم العائلي والاسم الشخصي ورقم الهاتف قمت بربط هذاالبرنامج بقاعدة بيانات Access التي هي مربوطة بدورها مع ملف وورد عن طريق أداة في الوورد اسمها Mail Merge اريد كود عند ادخال البيانات والضغط على زر يتم طباعة ملف الوورد يحتوي على البيانات التي أدخلها المستخدم

وشكرا مسبقا على المساعدة
الرد
تم الشكر بواسطة:
#2
السلام عليكم
بالنسبة لل textbox2.text
اجعل الكود هكذا textbox2.text=textbox1.text
يجب ان يكون هذا الكود في حدث الصندوق الثاني
الرد
تم الشكر بواسطة: abdelvb
#3
(03-01-15, 01:12 AM)محمود اكرم كتب : السلام عليكم
بالنسبة لل textbox2.text
اجعل الكود هكذا textbox2.text=textbox1.text
يجب ان يكون هذا الكود في حدث الصندوق الثاني

اسف لم يعمل الكود
الرد
تم الشكر بواسطة:
#4
وعليكم السلام ورحمة الله وبركاتة ,

اخي الكريم بالنسبة للسؤال الاول الطريقة كالتالي

اضغط على Textbox1 مرتين او بالاصح في حدث TextChange

وضع هذا الكود

كود :
Textbox2.Text = Textbox1.Text

الكود يعمل 100%

الطلب الثاني والثالث لا اعلم آنتظر الاعضاء الآخرين

الطلب الرابع : اضغط على TextBox مرتين وضع به هذه الاكواد

كود :
       On Error Resume Next
       Dim upper As String = Nothing
       upper = TextBox1.Text.ElementAt(0).ToString.ToUpper
       TextBox1.Text = TextBox1.Text.Replace(TextBox1.Text.ElementAt(0), upper)
       TextBox1.Select(TextBox1.TextLength, 0)

ولا تنسى تغير اسم TextBox1 اذا كان اسمة غير عندك

بالنسبة للطلب الخامس انتظر باقي الاعضاء

ارجو ان اكون افدتك ولو بالقليل , تحياتي
الرد
تم الشكر بواسطة: abdelvb
#5
(03-01-15, 07:37 AM)undetected71 كتب : وعليكم السلام ورحمة الله وبركاتة ,

اخي الكريم بالنسبة للسؤال الاول الطريقة كالتالي

اضغط على Textbox1 مرتين او بالاصح في حدث TextChange

وضع هذا الكود


كود :
Textbox2.Text = Textbox1.Text

الكود يعمل 100%

الطلب الثاني والثالث لا اعلم آنتظر الاعضاء الآخرين

الطلب الرابع : اضغط على TextBox مرتين وضع به هذه الاكواد


كود :
       On Error Resume Next
       Dim upper As String = Nothing
       upper = TextBox1.Text.ElementAt(0).ToString.ToUpper
       TextBox1.Text = TextBox1.Text.Replace(TextBox1.Text.ElementAt(0), upper)
       TextBox1.Select(TextBox1.TextLength, 0)

ولا تنسى تغير اسم TextBox1 اذا كان اسمة غير عندك

بالنسبة للطلب الخامس انتظر باقي الاعضاء

ارجو ان اكون افدتك ولو بالقليل , تحياتي

شكرا الأكواد تعمل 100%
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  عمل مجموعة تحتوي علي اكتر من صنف makky 1 73 04-05-19, 03:49 AM
آخر رد: اسامه الهرماوي
  [VB.NET] سحب مجموعة صور بالاسكانر وحفظها في ملف PDF على الجهاز محمد المصري 7 901 15-04-19, 12:37 AM
آخر رد: khairallah
  المساعدة بعمل ريستور abdulla2 1 103 05-03-19, 01:18 AM
آخر رد: حريف برمجة
  رجاء المساعدة حول الكريستل ربورت محمد خيري 2 152 03-03-19, 10:29 PM
آخر رد: محمد خيري
  ارجو المساعدة مشروع عن الوزن المثالي Rodi001 7 7,625 13-02-19, 01:08 AM
آخر رد: مها القويفلي
  المساعدة في حل مشكلة الترقيم التسلسلي في الكريستال ريبورت ( حاجة غريبة حصلت معي ) جيولوجي مبتدئ 2 195 27-01-19, 12:09 PM
آخر رد: جيولوجي مبتدئ
  [VB.NET] برجاء المساعدة فى هذا الكود medhat_fouad 0 152 16-01-19, 02:10 PM
آخر رد: medhat_fouad
  ارجو المساعدة كيف يتم الحفظ والحذف لاكثر من جدول باستخدام DATA SET يوجد مشروع للتعديل abdullhadi999 6 339 16-01-19, 12:59 AM
آخر رد: EYADISMAIL
Question [نقاش] كيف اصنع قائمة تشغيل playlist لأداة Windows Media Player ؟ وما هي الأكواد ؟ Abdelrahman ElNawawy 6 305 20-12-18, 02:49 AM
آخر رد: elgokr
  مامشكلة جملة الإضافة sql أرجو المساعدة Elhatmi 2 229 11-12-18, 10:57 AM
آخر رد: Elhatmi

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


يقوم بقرائة الموضوع: