|
السلام عليكم
دعوني اساعدكم
بفرض يوجد على الفورم صندوق نص (text box) سميناه tx
وبفرض يوجد زر امر(command) سميناه cmd
لنفرض انه عند الضغط على زر الامر هذا يتم كتابة كلمة " السلام " بالتالي نضع الكود التالى في حدث click على ذلك الزر cmd بالشكل التالي :
Private Sub cmd_Click()
" السلام "+ Tx.text = tx.text
End Sub
الان نريد ان نجعل الزر cmd مضغوطا بان نضغط المفتاح F5 من لوحة المفاتيح
من اجل ذلك نكتب الكود التالي على حدث KEYDOWN لصندوق النص TX بالشكل التالي :
Private Sub Tx_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF5 Then
cmd_Click
End If
End Sub
في المرفق تجد التنفيذ
|