فعال شدن كليد [بایگانی]

fidnah

سه شنبه 25 تیر 1387, 22:05 عصر

سلام دوستان
ميدونم سوالم خيلي پيش پا افتادس
ميخوام بدونم چطوري ميشه يه كليد روي فرمم رو با enterفعالش كنم؟
با keypressميشه؟
ممنون
:خجالت::خجالت:

ابوذر محمودی

سه شنبه 25 تیر 1387, 22:14 عصر

سلام
با key press ، key up ، key down می شه

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyCode = 13 Then Command1.Enabled = True
End Sub

Mr'Jamshidy

سه شنبه 25 تیر 1387, 22:56 عصر

میتونی از API زیر استفاده کنی بهتره

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

در این حالت

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyCode = 13 Then Command1.Enabled = True
End Sub

فقط زمانی که Focus روی پنجره یا کنترل باشه کار میکنه

به اینجا هم یک سری بزن به دردت میخوره

OCX Download (http://barnamenevis.org/forum/showpost.php?p=554125&postcount=250)