[حريف برمجة]

وعليكم السلام ورحمة الله وبركاته

ضع تكست بوكس في الفورم ولنفرض اسمه Text1

وضع هذا الكود علماً بان مقدار الزيادة 1

كود :

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text1.Text = Val(Text1.Text) + 1
End If
End Sub