مرجع حل مشکلات پیرامون برنامه نویسی ویژوال بیسیک

[ravegoat]

من مي خواهم وقتي از روي كي برد دكمه اي زده ميشود كد هايي اجرا شوند.
مثلا وقتي دكمه ي Enter زده مي شود فروم بسته شود.
Thanks you

با سلام!

براي اين كار بايد دستورات مورد نظر خودتون رو در رويداد KeyPress فرم تعريف كنيد. اين رويداد زماني كه رخ بده نوع كليد فشرده شده رو با يك كد اسكي مشخص مي كنه.

كد زير Form1 رو زماني كه كليد Enter فشرده ميشه مي بنده:

 Private Sub Form1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Form1.Close
End If
End Sub

توجه كنيد كه 13 كد كليد Enter هستش. البته شايد از رويداد KeyDown استفاده كنيد بهتر باشه كه در اين صورت فكر كنم كدش به صورت زير تغيير كنه:

 Private Sub Form1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Form1.Close
End If
End Sub 

موفق باشيد
آرمين