تصميم لوحة ادخال الارقام في مربع النص

[محب اوفيسينا]

الى عباقرة المنتدى الحبيب اريد تصميم لوحة ارقام  عند الضغط على الرقم 

 يتخزن في مربع النص مثل لوحة ارقام الكيبورد  فردي وجملة 

 

لوحة ارقام وحروف.rar

[Shivan Rekany]

8 ساعات مضت, محب اوفيسينا said:

الى عباقرة المنتدى الحبيب اريد تصميم لوحة ارقام  عند الضغط على الرقم 

 يتخزن في مربع النص مثل لوحة ارقام الكيبورد  فردي وجملة 

 

لوحة ارقام وحروف.rar

اتفضل
تم استخدام هذه الاكواد في نموذجك
 

Private Sub a2_Click()
    Me.Txt = Me.Txt & Me.a2.Caption
End Sub

Private Sub a3_Click()
    Me.Txt = Me.Txt & Me.a3.Caption
End Sub

Private Sub a4_Click()
    Me.Txt = Me.Txt & Me.a4.Caption
End Sub

Private Sub a5_Click()
    Me.Txt = Me.Txt & Me.a5.Caption
End Sub

Private Sub a6_Click()
    Me.Txt = Me.Txt & Me.a6.Caption
End Sub

Private Sub a7_Click()
    Me.Txt = Me.Txt & Me.a7.Caption
End Sub

Private Sub a8_GotFocus()
    Me.Txt = Me.Txt & Me.a8.Caption
End Sub

Private Sub a9_Click()
    Me.Txt = Me.Txt & Me.a9.Caption
End Sub

Private Sub أمر23_Click()
    Me.Txt = Me.Txt & Me.أمر23.Caption
End Sub

Private Sub أمر24_Click()
    Me.Txt = Me.Txt & Me.أمر24.Caption
End Sub

Private Sub أمر25_Click()
    Me.Txt = ""
End Sub

Private Sub أمر26_Click()
    Me.Txt = Me.Txt & Me.أمر26.Caption
End Sub

 

لوحة ارقام وحروف.rar

[محب اوفيسينا]

صراحة اعجز عن الشكر بكل معانية ومهما شكرتك لا اوفي بحقك .. ولكن شكرا لك من كل قلبي 

لكن فيه طلب صغير جدا اريد  اضافة على النموذج زر تبديل لغة الارقام 

[محب اوفيسينا]

ايضا في مشكلة انا عملت اكثر من مربع نص وعند وضع المؤشر في المربعات الاخرى يضع القيمة المدخلة في نفس مربع النص الاول

[النجاشي]

10 ساعات مضت, محب اوفيسينا said:

صراحة اعجز عن الشكر بكل معانية ومهما شكرتك لا اوفي بحقك .. ولكن شكرا لك من كل قلبي 

لكن فيه طلب صغير جدا اريد  اضافة على النموذج زر تبديل لغة الارقام 

يستاهل الاستاذ  ابو محمد ربنا يعطيه الصحه دوما وهو يقدم الخير 

[Shivan Rekany]

4 ساعات مضت, محب اوفيسينا said:

لكن فيه طلب صغير جدا اريد  اضافة على النموذج زر تبديل لغة الارقام

اعمل زر واحد واکتب عنوانه اي كابشنه (تبديل الى اللغة العربية)

واستخدم هذا الكود
 

Private Sub Command54_Click()
    If Me.Command54.Caption = "تبديل الى اللغة العربية" Then
            Me.Txt.NumeralShapes = 2
            Me.Command54.Caption = "تبديل الى اللغة الانكليزية"
        ElseIf Me.Command54.Caption = "تبديل الى اللغة الانكليزية" Then
            Me.Txt.NumeralShapes = 1
            Me.Command54.Caption = "تبديل الى اللغة العربية"
    End If
    
End Sub

 

[محب اوفيسينا]

شكرا شكرا

لكن هناك مشكلة انا عملت اكثر من مربع نص وعند وضع المؤشر في المربعات الاخرى يضع القيمة المدخلة في نفس مربع النص الاول

اريد عند وضع المؤشر في اي خانة ينفذ الامر المطلوب ويرسل  القيمة الى مربع النص

[ًعبد من عباد الله]

أريد نفس المطلوب الأخير أيضاً