چگونگی دریافت دستور از صفحه کلید

[Exporter]

سلام
توی زبون پاسکال اگر یادتون باشه قدیما برای گرفتن دستور از صفحه کلید مثلا می نوشتیم if press enter then c=a+b
توی ویژوال بیسیک دستورش چجوریه؟
به فرض میخوام توی کدهای مربوط به text1 بگم که وقتی بعد از نوشتن عدد ها در text1 ، کلید بک اسلش (\) زده شد مقدار text1 رو با فلان جمع کن و وقتی کلید اینتر زده شد مقدار text1 رو صفر کن

 

[balabala]

در ایونت keypress همون تکست باکس یه ورودی هست به اسم keycode یا keyasc اگر درست یادم بیاد. که همون کد اسکی کلید فشرده شده هست. ایونت keydown و keyup هم همینطور.

 

[Exporter]

مرسی. حله

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then.............
End If
End Sub

دهمت جرم:دی

 

[Exporter]

تموم شد

برنامه ای که نوشتم (اگه بشه اسمشو برنامه گذاشت) درست کار میکنه و فایل exeشو سیو کردم. ولی هر عددی که توی تکست باکسها وارد میکنم و اینتر میکنم ، همزمان با اینکه عملیات مورد نظر من رو انجام میده یه صدای "دینگ" هم از اسپیکر شنیده میشه. مثل همون صدایی که پیام ارور میخواد ظاهر بشه.
البته برنامه ارور نمیده و کار میکنه. فقط همین صدای دینگ که با هر بار اینتر کردن شنیده میشه رو اعصابه
میخواستم ببینم این صدا کلاً باید باشه ، یا نباید باشه

نشونه ی مشکلی هست؟
میشه قطعش کرد؟

 

[balabala]

احتمالا چون تکست باکسش تک خط هست اینتر رو قبول نمیکنه و صدای دینگ میده

 

[Redfild]

تموم شد

برنامه ای که نوشتم (اگه بشه اسمشو برنامه گذاشت) درست کار میکنه و فایل exeشو سیو کردم. ولی هر عددی که توی تکست باکسها وارد میکنم و اینتر میکنم ، همزمان با اینکه عملیات مورد نظر من رو انجام میده یه صدای "دینگ" هم از اسپیکر شنیده میشه. مثل همون صدایی که پیام ارور میخواد ظاهر بشه.
البته برنامه ارور نمیده و کار میکنه. فقط همین صدای دینگ که با هر بار اینتر کردن شنیده میشه رو اعصابه
میخواستم ببینم این صدا کلاً باید باشه ، یا نباید باشه

نشونه ی مشکلی هست؟
میشه قطعش کرد؟

احتمالا چون تکست باکسش تک خط هست اینتر رو قبول نمیکنه و صدای دینگ میده

راه حل های ساده تری هم هست :

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 0
Text1.Text = ""
End If

End Sub​

بعد از keyascii=0 کدت رو بنویس دیگه صدای بیپ هم نمیاد .
موفق باشید