انجام یک عملکرد با فشردن اینتر [بایگانی]

www.pc3enter.tk

شنبه 09 بهمن 1389, 17:03 عصر

سلام
برو داخل تکس باکس و در گوشه سمت راست بالا change را به keypress تغییر بده
حال بابد بدانی کد اسکی کیبورد چنده مثل enter یا space
برای همین داخل برنامه بنویس print keyascii

خوب برنامه را اجرا کن

میبینی که هر چیزی که داخل تکس یاکس می نویسی کد اسکی آن را چاپ می کند

حال اگر بخواهیم هر چیزی که داخل تکس باکس نوشتیم و بعد enter را زدی ان را چاپ کنه
به این صورت

if keyascii="13" then
print text1.text
endif

خط فرمان اصلی

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

ترجمه ی برنامه

اگر کلید اسکی برابر 13 شده سپس
متن داخل تکس باکس را چاپ کن
پایان اگر (شرط)

نکته : 1
تابع keyascii وظیفه ی رساندن کد اسکی به برنامه را دارد

نکته : 2
می توانی وقتی که به طور مثال چیزی اشتباه در تکس باکس وارد کردی با Ese داخل تکس باکس را پاک کنی

If KeyAscii = "27" Then
text1.text=""
End If

پابان
اگر سوال داشتی بپرس
اگر یاد گرفتی تشکر بادت نره