نقل قول:
نوشته شده توسط
09111111111
فکر می کنم این کد
With TextBox1
.Text = .Text.Substring(0, .Text.Length - 1)
End With
هم تا حدی بدرد بخوره نه؟
دوستان عزیز کدها رو تست کردم و کد بالا بهترین کدی بود که می شد استفاده کرد اما وقتی textbox خالی می شد error می داد کد کامل رو براتون می زارم
کجای این کد بهترین کد هست؟
این کد فقط می تونه از آخر پاک کنه اگه کابر بخواد از وسط پاک کنه چی؟
من با C# نوشتم کاملا هم کار می کنه خودت به vb تبدیل کن
public Form1()
{
InitializeComponent();
foreach (Control item inthis.Controls)
{
item.Enter+=newEventHandler(Control_Enter);
item.Leave += newEventHandler(Control_Leave);
}
}
privatevoid button1_Click(object sender, EventArgs e)
{
SendKeys.Send("\b");
}
privatevoid Control_Enter(object sender, EventArgs e)
{
Control cont = sender asControl;
if (LeavedControl != null && cont.Name == "button1")
{
this.LeavedControl.Focus();
}
}
Control LeavedControl;
privatevoid Control_Leave(object sender, EventArgs e)
{
this.LeavedControl = sender asControl;
}