17-10-12, 01:01 AM
كاتب الموضوع : AhmedEssawy
لمعرفة لم تم التحديد لمربع نص باستخدام الماوس او بالنقر على زر TAB وتنفيد مهمة مختلفة .كود :
Sub Text1_GotFocus ()
If GetKeyState(VK_TAB) < 0 Then
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Else
Text1.SelLength = 0
End If
End Sub