Backspace

[mehdad.koulab]

سلام
دوستان ميخوام وقتي روي cmd كليك كردم كار Backspace رو انجام بده. با تشكر

[VB.SOS]

با خط زير


SendKeys "{BS}"

[mehdad.koulab]

سلام
بهتره سوالم رو اينظوري كنم
من ميخوام وقتي روي cmd كليك شد كار Backspsce رو در TextBox انجام بده (كاراكتر پاك كنه البته يكي يكي)

[اوبالیت به بو]

Dim Back As Integer
Back = Len(CalculateTxt.Text)
If Back > 0 Then
CalculateTxt.Text = Left(CalculateTxt.Text, Back - 1)
End If

CalculateTxt: جايي هستش كه اعداد نمايش داده ميشه.

[r0ot$harp]

سلام
بهتره سوالم رو اينظوري كنم
من ميخوام وقتي روي cmd كليك شد كار Backspsce رو در TextBox انجام بده (كاراكتر پاك كنه البته يكي يكي)

دوست عزیز خدمت شما



Private Sub Command1_Click()

If Len(Text1.Text) = 0 Then Exit Sub
Text1.SetFocus
Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)
Text1.SelStart = Len(Text1.Text)

End Sub



باتشکر احسان