جزاك الله خيرا وماقصرت
هذا الكود بعد اضافة اجابتك اخي وتعديلك الثمين
-- في حدث كي برس
If Asc(e.KeyChar) <> 13 Then
e.Handled = True
ElseIf Asc(e.KeyChar) = 13 Then
Text1.Focus()
End If
ومعناه انه اذا ادخل المستخدم اي شي في التكست لايقبل
الا مفتاح الانتر فقط للانتقال بين مربعات النص
ينفع
لاصحاب البرامج المحاسبية
هذا الكود بعد اضافة اجابتك اخي وتعديلك الثمين
-- في حدث كي برس
If Asc(e.KeyChar) <> 13 Then
e.Handled = True
ElseIf Asc(e.KeyChar) = 13 Then
Text1.Focus()
End If
ومعناه انه اذا ادخل المستخدم اي شي في التكست لايقبل
الا مفتاح الانتر فقط للانتقال بين مربعات النص
ينفع
لاصحاب البرامج المحاسبية

