سلام
در یک تکس باکس با کلیک کردن کد اسکی 46 چطوری می توان در همان تکس باکس سه صفر ثبت کرد
سلام
در یک تکس باکس با کلیک کردن کد اسکی 46 چطوری می توان در همان تکس باکس سه صفر ثبت کرد
می خوای چیکار کنید دقیقا ....>؟
Text1.Text = Text1.Text + "000"
منظورتون اینه ؟
بنظرم از دو تا کلید باشه بهتره مثلا این دستور کلید 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
[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 کنار صفر است