رویداد Enter در Command

[Hamishebahar]

سلام دوستان من میخوام توی رویداد های KeyPress و KeDown مربوط به Command وقتی Enter زد یه MsgBox بدم
ممنونم.

[Hamishebahar]

سلام.
ممنونم دوست من ولی کد شما کار نمیکنه.

[AMP PAVEH]

سلام دوست عزیز امیدوارم که این مشکلتو حل کنه

Private Sub Command1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 13
MsgBox "WWW.AMPSOFT.BLOGFA.COM"
End Select
End Sub

[Hamishebahar]

سلام دوست من نشد.
مشکل اینجاست که اصلاً Enter در KeyPress یا KeyDown فراخوانی نمیشه!!!!!!!!

[AMP PAVEH]

اگه میشه بگی که می خوای چکار کنی بهتر

[Dr.Bronx]

ابتدا خاصیت KeyPreview رو در فرم برابر با True قرار بدید

و بعد از اون در خاصیت Keypress یا keydown یا Keyup بنویسید

در keydown و Keyup

if keycode = 13 then msgbox "Hello World"

و برای KeyPress

If KeyAscii = 13 Then msgbox "Hello World "

موفق باشید ./

[Hamishebahar]

سلام.
مرسی ولی نشد.
لطفاً کدهاتونو تست کنید.

[xxxxx_xxxxx]

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

[AMP PAVEH]

یه نگاه به این برنامه بنداز