مسح ما بداخل التيكيست بوكس بمجرد وقوف المؤشر عليه

[yasse.w.2010]

الساده الاساتذه 

السلام عليكم ورحمة الله وبركاته

هل من طريقه في التيكيست بوكس بحيث عند وضع مؤشر الماوس بداخله

يمسح ما فيه 

شاكر لكم جدا

[محمد هشام.]

جرب هذا الكود أخي ودوبل كليك على مربع textbox 

Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) 
TextBox1.Value = ""
End Sub

أو هذا 

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  If Not iGblInhibitTextBoxEvents Then
    TextBox1.Value = ""
  End If
End Sub

 

[أ / محمد صالح]

يمكنك استعمال هذا الكود على افتراض أن مربع النص اسمه textbox1

Private Sub TextBox1_Enter()
TextBox1.Value = ""
End Sub

بالتوفيق

[yasse.w.2010]

الف شكر استاذ محمد

يعمل بشكل رائع

الف شكر منتدي اوفسينا الغالي

[أ / محمد صالح]

الشكر لله الذي وفقنا لهذا