حذف کاراکتر

[mohammad1314]

سلام.
میخواستم ببینم چطور می تونم با زدن یک دکمه ، کاراکتر جاری در textbox رو حذف کنم. دقیقا شبیه عمل backspace در word .

[محسن واژدی]

سلام
میتوانید یکی از کدهای زیر استفاده کنید:
کد1 (که البته بیشتر پیشنهاد بنده رو این کد هست):
Private Sub Command1_Click()
Text1.SetFocus
SendKeys "{End}"
SendKeys "{BackSpace}"
End Sub
در کدبالا اگر میخواهید حذف از هر جایی که caret یا همان نشانگر در آنجا قرار دارد شروع شود دستور SendKeys "{End}" را حذف کنید

کد2:
Private Sub Command1_Click()
Text1 = Left(Text1, Len(Text1) - 1)
Text1.SetFocus
SendKeys "{End}"
End Sub


موفق باشید

[mohammad1314]

ممنون از راهنماییتون