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



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


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