کد دکمه back space

[IMC]

کد دکمه back space را میخواستم بدونم.یعنی می خوام دکمه ای روی فرم بزارم که کار ان را انجام دهد .متشکرم
:oops: ::نوشتن::

[sadegi]

keyascii=8

[sadegi]

Private Sub Command1_Click()
x = Len(Text1.Text)
If x > 0 Then
Text1.Text = Left$(Text1.Text, x - 1)
End If
End Sub

[mohammad diba]

برای بدست آوردن کد هر کلیدی می توانید یک کد کمکی استفاده کنید که من در این قسمت آن را آورده ام.
Private Sub Form_KeyPress(KeyAscii As Integer)
MsgBox KeyAscii
End Sub

البت با فشار دادن کلیدf2 در vB می توانید ثوابت هر کلید را بدست آورید مثالا
Const vbKeyBack = 8
Member of VBRUN.KeyCodeConstants
Backspace key.