View Full Version : سوال: خالی شدن تکست باکس با انتخاب تکست باکس توسط دکمه تب
saeidmobashery
چهارشنبه 02 اسفند 1402, 16:33 عصر
سلام بر اساتید عزیز
تکست باکسی دارم که میخواهم زمانی که با زدن دکمه تب آن را انتخاب میکنم متن داخلش پاک شود
رویدادهای زیر را چک کردم نتیجه نگرفتم
TabIndexChanged
TabStopChanged
AcceptsTabChanged
راهکاری مد نظر دارید ؟
سپاس از حضور دوستان و اساتید اهل فن در این سایت به واقع مفید :تشویق:
پرستو پارسایی
چهارشنبه 02 اسفند 1402, 20:47 عصر
با کمی وقت گذاشتن و سرچ در سایت موارد زیادی هست که سوالات ماپاسخ داده حتی اگر پاسخ صددرصدی نباشه ، میتونیم خلاقیت خودمون رو بکار بندازیم و ایده بگیریم سوالاتی از این دست فکر میکنم نیاز به پست زدن مجدد نداشته باشه .
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
پنج شنبه 03 اسفند 1402, 10:19 صبح
با کمی وقت گذاشتن و سرچ در سایت موارد زیادی هست که سوالات ماپاسخ داده حتی اگر پاسخ صددرصدی نباشه ، میتونیم خلاقیت خودمون رو بکار بندازیم و ایده بگیریم سوالاتی از این دست فکر میکنم نیاز به پست زدن مجدد نداشته باشه .
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
پنج شنبه 03 اسفند 1402, 12:57 عصر
به صورت پیش فرض ویژگی 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
پرستو پارسایی
پنج شنبه 03 اسفند 1402, 18:30 عصر
برای اطمینان این کد رو تست کردم
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
جمعه 04 اسفند 1402, 14:45 عصر
برای اطمینان این کد رو تست کردم
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
سپاس از حضور شما استاد گرانقدر در این سایت به واقع مفید
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.