PDA

View Full Version : سوال: ثبت سه صفر در تکس باکس


moghadam1372
شنبه 22 دی 1397, 18:12 عصر
سلام
در یک تکس باکس با کلیک کردن کد اسکی 46 چطوری می توان در همان تکس باکس سه صفر ثبت کرد
isaac23
سه شنبه 25 دی 1397, 09:37 صبح
می خوای چیکار کنید دقیقا ....>؟

Text1.Text = Text1.Text + "000"


منظورتون اینه ؟
moghadam1372
سه شنبه 25 دی 1397, 14:00 عصر
می خوای چیکار کنید دقیقا ....>؟

Text1.Text = Text1.Text + "000"


منظورتون اینه ؟


می خواهم زمانی که کلیک . کنار صفر صفحه کلید را فشار میدهیم سه عدد صفر داخل تکس تایپ شود که کد اسکی . یا همان del مساوی 46 است

جهت ماشین حساب که سه صفر دارد ویا دو صفر ویک صفر
isaac23
چهارشنبه 26 دی 1397, 10:47 صبح
بنظرم از دو تا کلید باشه بهتره مثلا این دستور کلید Ctrl+Enter رو همزمان فشار بدی میاد 000 رو به مبغلی که زدی اضافه می کنه


Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 And Shift = 2 Then Text1.Text = Text1.Text + "000"

End Sub
moghadam1372
چهارشنبه 26 دی 1397, 14:40 عصر
[QUOTE=isaac23;2408956]بنظرم از دو تا کلید باشه بهتره مثلا این دستور کلید Ctrl+Enter رو همزمان فشار بدی میاد 000 رو به مبغلی که زدی اضافه می کنه


[VB]Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 And Shift = 2 Then Text1.Text = Text1.Text + "000"




جهت سهولت در ارقام زیاد که صفر دارند بهتر است که از یک کلیک عدد استفاده شود که بهترین گزینه همان del کنار صفر است