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

[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

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