حذف آخرین حرف تایپ شده در تکست باکس رو با زدن باتن حذف کن

[ir-security]

سلام
میخوام آخرین حرف تایپ شده در تکست باکس رو با زدن باتن حذف کنم ممنون میشم کدشو بزارید

[meys34]

If Len(Text1.Text) Then
Text1.Text = Mid$(Text1.Text, 1, Len(Text1.Text) - 1)
End If

[vbhamed]

سلام
خب پس بهتر بود از تابع Left استفاده می کردین

If Len(Text1) > 1 Then Text1 = Left$(Text1, Len(Text1) - 1) Else Text1 = ""

[ir-security]

سلام مجدد حالا اگه بخوام بگم


تکست باکس رو چک کن و اگر اخرین حرف تایپ شده "#" بود حذفش کن در غیر این صورت کاری انجام نده

[isaac23]

بفرما داداش اینم کدی که خواستی

If Right(Text1.Text, 1) = "#" Then
Text1.Text = Mid$(Text1.Text, 1, Len(Text1.Text) - 1)
End If

[ir-security]

ممنون ولی به Right گیر میده

[isaac23]

الان دوباره کد رو چک کردم درست کار میکنه ولی عجیبه به Right گیر میده اخه یه تابع هست چیزی خاصی نیست که بهش گیر بده؟؟؟؟

یه پروژه جدید باز کن و دوباره تست کن نباید مشکی داشته باشه

[ir-security]

بله داداش حرف شما متین پروژه جدید بدرستی عمل کرد دمت گرم

[www.pc3enter.tk]

بیا اون کد ها یک طرف این کد هم یک طرف دیگه
Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)

[www.pc3enter.tk]

If Right(Text1.Text, 1) = "#" Then Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)