تقييم الموضوع :
  • 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%
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Thumbs Up برنامج إدارة الجمعيات الخيرية مفتوح المصدر... الرجاء المساعدة Arabia 42 1,318 أمس, 08:09 PM
آخر رد: tryold
  ارجو المساعدة في كود VB.NET 7 111 16-11-16, 03:20 AM
آخر رد: أبو عمر
  كيف يمكن اضافة مجموعة حقول الي datagridview والتعديل عليها مباشرتا dark1459 2 71 15-11-16, 10:30 PM
آخر رد: السرور
Exclamation الرجاء المساعدة : كيف اخفى او اشفر كلمة السر لقاعدة بيانات من ملف App.config noway 2 92 28-10-16, 07:58 PM
آخر رد: noway
Lightbulb المساعدة في معرفة طريقة كتابة الأكواد بشكل صحيح ... Arabia 0 73 26-10-16, 03:18 PM
آخر رد: Arabia
  [سؤال] أريد أن أصنع برنامج يمثل الدوال أرجو المساعدة Bettayeb 4 404 20-10-16, 10:54 PM
آخر رد: Bettayeb
  [VB.NET] رجاء المساعدة:سؤالي عن التقارير في الفيجوال بيسك دوت نت Asmaa adel 2 114 20-10-16, 09:41 AM
آخر رد: Asmaa adel
Information المساعدة في كيفية : التحديد في الداتاقريد ... Arabia 4 155 18-10-16, 10:50 AM
آخر رد: Arabia
  [سؤال] رجاء المساعدة البرنامج لا يعمل تحديث للبيانات Asmaa adel 3 162 16-10-16, 09:48 AM
آخر رد: Asmaa adel
Information المساعدة في طريقة عمل سجل تتبع لجميع الإدخالات التي قام بها المستخدمين . Arabia 2 182 14-10-16, 03:37 PM
آخر رد: Arabia

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


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