السلام عليكم
أعتذر عن الإزعاج إخواني
لكني بصدد تصميم أحد البرامج وتعترضني بعد العواقب
أريد تعديل لهذا الكود
فأنا أريد تطبيق ما في الزر XPButton1 عند الضغط على أنتر في التيكس Text1
وذلك دون إعادة الكود الطويل الموجود في الزر XPButton1
لقد جربة هذا الكود لكن لم يشتغل
أرجوا الحل أخواني لأنها حقا أوقفة مشروعي
جزاكم الله كل خير
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
XPButton1_MouseDown
End If
End Sub
If KeyAscii = 13 Then
XPButton1_MouseDown
End If
End Sub