خالی شدن تکست باکس با انتخاب تکست باکس توسط دکمه تب

[saeidmobashery]

سلام بر اساتید عزیز

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

رویدادهای زیر را چک کردم نتیجه نگرفتم
TabIndexChanged
TabStopChanged
AcceptsTabChanged

راهکاری مد نظر دارید ؟

سپاس از حضور دوستان و اساتید اهل فن در این سایت به واقع مفید :تشویق:

[پرستو پارسایی]

با کمی وقت گذاشتن و سرچ در سایت موارد زیادی هست که سوالات ماپاسخ داده حتی اگر پاسخ صددرصدی نباشه ، میتونیم خلاقیت خودمون رو بکار بندازیم و ایده بگیریم سوالاتی از این دست فکر میکنم نیاز به پست زدن مجدد نداشته باشه .


Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown
If e.KeyCode = Keys.Tab Then
TextBox1.Text = String.Empty
End If
End Sub

[saeidmobashery]

با کمی وقت گذاشتن و سرچ در سایت موارد زیادی هست که سوالات ماپاسخ داده حتی اگر پاسخ صددرصدی نباشه ، میتونیم خلاقیت خودمون رو بکار بندازیم و ایده بگیریم سوالاتی از این دست فکر میکنم نیاز به پست زدن مجدد نداشته باشه .


Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown
If e.KeyCode = Keys.Tab Then
TextBox1.Text = String.Empty
End If
End Sub


سپاس از حضور سرکار خانم پارسایی استاد عزیزم
به روی دو دیده بیشتر از گذشته مطالب سایت را مطالعه خواهم کرد

استاد نتیجه نداد
Private Sub WinData_Form_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown
If e.KeyCode = Keys.Tab Then Conversion_TextBox.Text = String.Empty
End Sub
ویژگی کی پرس فرم هم فعال است

[saeidmobashery]

به صورت پیش فرض ویژگی KeyDown برای تب تعریف شده لذا با ویژگی KeyUp باید برای کلید تب برنامه ریزی کرد
در کد زیر ActiveControl.TabIndex به ما کمک می‌کند تا برنامه هر زمان که شماره تب به شماره تب هدف مورد نظر ما رسید کارش را انجام دهد

Private Sub WinData_Form_KeyUp(sender As Object, e As KeyEventArgs) Handles Me.KeyUp
If (e.KeyCode = Keys.Tab) * (ActiveControl.TabIndex = Conversion_TextBox.TabIndex) Then Conversion_TextBox.Text = String.Empty
End Sub

[پرستو پارسایی]

برای اطمینان این کد رو تست کردم

Private Sub TextBox1_PreviewKeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PreviewKeyDownEventArgs) Handles TextBox1.PreviewKeyDown
If e.KeyCode = Keys.Tab Then
TextBox1.Text = ""
e.IsInputKey = True
End If
End Sub

[saeidmobashery]

برای اطمینان این کد رو تست کردم

Private Sub TextBox1_PreviewKeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PreviewKeyDownEventArgs) Handles TextBox1.PreviewKeyDown
If e.KeyCode = Keys.Tab Then
TextBox1.Text = ""
e.IsInputKey = True
End If
End Sub


سپاس از حضور شما استاد گرانقدر در این سایت به واقع مفید