26-12-15, 12:13 AM
(آخر تعديل لهذه المشاركة : 26-12-15, 12:14 AM {2} بواسطة Microformt.)
(25-12-15, 09:41 PM)حريف برمجة كتب : وعليكم السلام ورحمة الله وبركاتهاخي العزيز
ضع تكست بوكس في الفورم ولنفرض اسمه Text1
وضع هذا الكود علماً بان مقدار الزيادة 1
كود :
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text1.Text = Val(Text1.Text) + 1
End If
End Sub
إجابة غير موفقه ؟؟
نامل الاجابة على السوال كامل وليس جز من السوال
إذا ضاقت بك الأحوال يوماً فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
