مشکل با edittext

[seyed_27 170]

بسمه تعالی

 edittext دارم که مقدار میگیره

وقتی مقدار گرفت ، میخوام وقتی کاربر روش برای بار دوم برای مقدار دهی کلیک میکنه مقدار قبلی اتوماتیک پاک بشه تا کاربر بتونه مقدار جدید رو بهش بده 

[پژمان نیکروان 6,055]

سلام

Sub edittext1_FocusChanged (HasFocus As Boolean)
    If HasFocus=True Then
        edittext1.text=""
    End If
End Sub

بنظرم محتوای تکست رو سلکت کنید بذارید خود طرف اگه خواست پاک کنه. مثلا آدرس بار بالای مرورگرتون:

edittext1.SelectAll