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

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

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

رویدادهای زیر را چک کردم نتیجه نگرفتم
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

نقل قول:

---

نوشته شده توسط پرستو پارسایی

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

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

ویژگی کی پرس فرم هم فعال است

به صورت پیش فرض ویژگی 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

نقل قول:

---

نوشته شده توسط پرستو پارسایی

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

  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

---

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