کلید enter

[pmoshir]

با سلام

میخوام با زدن کلید enter در فرم کار یک کامند در همان فرم انجام بشه از چه کدی استفاده کنم؟
با تشکر

[mehdi_fiz]

سلام دوست عزیز

شما باید در keydown فرم از کد زیر استفاده کنید


Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyReturn
command1_Click
End Select
End Sub


به جای کامند یک که قرمز می باشد نام کامند روی فرم خودتان را بنویسید ولی باید قبلاً برای کامند مورد نظرتان کد نویسی کرده باشید که می خواهید چه کاری انجام دهد.

موفق باشید

[pmoshir]

ممنون دوست عزیز
ولی الان با زدن enter کار کامند انجام نمیشه؟؟؟
فکر میکنم چون اسم کلید enter در کد درج نشده؟؟؟؟؟؟؟

[amirzazadeh]

ممنون دوست عزیز
ولی الان با زدن enter کار کامند انجام نمیشه؟؟؟
فکر میکنم چون اسم کلید enter در کد درج نشده؟؟؟؟؟؟؟
در نماي طراحي فرمتون خاصيت KEY PREVIEW رو به YES تغيير بدين.
به عنوان روش دوم و بدون كد نويسي ميتونين در نماي طراحي فرم خاصيت DEFAULT دكمه مورد نظر رو به YES تغيير بدين.
.............................
موفق باشيد

[nabeel]

ضمن سلام به pmoshir عزیز

و ضمن تشکر از دوستانی که دو نظر قبلی رو دادن .

به عنوان روش دوم و بدون كد نويسي ميتونين در نماي طراحي فرم خاصيت DEFAULT دكمه مورد نظر رو به YES تغيير بدين.
این یک حالت خیلی خاصه , که امکان وقوع حالت نقضش زیاده و بهتره که از راه حل آقای فیض آیادی که گسترده تر هستش استفاده بشه ( در حالت سادش که همیشه هم اتفاق میفته یه دکمه دیگه روی فرم ایجاد کنید , روی اون کلیک کنید و بعد Enter رو فشار بدید , این روش در فرمهای تک دکمه ای مناسبتره )
ضمن اینکه بنده تصور میکنم , شما باید تشکری هم از آقای فیض آبادی که پاسخ اصلی شما رو دادن داشته باشید توضیح دوست دیگرمون مکمل اولی بوده ( البته اگه از پست شماره 4 تنها به دلیل پاسخ تشکر کردید و دلیل دیگه ای نداشته )

یا علی