View Full Version : فعال شدن كليد
fidnah
سه شنبه 25 تیر 1387, 21:05 عصر
سلام دوستان
ميدونم سوالم خيلي پيش پا افتادس
ميخوام بدونم چطوري ميشه يه كليد روي فرمم رو با enterفعالش كنم؟
با keypressميشه؟
ممنون
:خجالت::خجالت:
ابوذر محمودی
سه شنبه 25 تیر 1387, 21: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, 21: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)
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.